Floyd's triangle: Difference between revisions
m
→{{header|Haskell}}: Tidied
Simple9371 (talk | contribs) (→{{header|Batch File}}: Fixed) |
m (→{{header|Haskell}}: Tidied) |
||
Line 3,395:
=={{header|Haskell}}==
<lang haskell>
floydTriangle :: [[Int]]
floydTriangle =
( zipWith
(fmap
)▼
<$> scanl (+) 1
)
$ [1 ..]▼
alignR :: Int -> Int -> String▼
--------------------------- TEST -------------------------
alignR n = ((<>) =<< flip replicate ' ' . (-) n . length) . show▼
main :: IO ()▼
------------------------- DISPLAY ------------------------
formatFT :: Int -> String
Line 3,415 ⟶ 3,419:
ws = length . show <$> last t
▲alignR :: Int -> Int -> String
▲main :: IO ()
alignR n =
▲main = mapM_ (putStrLn . formatFT) [5, 14]</lang>
( (<>)
. length
)
. show</lang>
{{Out}}
<pre> 1
| |||