home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 2002 July 1 / VMAG130101.iso / ONLINE / monthly / calc / CLPCA511.LZH / ClipCalc / EXTFUNC / fib1.cef < prev    next >
Encoding:
Text File  |  1999-06-07  |  134 b   |  6 lines
  1. #!/usr/local/bin/clip
  2. #âtâBâ{âiâbâ`Éöù± Fibonacci sequence
  3. #\!- <n>
  4. @0 = int @0
  5. int ((pow ((1 + sqrt 5) / 2) @0) / sqrt 5 + 0.5)
  6.