Sudan function: Difference between revisions
Sudan function in FreeBASIC
(add ruby implementation) |
(Sudan function in FreeBASIC) |
||
Line 204:
F(1,3,3) = 35
</pre>
=={{header|FreeBASIC}}==
{{trans|Wren and Phyton}}
<lang freebasic>Function F(n As Integer, x As Integer, y As Integer) As Integer
If n = 0 Then Return x + y
If y = 0 Then Return x
Return F(n - 1, F(n, x, y - 1), F(n, x, y - 1) + y)
End Function
Dim As Integer n, x, y
For n = 0 To 1
Print " Values of F(" & n & ", x, y):"
Print " y/x 0 1 2 3 4 5"
Print String(29, "-")
For y = 0 To 6
Print y; " |";
For x = 0 To 5
Print Using "####"; F(n,x,y);
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)
Sleep</lang>
{{out}}
<pre>Same as Wren entry.</pre>
=={{header|Go}}==
{{trans|Wren}}
| |||