un-inception/test/fib.forth
Russell Ballestrini 2b35819393 Initial commit: 42 UN CLI implementations
Unsandbox CLI implementations in 42 programming languages for the
permacomputer project. Public domain software for code execution
across all ecosystems.

Languages: Python, JavaScript, Ruby, Go, Rust, C, C++, Java, Kotlin,
C#, F#, Haskell, OCaml, Clojure, Scheme, Common Lisp, Erlang, Elixir,
D, Nim, Zig, V, Dart, Groovy, Scala, Julia, R, Crystal, Fortran,
COBOL, Prolog, Forth, Tcl, Raku, Lua, PHP, Perl, Bash, TypeScript,
Objective-C, PowerShell, AWK

Includes test suites and service lifecycle tests.
2025-12-23 09:57:08 -05:00

16 lines
203 B
Forth

: fib ( n -- fib )
dup 2 < if exit then
dup 1 - recurse
swap 2 - recurse
+ ;
: print-fib ( n -- )
dup ." fib(" 0 .r ." ) = " fib 0 .r cr ;
: main
11 0 do
i print-fib
loop ;
main
bye