Kiterminal's Blog

fib 0 = 1
fib 1 = 1
fib n = fib(n-1)+fib(n-2)

fac 0 = 1
fac n = n * fac (n-1)

s [] = 0
s (x:xs) = x + s (xs)

len [] = 0
len (x:xs) = 1 + len (xs)

qsort [] = []
qsort (x:xs) = qsort (filter (< x) xs) ++ [x] ++ qsort (filter (>= x) xs)