Y combinator: Difference between revisions

The version below works with [[ALGOL 68 Genie]] 3.45.40 tested with Linux kernel release 6.67.94-200.fc39.x86_64.

( ( X x ) F: x( x ) )

func gen( PROC( F( X x , INT arg ) FINT: funcx( genx ,)( Xarg ) )( x , ) F:)

)( func gen( ( ( X x , INT arg ) INT: x( x )( arg ) )( x , ) )

fac_gen = fac => (n => ( ( n === 0 ) ? 1 : n * fac( n - 1 ) ) ) ;

PROC fac gen = ( F fac ) F:

( ( F fac , INT n ) INT: IF n = 0 THEN 1 ELSE n * fac( n - 1 ) FI )( fac , )

factorial = Y_combinator( fac_gen ) ;

fib => ( n => ( ( n === 0 ) ? 0 : ( n === 1 ) ? 1 : fib( n - 2 ) + fib( n - 1 ) ) )

PROC fib gen = ( F fib ) F:

fibonacci = Y_combinator( fib_gen ) ;

# for ( i = 1 ; i <= 12 ; i++) { consoleprocess.logstdout.write( " " + factorial( i ) ) ; } #

printf( ( $ l , "TheHere are the first " , g( 0 ) , " factorials." , l $ , nofacs ) ) ;

printf( ( $ " " , g( 0 ) , l $ , factorial( i ) ) )

# for ( i = 1 ; i <= 12 ; i++) { consoleprocess.logstdout.write( " " + fibonacci( i ) ) ; } #

printf( ( $ l , "TheHere are the first " , g( 0 ) , " fibonacci numbers." , l $ , nofibs ) ) ;

printf( ( $ " " , g( 0 ) , l $ , fibonacci( i ) ) )

OD ;