8 lines
182 B
Haskell
8 lines
182 B
Haskell
main :: IO ()
|
|
main =
|
|
putStrLn . unlines $
|
|
[ show . foldr (+) 0 -- sum
|
|
, show . foldr (*) 1 -- product
|
|
, foldr ((++) . show) "" -- concatenation
|
|
] <*>
|
|
[[1 .. 10]]
|