Mercurial > octave-libtiff

view test/octave.test/recursion/recursion-1.m @ 2332:98d0771f7484

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-07-19 02:14:19 by jwe] Initial revision
author jwe
date Fri, 19 Jul 1996 02:15:59 +0000
parents
children
line wrap: on
line source

1;
function y = f (x)
  if (x == 1)
    y = x;
    return;
  else
    y = x * f (x-1);
  endif
endfunction
f (5)