Commatizing numbers: Difference between revisions
m
→{{header|Haskell}}: (specified imports, applied hlint)
(→{{header|Go}}: Added Haskell) |
m (→{{header|Haskell}}: (specified imports, applied hlint)) |
||
Line 458:
<lang haskell>#!/usr/bin/env runhaskell
import Control.Monad (forM_)
import Data.Char (isDigit)
import Data.List (intercalate)
import Data.Maybe (fromMaybe)
{-
Line 497:
commatize2 [] _ _ = []
commatize2 str sep by =
let (pfx, sfx) =
(number, sfx2) = span isDigitOrPeriod sfx
in pfx ++ processNumber number sep by ++ sfx2
Line 519:
]
main
main =
forM_ input $ \(str, by, sep) -> do
putStrLn str
putStrLn $ commatize str by sep
putStrLn ""</lang>
{{out}}
<pre>
| |||