Magic squares of doubly even order: Difference between revisions

Content added Content deleted

Inline

@@ Line 609: / Line 609: @@
             | otherwise = (concat $ concat $ concat $
                   scale $ fmap scale $ splitEvery 4 $ magicSeries 4)
-                  where  scale = replicate $ quot n 4
+                where
+                  scale = replicate $ quot n 4
@@ Line 643: / Line 644: @@
     where
        square = magicSquare n
-       h:t = sum <$> (square) ++       -- rows
+       h:t = sum <$> (square) ++  -- rows
-                (transpose square) ++  -- cols
+           (transpose square) ++  -- cols
-                (diagonals square)     -- diagonals
+           (diagonals square)     -- diagonals
 diagonals :: [[Int]] -> [[Int]]