Artifact 8a19e45bd42355a9a6f710eb288eec0bb198e457

• File sample/fib.pmy
  • 2010-11-09 15:19:20 - part of checkin [68546f3e9f] on branch trunk - several samples (user: kinaba) [annotate]

     1  def fib(x)
     2  {
     3  	if( x < 2 ) { 1 }
     4  	else        { fib(x-1) + fib(x-2) }
     5  };
     6  
     7  let upto = λ(n, f){
     8  	if( n > 0 ){ upto(n-1,f) };
     9  	f(n)
    10  };
    11  
    12  var compose = fun(f,g){ fun(x){f(g(x))} };
    13  var "<<" = compose;
    14  
    15  upto(16, print<<fib);