Four sides of square: Difference between revisions
m
→{{header|Haskell}}: Tidied Data.Matrix version
(→{{header|Haskell}}: Added a variant expressed in terms of Data.Matrix) |
m (→{{header|Haskell}}: Tidied Data.Matrix version) |
||
Line 455:
fourSides :: Int -> Matrix Int
fourSides n = matrix n n
▲ | or ([(== i), (== j)] <*> [1, n]) = 1
--------------------------- TEST -------------------------
main :: IO ()
main = mapM_ print $ fourSides <$> [
{{Out}}
<pre>┌
└ ┘
┌ ┐
│ 1 │
└ ┘
| |||