Mosaic matrix: Difference between revisions

Content added Content deleted

Inline

@@ Line 452: / Line 452: @@
 mosaic :: Int -> Matrix Int
 mosaic n =
-  let go (row, col) = succ (col + row) `rem` 2
+  matrix n n ((`rem` 2) . succ . uncurry (+))
-   in matrix n n go
 main :: IO ()