Code: Select all
list:=[1,2,3,4,5,6];
list:=Reverse(list);
// list = [6,5,4,3,2,1];
Code: Select all
export function Reverse(list);
var i;
begin
result:=list;
for i:=1 to list do
result:=Replace(result, i, list[(list+1)-i]);
end;
Code: Select all
list:=[1,2,3,4,5,6];
list:=Reverse(list);
// list = [6,5,4,3,2,1];
Code: Select all
export function Reverse(list);
var i;
begin
result:=list;
for i:=1 to list do
result:=Replace(result, i, list[(list+1)-i]);
end;