home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 9 / FreshFishVol9-CD2.bin / bbs / gnu / octave-1.1.1-src.lha / octave-1.1.1 / test / octave.test / recursion / recursion-2.m < prev    next >
Encoding:
Text File  |  1995-01-03  |  113 b   |  11 lines
  1. 1;
  2. function y = f (x)
  3.   if (x == 1)
  4.     y = x;
  5.     return;
  6.   else
  7.     y = f (x-1) * x;
  8.   endif
  9. endfunction
  10. f (5)
  11.