home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / cli / master60 / batch / fib.bat < prev    next >
Encoding:
DOS Batch File  |  1990-03-25  |  307 b   |  5 lines
  1. # Fibonacci numbers: try "fib 10" after loading this batch file
  2. alias fib 'unset s ; fib2 \$1 ; rem \$c'
  3. alias fib1 'if "\$1" > "1" {eval \$1 1 - => a ; fib2 \$a ; car s => s ; set s \$c \$s;}'
  4. alias fib2 'if "\$1" <= "1" {set c 1;} else {fib1 \$1 ; car -1o s => a ; car -2o s => b ; eval a b + => c;}'
  5.