Intersecting number wheels: Difference between revisions
Content added Content deleted
| Line 929: | Line 929: | ||
mapM_ print $ |
mapM_ print $ |
||
fmap |
fmap |
||
(flip (mapAccumL (const . clockWorkTick)) (replicate 20 |
(flip (mapAccumL (const . clockWorkTick)) (replicate 20 undefined) . M.fromList) |
||
wheelSets |
wheelSets |
||
putStrLn "\nInitial state of the wheel-sets:\n" |
putStrLn "\nInitial state of the wheel-sets:\n" |
||