mirror of
https://github.com/roc-lang/roc.git
synced 2025-08-09 14:48:00 +00:00
20 lines
349 B
Text
20 lines
349 B
Text
app [exposed1, exposed2, add1, sub1] { pf: platform "platform/main.roc" }
|
|
|
|
exposed1 = \n -> fib(n, 0, 1)
|
|
|
|
fib = \n, a, b ->
|
|
if n == 0 then
|
|
a
|
|
else
|
|
fib((n - 1), b, (a + b))
|
|
|
|
exposed2 = \n -> fact(n, 1)
|
|
|
|
fact = \n, x ->
|
|
if n == 0 then
|
|
x
|
|
else
|
|
fact((n - 1), (n * x))
|
|
|
|
add1 = \n -> n + 1
|
|
sub1 = \n -> n - 1
|