25 lines
528 B
Plaintext
25 lines
528 B
Plaintext
for n = 0 to 1
|
|
print "Values of F(", n, ", x, y):"
|
|
print "y/x 0 1 2 3 4 5"
|
|
print "----------------------------"
|
|
for y = 0 to 6
|
|
print y, " | ";
|
|
for x = 0 to 5
|
|
print F(n,x,y) using ("###");
|
|
next x
|
|
print
|
|
next y
|
|
print
|
|
next n
|
|
|
|
print "F(2,1,1) = ", F(2,1,1)
|
|
print "F(3,1,1) = ", F(3,1,1)
|
|
print "F(2,2,1) = ", F(2,2,1)
|
|
end
|
|
|
|
sub F(n, x, y)
|
|
if n = 0 return x + y
|
|
if y = 0 return x
|
|
return F(n - 1, F(n, x, y - 1), F(n, x, y - 1) + y)
|
|
end sub
|