##
ll_new( $x, memoize( sub { < any perl expression > } ) )
####
ll_new( $x, sub { < any perl expression > } )
####
$fibs = ll_new(
0,
memoize (
sub {
ll_new(
1,
memoize (
sub {
ll_add( tail( $fibs ), $fibs );
}
)
);
}
)
);
####
$fibs = ll_new( 0, ll_new( 1, ll_add( tail( $fibs ), $fibs ) ) );
####
fibs = 0:1:[a+b| (a,b) <- zip fibs (tail fibs) ]