Mosaic matrix: Difference between revisions

m
(Added AutoHotkey)
Line 452:
mosaic :: Int -> Matrix Int
mosaic n =
letmatrix gon n (row,(`rem` col2) =. succ (col. +uncurry row(+)) `rem` 2
in matrix n n go
 
main :: IO ()
9,655

edits