Magic squares of doubly even order: Difference between revisions

Content added Content deleted
m (→‎{{header|AppleScript}}: {{Trans|JavaScript}})
Line 613:
isPowerOf k n =
(until (\x -> (rem x k) /= 0)
(\x -> quot x k) ) n) == 1
main :: IO ()
Retrieved from "https://rosettacode.org/wiki/Magic_squares_of_doubly_even_order"