Anonymous recursion: Difference between revisions
Content added Content deleted
No edit summary |
|||
| Line 1,100: | Line 1,100: | ||
fib2(x floor) |
fib2(x floor) |
||
)</lang> |
)</lang> |
||
=={{header|IS-BASIC}}== |
|||
<lang IS-BASIC>100 PROGRAM "Fibonacc.bas" |
|||
110 FOR I=0 TO 10 |
|||
120 PRINT FIB(I); |
|||
130 NEXT |
|||
140 DEF FIB(K) |
|||
150 SELECT CASE K |
|||
160 CASE IS<0 |
|||
170 PRINT "Negative parameter to fibonacci.":STOP |
|||
180 CASE 0 |
|||
190 LET FIB=0 |
|||
200 CASE 1 |
|||
210 LET FIB=1 |
|||
220 CASE ELSE |
|||
230 LET FIB=FIB(K-1)+FIB(K-2) |
|||
240 END SELECT |
|||
250 END DEF</lang> |
|||
=={{header|J}}== |
=={{header|J}}== |
||