-rollNorth rGrid cGrid = roll (V2 0 0) (V2 0 1) (V2 1 0) cGrid rGrid
-
-rollCycle rGrid cGrid = foldl' go rGrid [ (V2 0 0, V2 0 1, V2 1 0)
- , (V2 0 0, V2 1 0, V2 0 1)
- , (V2 r 0, V2 0 1, V2 -1 0)
- , (V2 0 c, V2 1 0, V2 0 -1)
- ]
+rollNorth rGrid cGrid = roll [(V2 0 0, V2 0 1, V2 1 0)] cGrid rGrid
+
+rollCycle rGrid cGrid = roll [ (V2 0 0, V2 0 1, V2 1 0)
+ , (V2 0 0, V2 1 0, V2 0 1)
+ , (V2 r 0, V2 0 1, V2 -1 0)
+ , (V2 0 c, V2 1 0, V2 0 -1)
+ ]
+ cGrid rGrid