Mercurial > octave

changeset 31939:8e82a7fc21aa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Merge stable to default
author Arun Giridhar <arungiridhar@gmail.com>
date Mon, 27 Mar 2023 13:04:48 -0400
parents 162669cd13c8 (current diff) 29e0d557a3be (diff)
children 9cd7515e735d 7782d1ead0a0
files
diffstat 1 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/specfun/perms.m	Mon Mar 27 10:38:25 2023 -0400
+++ b/scripts/specfun/perms.m	Mon Mar 27 13:04:48 2023 -0400
@@ -57,12 +57,12 @@
 ## @group
 ## perms ([1, 1, 2, 2], "unique")
 ## @result{}
-##   1   1   2   2
-##   1   2   1   2
+##   2   2   1   1
+##   2   1   2   1
+##   2   1   1   2
 ##   1   2   2   1
-##   2   1   1   2
-##   2   1   2   1
-##   2   2   1   1
+##   1   2   1   2
+##   1   1   2   2
 ## @end group
 ## @end example
 ##
@@ -147,7 +147,7 @@
     [v, ~, j] = unique (v);
     h = accumarray (j, 1)';
     idx = m_perms (h);
-    P = v(sortrows (idx'));
+    P = v(sortrows (idx', -(1:rows(idx))));
   endif
 
 endfunction