blob: e6d6ee6d4c50ce07a9fd3e7e9bd967a803e2bac7 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
/*
* Currently the compilation process requires a bit of manual intervention.
* For this particular example, run something like this from the root dir:
*
* ./fwd examples/fib.fwd > /tmp/fib.c
* gcc -Lmod -Iinclude -Ilib -Wl,-rpath=mod -O2 /tmp/fib.c -lfwdio -o /tmp/fib
* /tmp/fib
*
*/
/* modules are just libraries that can be loaded at runtime */
import "../mod/libfwdio.so"
fib(i64 n, (i64) res)
{
if n < 2 {
res(1);
} else {
fib(n - 1) => i64 f1;
fib(n - 2) => i64 f2;
res(f1 + f2);
}
}
main()
{
fib(42) => i64 n;
print_i64(n);
print_nl();
}
|
