5 lines
135 B
Text
5 lines
135 B
Text
Y(f)=x->f(f,x);
|
|
fact=Y((f,n)->if(n,n*f(f,n-1),1));
|
|
fib=Y((f,n)->if(n>1,f(f,n-1)+f(f,n-2),n));
|
|
apply(fact, [1..10])
|
|
apply(fib, [1..10])
|