7 lines
172 B
Text
7 lines
172 B
Text
to pascal :n
|
|
if :n = 1 [output [1]]
|
|
localmake "a pascal :n-1
|
|
output (sentence first :a (map "sum butfirst :a butlast :a) last :a)
|
|
end
|
|
|
|
for [i 1 10] [print pascal :i]
|