13 lines
221 B
ObjectPascal
13 lines
221 B
ObjectPascal
|
function Sq(n: integer): sequence of integer;
|
||
|
|
begin
|
||
|
|
for var i:=1 to n do
|
||
|
|
for var j:=1 to n do
|
||
|
|
begin
|
||
|
|
yield i*j;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
begin
|
||
|
|
Assert(Sq(3).SequenceEqual(Seq(1,2,3,2,4,6,3,6,9)),Sq(3).JoinIntoString);
|
||
|
|
end.
|