Mercurial > hg > octave-nkf

comparison scripts/general/randperm.m @ 6046:34f96dd5441b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-10-10 16:10:25 by jwe]
author jwe
date Tue, 10 Oct 2006 16:10:31 +0000
parents 709307492cd7
children 93c65f2a5668
comparison
equal deleted inserted replaced
6045:421d8a903df7 6046:34f96dd5441b
33 [junk, retval] = sort (rand (1, n)); 33 [junk, retval] = sort (rand (1, n));
34 else 34 else
35 error ("randperm: argument must be non-negative"); 35 error ("randperm: argument must be non-negative");
36 endif 36 endif
37 else 37 else
38 usage ("randperm (n)"); 38 print_usage ();
39 endif 39 endif
40 40
41 endfunction 41 endfunction