Munching squares: Difference between revisions

Content added Content deleted

Inline

@@ Line 444: / Line 444: @@
 =={{header|Haskell}}==
-<lang haskell>import Data.ByteString
+<lang haskell>import qualified Data.ByteString as BY (writeFile, pack)
-import Data.Bits
+import Data.Bits (xor)
-main = Data.ByteString.writeFile "out.pgm" (pack (fmap (fromIntegral . fromEnum) "P5\n256 256\n256\n" ++ [x `xor` y | x <- [0..255], y <- [0..255]]))
-</lang>
+main :: IO ()
+main =
+  BY.writeFile
+    "out.pgm"
+    (BY.pack
+       (fmap (fromIntegral . fromEnum) "P5\n256 256\n256\n" ++
+        [ x `xor` y
+        | x <- [0 .. 255]
+        , y <- [0 .. 255] ]))</lang>
 =={{header|Go}}==