Mercurial > hg > octave-lyh
diff scripts/elfun/lcm.m @ 2325:b5568c31ee2c
[project @ 1996-07-15 22:20:21 by jwe]
author | jwe |
---|---|
date | Mon, 15 Jul 1996 22:20:21 +0000 |
parents | 5ca126254d15 |
children | 3723512a827a |
line wrap: on
line diff
--- a/scripts/elfun/lcm.m +++ b/scripts/elfun/lcm.m @@ -34,11 +34,11 @@ a = [a, (va_arg ())]; endfor endif - + if (round (a) != a) error ("lcm: all arguments must be integer"); endif - + if (any (a) == 0) l = 0; else @@ -48,6 +48,5 @@ l = l * a(k+1) / gcd (l, a(k+1)); endfor endif - + endfunction - \ No newline at end of file