board-games 0.1.0.5 → 0.1.0.6

raw patch · 3 files changed

+8/−8 lines, 3 files

Files

• board-games.cabal +2/−2
• src/Game/ZeilenSpalten.hs +5/−5
• src/Game/ZeilenSpalten/HTML.hs +1/−1

@@ -1,5 +1,5 @@ Name:             board-games-Version:          0.1.0.5+Version:          0.1.0.6 License:          GPL License-File:     LICENSE Author:           Henning Thielemann <haskell@henning-thielemann.de>@@ -36,7 +36,7 @@   location: http://code.haskell.org/~thielema/games/  Source-Repository this-  tag:      0.1.0.5+  tag:      0.1.0.6   type:     darcs   location: http://code.haskell.org/~thielema/games/ 

@@ -112,7 +112,7 @@ instance Show Spielstand where    show = spielstandZuText -{- Computer spielt begonnene Party für beide Seiten optimal zu Ende -}+{- Computer spielt begonnene Partie fuer beide Seiten optimal zu Ende -} optimalesSpiel :: (Koordinate,Koordinate) -> Int -> Spieler -> [Zug] -> [Zug] optimalesSpiel groesse saat beginner zuege =    let spielbaum =@@ -138,16 +138,16 @@          then Nothing          else Just (besterZug (-- GameTree.pruneVolume 100000                                GameTree.pruneDepth 4-                       {- bewerte Knoten für sofortiges Ende höher,+                       {- bewerte Knoten fuer sofortiges Ende hoeher,                           dadurch wird Gegner-K.O. forciert,                           aber eigenes K.O. eher abgewendet. -}                        (GameTree.mapNodesLeaves id (5*)                        -- (GameTree.mapNodesLeaves id id                            {- Wir wollen Zugfolge, die unseren Vorsprung maximiert. -}                            (fmap (uncurry (-) . punkte) spielaktuell))))-                           {- Wir wollen Zugfolge mit den meisten Punkten für uns.-                              Unter allen Folgen mit gleicher Punktzahl für uns,-                              gönnen wir dem Gegner die wenigsten. -}+                           {- Wir wollen Zugfolge mit den meisten Punkten fuer uns.+                              Unter allen Folgen mit gleicher Punktzahl fuer uns,+                              goennen wir dem Gegner die wenigsten. -}                            -- (fmap ((\(ps,pz) -> (ps,-pz)) . punkte) spielaktuell))))  

@@ -74,7 +74,7 @@               toHtml ("Zeiler: " ++ show pz)]])  --- umständlich, weil Spielfeld zweimal aufgebaut wird+-- umstaendlich, weil Spielfeld zweimal aufgebaut wird spiel' :: String -> Html.Html spiel' s =    let (groesse, saat, beginner, macheGegenzug, zuege) = read s