Catalan numbers: Difference between revisions

Content added Content deleted
Line 517: Line 517:


==={{header|Craft Basic}}===
==={{header|Craft Basic}}===
<syntaxhighlight lang="basic">dim c[15]
<syntaxhighlight lang="basic">dim c[16]


let c[0] = 1
let c[0] = 1
print 0, " ", c[0]


let n = 0
for n = 0 to 15

do


let p = n + 1
let p = n + 1
let c[p] = 0
let c[p] = 0


let i = 0
for i = 0 to n

do


let q = n - i
let q = n - i
let c[p] = c[p] + c[i] * c[q]
let c[p] = c[p] + c[i] * c[q]


next i
let i = i + 1

loop i < n + 1


print p, " ", c[p]
print n, " ", c[n]


next n
let n = n + 1


loop n < 14</syntaxhighlight>
end</syntaxhighlight>


==={{header|FreeBASIC}}===
==={{header|FreeBASIC}}===