Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/GAP/pkg/profiling/tst/   (Algebra von RWTH Aachen Version 4.15.1©)  Datei vom 21.5.2025 mit Größe 265 B image not shown  

Quelle  testcode1.g   Sprache: unbekannt

 
# This code is just some test code, for checking profiling

f := function(a)
 local x;
 x := 0;
 if a < 1 then
  x := 3;
 fi;
 if a > 1 then
  x := 2;
 fi;
 if a > 2 then
  x := 1;
 fi;
 Intersection(AlternatingGroup(8), AlternatingGroup(8)*(1,2));
 return x;
end;

[ Dauer der Verarbeitung: 0.23 Sekunden  (vorverarbeitet)  ]