Magic squares of doubly even order: Difference between revisions
→{{header|Haskell}}: Updated primitives and output
(→{{header|Haskell}}: Made the test more direct) |
(→{{header|Haskell}}: Updated primitives and output) |
||
Line 636:
=={{header|Haskell}}==
<lang Haskell>import Data.List (transpose, unfoldr, intercalate)
import
magicSquare :: Int -> [[Int]]
Line 668:
isPowerOf k n = until ((0 /=) . flip rem k) (`quot` k) n == 1
-- TEST AND DISPLAY FUNCTIONS --------------------------------------------------
diagonals = fmap (flip (zipWith (!!)) [0 ..]) . ((:) <*> (return . reverse))▼
checked :: [[Int]] -> (Int, Bool)
checked square =
let diagonals =
diagonals square -- diagonals
in (h, all (h ==) t)
table :: String -> [[String]] -> [String]
table delim rows =
let justifyRight c n s = drop (length s) (replicate n c ++ s)
in intercalate delim <$>
transpose
((fmap =<< justifyRight ' ' . maximum . fmap length) <$> transpose rows)
main :: IO ()
main =
forM_ [4, 8, 16] $
let square = magicSquare 8▼
\n -> do
putStrLn ""▼
putStrLn $ unlines (table " " (fmap show <$> test))
print $ checked
▲ putStrLn ""</lang>
{{Out}}
<pre>main
<pre>[1,63,62,4,60,6,7,57]▼
1 15 14 4
[56,10,11,53,13,51,50,16]▼
12 6 7 9
[48,18,19,45,21,43,42,24]▼
8 10 11 5
[25,39,38,28,36,30,31,33]▼
13 3 2 16
[32,34,35,29,37,27,26,40]▼
[41,23,22,44,20,46,47,17]▼
(34,True)
[49,15,14,52,12,54,55,9]▼
[8,58,59,5,61,3,2,64]▼
(260,True)
1 255 254 4 252 6 7 249 248 10 11 245 13 243 242 16
240 18 19 237 21 235 234 24 25 231 230 28 228 30 31 225
224 34 35 221 37 219 218 40 41 215 214 44 212 46 47 209
49 207 206 52 204 54 55 201 200 58 59 197 61 195 194 64
192 66 67 189 69 187 186 72 73 183 182 76 180 78 79 177
81 175 174 84 172 86 87 169 168 90 91 165 93 163 162 96
97 159 158 100 156 102 103 153 152 106 107 149 109 147 146 112
144 114 115 141 117 139 138 120 121 135 134 124 132 126 127 129
128 130 131 125 133 123 122 136 137 119 118 140 116 142 143 113
145 111 110 148 108 150 151 105 104 154 155 101 157 99 98 160
161 95 94 164 92 166 167 89 88 170 171 85 173 83 82 176
80 178 179 77 181 75 74 184 185 71 70 188 68 190 191 65
193 63 62 196 60 198 199 57 56 202 203 53 205 51 50 208
48 210 211 45 213 43 42 216 217 39 38 220 36 222 223 33
32 226 227 29 229 27 26 232 233 23 22 236 20 238 239 17
241 15 14 244 12 246 247 9 8 250 251 5 253 3 2 256
(
=={{header|Java}}==
| |||