Does this make sense?

   fib0 =:   3 : 'if. y<2 do. 1 else. +/fib0        y-1 2 end.'"0
   fib0m=: 3 : 'if. y<2 do. 1 else. +/fib0m      y-1 2 end.'"0 M.
   fib1m=: 3 : 'if. y<2 do. 1 else. +/fib1m"0 ] y-1 2 end.' M.

   6!:2 'fib0 i.30'
18.99775
   6!:2 'fib0m i.30'
20.822316
   6!:2 'fib1m"0 ] i.30'
0.00044411823
   (fib1m"0 ] i.30)-:fib0m i.30
1


-- 
Devon McCormick, CFA
^me^ at acm.
org is my
preferred e-mail
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to