mirror of
https://github.com/roc-lang/roc.git
synced 2024-11-11 16:51:53 +03:00
14 lines
268 B
Plaintext
14 lines
268 B
Plaintext
app "fibonacci"
|
|
packages { pf: "fibonacci-platform/main.roc" }
|
|
imports []
|
|
provides [main] to pf
|
|
|
|
main = \n -> fib n 0 1
|
|
|
|
# the clever implementation requires join points
|
|
fib = \n, a, b ->
|
|
if n == 0 then
|
|
a
|
|
else
|
|
fib (n - 1) b (a + b)
|