sort the list all

gap-packages · Jan 3, 2025 · 7e1c510 · 7e1c510
1 parent 58a43eb
commit 7e1c510
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 6 deletions.
diff --git a/doc/gp2ind.xml b/doc/gp2ind.xml
@@ -294,9 +294,11 @@ and <C>S</C> runs over all non-trivial normal subgroups of <C>R</C>.
 <Example>
 <![CDATA[
 gap> all := AllInducedXMods( q8 );;
-gap> L := List( all, x -> StructureDescription( Source( x ) ) );
-[ "C4 x C4", "C2 x C2", "1", "C4 x C4", "C2 x C2", "1", "C4 x C4", "C2 x C2", 
-  "1", "C2 x C2 x C2 x C2", "1" ]
+gap> L := List( all, x -> Source( x ) );;
+gap> Sort( L, function(g,h) return Size(g) < Size(h); end );;
+gap> List( L, x -> StructureDescription( x ) );
+[ "1", "1", "1", "1", "C2 x C2", "C2 x C2", "C2 x C2", "C4 x C4", "C4 x C4", 
+  "C4 x C4", "C2 x C2 x C2 x C2" ]
 ]]>
 </Example>
 

diff --git a/tst/manual/gp2ind.tst b/tst/manual/gp2ind.tst
@@ -136,9 +136,11 @@ Morphism of crossed modules :-
 
 ## Section 7.2.2
 gap> all := AllInducedXMods( q8 );;
-gap> L := List( all, x -> StructureDescription( Source( x ) ) );
-[ "C4 x C4", "C2 x C2", "1", "C4 x C4", "C2 x C2", "1", "C4 x C4", "C2 x C2", 
-  "1", "C2 x C2 x C2 x C2", "1" ]
+gap> L := List( all, x -> Source( x ) );;
+gap> Sort( L, function(g,h) return Size(g) < Size(h); end );;
+gap> List( L, x -> StructureDescription( x ) );
+[ "1", "1", "1", "1", "C2 x C2", "C2 x C2", "C2 x C2", "C4 x C4", "C4 x C4", 
+  "C4 x C4", "C2 x C2 x C2 x C2" ]
 
 gap> SetInfoLevel( InfoXMod, saved_infolevel_xmod );; 
 gap> SetInfoLevel( InfoGroupoids, saved_infolevel_groupoids );;