|
gap> START_TEST("tasks.tst");
gap> CallAsTask := function(arg)
> return TaskResult( RunTask( CallFuncList, arg[1], arg{[2..Length(arg)]} ) );
> end;;
gap> TaskResult(RunTask(Factorial, 99)) = Factorial(99);
true
gap> TaskResult(RunTask(x -> Size(x),[(1,2)]));
1
gap> CallAsTask(ZmodnZ,2);
GF(2)
gap> CallAsTask(ZmodnZ,3);
GF(3)
gap> CallAsTask(ZmodnZ,33);
(Integers mod 33)
gap> CallAsTask(ZmodnZ,70001);
GF(70001)
gap> CallAsTask( Z, 2, 17);
z
gap> z:=CallAsTask( Z, 65537, 2 );
z
gap> TaskResult( RunTask( x -> x^-1, z) );
21846+43691z
gap> CallAsTask( Z, 268435399, 2 );
z
gap> CallAsTask(GF,7);
GF(7)
gap> CallAsTask(GF,7^2);
GF(7^2)
gap> CallAsTask(GF,65537);
GF(65537)
gap> CallAsTask(GF,65537^2);
GF(65537^2)
gap> CallAsTask(Indeterminate,GF(13));
x_1
gap> CallAsTask( NF, 7, [ 1 ] );
CF(7)
gap> CallAsTask( NF, 7, [ 1,2 ] );
NF(7,[ 1, 2, 4 ])
gap> CallAsTask(SymmetricGroup,3);
Sym( [ 1 .. 3 ] )
gap> CallAsTask(FreeGroup,3);
<free group on the generators [ f1, f2, f3 ]>
gap> g:= FreeGroup( "a", "b" );;
gap> enum:= Enumerator( g );;
gap> first50:=List( [ 1 .. 50 ], x -> enum[x] );;
gap> CallAsTask( Position, enum, first50[1]);
1
gap> CallAsTask(QuaternionAlgebra,Rationals);
<algebra-with-one of dimension 4 over Rationals>
gap> A := CallAsTask( FreeAlgebraWithOne, Rationals, 2);
<algebra-with-one over Rationals, with 2 generators>
gap> GeneratorsOfAlgebra(A);
[ (1)*<identity ...>, (1)*x.1, (1)*x.2 ]
gap> T:= EmptySCTable( 2, 0 );;
gap> SetEntrySCTable( T, 1, 1, [1,1] );;
gap> SetEntrySCTable( T, 2, 2, [1,2] );;
gap> A:= AlgebraByStructureConstants( Rationals, T );;
gap> A:= AsAlgebraWithOne( Rationals, A );;
gap> CallAsTask( IsomorphismFpAlgebra,A );
[ v.1, v.2, v.1+v.2 ] -> [ [(1)*x.1], [(1)*x.2], [(1)*<identity ...>] ]
gap> CallAsTask( JordanDecomposition, [[1,2,3],[4,5,6],[7,8,9]] );
[ [ [ 1, 2, 3 ], [ 4, 5, 6 ], [ 7, 8, 9 ] ],
[ [ 0, 0, 0 ], [ 0, 0, 0 ], [ 0, 0, 0 ] ] ]
gap> CallAsTask(LLLReducedBasis,[]);
rec( B := [ ], basis := [ ], mue := [ ] )
gap> CallAsTask(LLLReducedBasis,[ [ 0, 0 ], [ 0, 0 ] ], "linearcomb" );
rec( B := [ ], basis := [ ], mue := [ ],
relations := [ [ 1, 0 ], [ 0, 1 ] ], transformation := [ ] )
gap> task := RunTask(GF, 7);;
gap> TaskResult(task);
GF(7)
gap> task2 := ScheduleTask(task, x -> x^2, 4);;
gap> WaitTask(task, task2);
gap> task3 := ScheduleTask([task, task2], x -> x^2, 5);;
gap> TaskResult(task3);
25
gap> task4 := ScheduleTask([], GcdInt, 6, 10);;
gap> TaskResult(task4);
2
gap> STOP_TEST("tasks.tst");
[ Dauer der Verarbeitung: 0.23 Sekunden
(vorverarbeitet)
]
|
