Add analysing machine

2022-03-21 09:14:32 +00:00
parent 13e8ea85d2
commit 51cc04799d
7 changed files with 102 additions and 15 deletions
@@ -81,9 +81,7 @@ randomLightPositions rm = do
    xs <- shuffle [0.._numLinkEW rmtype]
    ys <- shuffle [0.._numLinkNS rmtype]
    let n = max (length xs) (length ys)
-    return $ zip
-        (take n $ xs ++ xs)
-        (take n $ ys ++ ys)
+    return $ take n $ zip (xs ++ xs) (ys ++ ys)

 intsToPos :: Room -> (Int,Int) -> Point2
 intsToPos rm (x,y) = V2