Minimum number of cells after, before, above and below NxN squares: Difference between revisions
Minimum number of cells after, before, above and below NxN squares (view source)
Revision as of 21:07, 16 October 2022
, 1 year ago→{{header|Haskell}}: Dropped Data.Bool
m (→{{header|Haskell}}: Dropped Data.Bool) |
|||
Line 1,453:
<syntaxhighlight lang="haskell">import Data.Bifunctor (bimap)
import Data.Matrix (Matrix, matrix)
Line 1,461 ⟶ 1,460:
distancesToEdge n = matrix n n (uncurry min . bimap f f)
where
m = quot n 2
f i
| i <= m = pred i
| otherwise = n - i
--------------------------- TEST -------------------------
| |||