pastebin
| #1 paste tool since 2002
create new paste
tools
api
archive
real-time
faq
pastebin
Follow @pastebin
create new paste
trending pastes
sign up
login
my settings
my profile
My Pastes
Public Pastes
Untitled
JavaScript | 6 sec ago
Untitled
9 sec ago
How do I know if my sto...
15 sec ago
Korn
15 sec ago
Untitled
17 sec ago
Untitled
21 sec ago
Watch WWE Raw 2/13/201...
30 sec ago
Untitled
25 sec ago
Layout Width
Share Pastebin
Untitled
By: a guest | Mar 21st, 2010 | Syntax:
Haskell
| Size: 0.10 KB | Hits: 81 | Expires: Never
Download
|
Raw
|
Embed
|
Report abuse
fib 1
=
1
fib 2
=
1
fib n
=
fib
(
n
-
1
)
+
fib
(
n
-
2
)
e2
=
sum
[
fib x
|
x
<-
[
1
..
50
]
,
fib x
<
4000000
]
create new paste
|
create new version of this paste
RAW Paste Data
fib 1 = 1 fib 2 = 1 fib n = fib(n-1) + fib(n-2) e2 = sum [fib x | x<-[1..50], fib x < 4000000]