File: fib.fs

package info (click to toggle)
gforth 0.6.2-7.3
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 8,268 kB
  • ctags: 1,534
  • sloc: ansic: 6,256; sh: 3,361; lisp: 1,788; makefile: 878; yacc: 186; sed: 141; lex: 104; awk: 21
file content (11 lines) | stat: -rw-r--r-- 121 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
 
: fib ( n1 -- n2 )
    dup 2 < if
	drop 1
    else
	dup
	1- recurse
	swap 2 - recurse
	+
    then ;

: main 34 fib drop ;