8 lines
244 B
Text
8 lines
244 B
Text
|
main :: [sys_message]
|
||
|
|
main = [ Stdout (show deg ++ ": " ++ show (map (multifac deg) [1..10]) ++ "\n")
|
||
|
|
| deg <- [1..5]]
|
||
|
|
|
||
|
|
multifac :: num->num->num
|
||
|
|
multifac deg = product . takewhile (>1) . iterate sub
|
||
|
|
where sub n = n - deg
|