20 lines
175 B
Text
20 lines
175 B
Text
|
dim c[16]
|
||
|
|
|
||
|
|
let c[0] = 1
|
||
|
|
|
||
|
|
for n = 0 to 15
|
||
|
|
|
||
|
|
let p = n + 1
|
||
|
|
let c[p] = 0
|
||
|
|
|
||
|
|
for i = 0 to n
|
||
|
|
|
||
|
|
let q = n - i
|
||
|
|
let c[p] = c[p] + c[i] * c[q]
|
||
|
|
|
||
|
|
next i
|
||
|
|
|
||
|
|
print n, " ", c[n]
|
||
|
|
|
||
|
|
next n
|