Quellcodebibliothek Statistik Leitseite products/sources/formale Sprachen/GAP/pkg/grpconst/tst/   (Algebra von RWTH Aachen Version 4.15.1©)  Datei vom 22.0.2024 mit Größe 560 B image not shown  

Quelle  construct-840.tst   Sprache: unbekannt

 
gap> START_TEST("construct-840.tst");
gap> ConstructAndTestAllGroups := function( size )
> local grps;
>     grps := ConstructAllGroups( size );
>    if Length( grps ) <> NumberSmallGroups( size ) then
>        Print( "wrong number of groups of size ", size, "\n" );
>    fi;
>    if Set( List( grps, IdGroup ) ) <>
>       List( [ 1 .. NumberSmallGroups( size ) ], x -> [ size, x ] ) then
>        Print( "wrong ids for the groups of size ", size, "\n" );
>    fi;
> end;;
gap> ConstructAndTestAllGroups( 840 );;
gap> STOP_TEST( "construct-840.tst", 10000 );

[ Dauer der Verarbeitung: 0.17 Sekunden  (vorverarbeitet)  ]