codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
-- Written by Mohit Jain -- Calculate nth fibonacci number main = printFibonacci 20 printFibonacci :: Int -> IO () printFibonacci = print . calculateFibonacciAtIndex calculateFibonacciAtIndex n = fibList !! pred n where fibList = map getFib [1..] getFib 1 = 1 getFib 2 = 1 getFib n = getFib (n-1) + getFib (n-2) -- getFib n = calculateFibonacciAtIndex (n-1) + calculateFibonacciAtIndex (n-2)
Private
[
?
]
Run code
Submit