home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / octave-1.1.1p1-src.tgz / tar.out / fsf / octave / test / octave.test / recursion / recursion-1.m next >
Text File  |  1996-09-28  |  113b  |  11 lines
  1. 1;
  2. function y = f (x)
  3.   if (x == 1)
  4.     y = x;
  5.     return;
  6.   else
  7.     y = x * f (x-1);
  8.   endif
  9. endfunction
  10. f (5)
  11.