11 lines
303 B
Text
11 lines
303 B
Text
to factorial :n
|
|
output ifelse [less? :n 1] 1 [product :n factorial difference :n 1]
|
|
end
|
|
to choose :n :r
|
|
output quotient factorial :n product factorial :r factorial difference :n :r
|
|
end
|
|
to catalan :n
|
|
output product (quotient sum :n 1) choose product 2 :n :n
|
|
end
|
|
|
|
repeat 15 [print catalan repcount]
|