6 lines
162 B
Text
6 lines
162 B
Text
main :: [sys_message]
|
|
main = [Stdout (lay (map (show . catalan) [0..14]))]
|
|
|
|
catalan :: num->num
|
|
catalan 0 = 1
|
|
catalan n = (4*n - 2) * catalan (n - 1) div (n + 1)
|