Mercurial > octave-nkf

diff scripts/specfun/factorial.m @ 5963:b3478d7a0486

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-08-24 17:09:18 by jwe]
author jwe
date Thu, 24 Aug 2006 17:09:18 +0000
parents 27c966e4b2dc
children 3f3e86e9fb57
line wrap: on
line diff
--- a/scripts/specfun/factorial.m	Thu Aug 24 16:23:12 2006 +0000
+++ b/scripts/specfun/factorial.m	Thu Aug 24 17:09:18 2006 +0000
@@ -31,7 +31,7 @@
   if (isscalar (n))
     x = prod (2:n);
   else
-    n (find (n < 1)) = 1;
+    n (n < 1) = 1;
     m = max (n(:));
     c = cumprod (1:m);
     x = c(floor (n));