arne/codingame
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

code of kutulu init

Browse Source
This commit is contained in:
weiss
2020-04-28 05:53:26 +02:00
parent d8b857749c
commit 947b25d41a
25 changed files with 801 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
haskell/vindinium/app/Main.hs
View File

@@ -27,7 +27,7 @@ loop1 pos depth acc
in loop1 sim (depth - 1) acc'
sim1 :: Pos -> (Int, Pos)
sim1 pos = (\(val, (_,_, pos, _,_)) -> (val, pos)) (simulate board1 (0, 100, pos, singleton (0,4), empty))
sim1 pos = (\(val, (_,_, pos, _,_,_)) -> (val, pos)) (simulate board1 (0, 100, pos, singleton (0,4), singleton (3,4), empty))
board1 :: Board
board1 = fromList $ fmap fromList