Haskell

เขียน Haskell ครั้งแรก มันก็ไม่ได้ยากมากเท่าไหร่ เพียงอาจจะต้องเปลี่ยนแนวคิดนิดหน่อย

Fibonacci

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

Factorial

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

Summation

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

Length

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

Quick Sort

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