RosettaCodeData/Task/Sudan-function/FutureBasic/sudan-function.basic

9 lines
225 B
Plaintext

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