19 lines
175 B
Text
19 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
|