This website requires JavaScript.
Explore
Help
Register
Sign in
aparler
/
RosettaCodeData
Watch
1
Star
0
Fork
You've already forked RosettaCodeData
0
Code
Issues
12
Pull requests
3
Projects
Releases
Packages
Wiki
Activity
Actions
master
RosettaCodeData
/
Task
/
Fibonacci-sequence
/
Haskell
/
fibonacci-sequence-11.hs
2 lines
64 B
Haskell
Raw
Permalink
Normal View
History
Unescape
Escape
June 2018 Update
2018-06-22 20:57:24 +00:00
fib
=
0
:
1
:
next
fib
where
next
(
a
:
t
@
(
b
:
_
)
)
=
(
a
+
b
)
:
next
t
Reference in a new issue
Copy permalink