File: fib.fs

package info (click to toggle)
gforth 0.6.2-7.2
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 8,260 kB
  • ctags: 1,534
  • sloc: ansic: 6,256; sh: 3,294; lisp: 1,788; makefile: 877; 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 ;