Artifact fd8a6f88bc7a9f4ad60cbd8ec0c6c9d4b82cbd4f

• File sample/fib.pmy
  • 2010-12-02 10:30:24 - part of checkin [88827b8336] on branch trunk - sample clean-up (user: kinaba) [annotate]

# Standard Fibonacci function
def fib(x)
{
	if x<2 then 1 else fib(x-1) + fib(x-2)
};

let upto = fun(n, f){
	if n > 0: upto(n-1,f);
	f(n)
};

var compose = fun(f,g){ fun(x){f(g(x))} };
var << = compose;

upto(18, print<<fib);


######################################
# Omake. Feel the automatic memoization!

# Set up a mirror layer (do-the-same-thing layer) of @value
@@m(x){x};
@m + (x,y) { @value(@m(x)+@m(y)) };
@m - (x,y) { @value(@m(x)-@m(y)) };
@m < (x,y) { @value(@m(x)<@m(y)) };
@m if (c,t,e) { @value(if @m(c) then @m(t()) else @m(e())) };

# Helper function to call fib in layer @m
def fibm(x @value) { @m(fib(@value(x))) };

# User defined layers are automatically memoized.
# So this is much faster.
upto(18, print<<fibm);