aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-11-04 20:28:54 -08:00
parent 52a6ef48dd
commit 157b70a810
604 changed files with 14253 additions and 2100 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/Sudan-function/FutureBasic/sudan-function.basic Normal file
View file

@ -0,0 +1,8 @@
int local fn F( n as int, x as int, y as int )
if ( n == 0 ) then return x + y
if ( y == 0 ) then return x
end fn = fn F( n-1, fn F( n, x, y-1 ), fn F( n, x, y-1 ) + y )
printf @"F(1,3,3) = %d",fn F(1,3,3)
HandleEvents