diff --git a/Languages.md b/Languages.md index 31a9cb0..8cf9c9b 100644 --- a/Languages.md +++ b/Languages.md @@ -20,3 +20,4 @@ Hello there!! - MATLAB - Scheme - Scala +- Haskell diff --git a/fibonacci_series/Haskell/haskell_fibonacci.hs b/fibonacci_series/Haskell/haskell_fibonacci.hs new file mode 100644 index 0000000..b087de9 --- /dev/null +++ b/fibonacci_series/Haskell/haskell_fibonacci.hs @@ -0,0 +1,5 @@ +-- usage ghci haskell_fibonacci.hs +-- then fib 5 for example +fib 0 = 0 +fib 1 = 1 +fib n = fib (n-1) + fib (n-2) \ No newline at end of file diff --git a/fibonacci_series/Haskell/haskell_fibonacci_fast.hs b/fibonacci_series/Haskell/haskell_fibonacci_fast.hs new file mode 100644 index 0000000..9f5d9b7 --- /dev/null +++ b/fibonacci_series/Haskell/haskell_fibonacci_fast.hs @@ -0,0 +1,9 @@ +-- usage ghci haskell_fibonacci_fast.hs +-- then fib 5 for example +fastfib _ _ 0 = 0 +fastfib _ _ 1 = 1 +fastfib _ _ 2 = 1 +fastfib fn1 fn2 3 = fn1 + fn2 +fastfib fn1 fn2 counter = fastfib (fn1 + fn2) fn1 (counter - 1) + +fib n = fastfib 1 1 n \ No newline at end of file