stemlib/fib.stem


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

# Author: Andrei Sova 2023
fib [
  dup 1 <= [ ] [
    dup 1 - fib
    swap
    dup 2 - fib
    swap
    dsc
    +
  ] if
] def

main [
  dup 10 <= [
    dup fib .
    1 + main
  ] [ exit ] if
] def

0 main