Fibonacci in Forth

Fibonacci

in Forth

Welcome to the Fibonacci in Forth page! Here, you'll find the source code for this program as well as a description of how the program works.

Current Solution

: fibonacci ( n --  )
   0 1 rot 0 ?do       \ prepare the stack and loop
      tuck +           \ calculate the next fibonacci number
      i 1+ 0 .r ." : " \ print the current index
      over 0 .r cr     \ print the current fibonacci number
   loop
   2drop ;

: usage ( -- ) ." Usage: please input the count of fibonacci numbers to output" cr ;

: main
   argc @ 2 < if usage exit then
   1 arg s>number? 0= if usage exit else drop then
   fibonacci ;

main
bye

Fibonacci in Forth was written by:

• Ricardo Mapurunga Junior

If you see anything you'd like to change or update, please consider contributing.

How to Implement the Solution

No 'How to Implement the Solution' section available. Please consider contributing.

How to Run the Solution

No 'How to Run the Solution' section available. Please consider contributing.