1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94
|
gap> START_TEST("varargs.tst");
gap> f := function(a,b...) return [a,b]; end;
function( a, b... ) ... end
gap> Display(f);
function ( a, b... )
return [ a, b ];
end
gap> f(1);
[ 1, [ ] ]
gap> f(1,2);
[ 1, [ 2 ] ]
gap> f(1,2,3);
[ 1, [ 2, 3 ] ]
gap> f := function(arg) return arg; end;
function( arg... ) ... end
gap> Display(f);
function ( arg... )
return arg;
end
gap> f();
[ ]
gap> f(1);
[ 1 ]
gap> f(1,2);
[ 1, 2 ]
gap> f(1,2,3);
[ 1, 2, 3 ]
gap> f := function(arg...) return arg; end;
function( arg... ) ... end
gap> Display(f);
function ( arg... )
return arg;
end
gap> f();
[ ]
gap> f(1);
[ 1 ]
gap> f(1,2);
[ 1, 2 ]
gap> f(1,2,3);
[ 1, 2, 3 ]
gap> f := function(a...) return a; end;
function( a... ) ... end
gap> Display(f);
function ( a... )
return a;
end
gap> f();
[ ]
gap> f(1);
[ 1 ]
gap> f(1,2);
[ 1, 2 ]
gap> f(1,2,3);
[ 1, 2, 3 ]
gap> function(a,b..) end;
Syntax error: Three dots required for variadic argument list in stream line 1
function(a,b..) end;
^
gap> function(a...,b) end;
Syntax error: Only final argument can be variadic in stream line 1
function(a...,b) end;
^
gap> function(a..,b) end;
Syntax error: Three dots required for variadic argument list in stream line 1
function(a..,b) end;
^
gap> function(a....,b) end;
Syntax error: ) expected in stream line 1
function(a....,b) end;
^
gap> function(a,b....) end;
Syntax error: ) expected in stream line 1
function(a,b....) end;
^
gap> f := function(a,b..) end;
Syntax error: Three dots required for variadic argument list in stream line 1
f := function(a,b..) end;
^
gap> Display(RETURN_FIRST);
function ( object... )
<<kernel or compiled code>>
end
gap> [1..2];
[ 1, 2 ]
gap> [1...2];
Syntax error: only two dots in a range in stream line 1
[1...2];
^
gap> f := function(a,arg) return [a,arg]; end;
function( a, arg ) ... end
gap> f(1,2);
[ 1, 2 ]
gap> STOP_TEST("varargs.tst", 260000);
|