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