Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
10 lines (6 sloc) 254 Bytes
def fib -> cons 1 (cons 1 (zipWith (fn a b -> a + b) fib (tail fib)));
def fac n -> if n (n * fac (n - 1)) 1;
let l = cons 1 (cons 2 (cons 3 nil)),
l2 = map (fn n -> n * 2) l,
l3 = filter (fn n -> not $ n == 2) l,
l4 = zipWith cons l l2;