Anonymous user
Riordan numbers: Difference between revisions
Added uBasic/4tH version
(Added Sidef) |
imported>Thebeez (Added uBasic/4tH version) |
||
Line 378:
<pre>Same as FreeBASIC entry.</pre>
==={{header|uBasic/4tH}}===
{{trans|FreeBASIC}}
<syntaxhighlight lang="yabasic">l = 31
c = 0
Dim @r(l)
Print "First 32 Riordan numbers:"
Proc _Riordan(l)
For i = 0 To l
Print Using " ____________#"; @r(i);
c = c + 1
If c % 4 = 0 Then Print
Next
End
_Riordan
Param (1)
Local (1)
If (a@ < 0) = 0 Then
@r(0) = 1
If (a@ < 1) = 0 Then
@r(1) = 0
For b@ = 2 To a@
@r(b@) = ((b@-1) * ((2 * @r(b@-1)) + (3 * @r(b@-2)))) / (b@+1)
Next
EndIf
EndIf
Return</syntaxhighlight>
==={{header|Yabasic}}===
{{trans|FreeBASIC}}
| |||