9 lines
120 B
ObjectPascal
9 lines
120 B
ObjectPascal
|
function f1: sequence of byte->byte;
|
|||
|
|
begin
|
|||
|
|
yield b->b*b;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var q := f1().First;
|
|||
|
|
Assert(q(2)=4);
|
|||
|
|
end.
|