Smart pascal source code


function MyFunc(a: Integer): string;
begin
  Result := '(' + IntToStr(a) + ')';
end;

{ unit1.pas }
var
  a: array of Integer;
  b: array of Integer;
  c: array of String;
begin
  a := [1,3,2,5,4];

  b := a.Map(Sqr);
  for var i in b do
    Writeln(i); // 1 9 4 25 16
    Writeln('');

  c := b.Map(MyFunc);
  for var i in c do
    Writeln(i);  // (1)(9)(4)(25)(16)
    Writeln('');

function Sqr$_Integer_(v) {
	return v * v
}
function MyFunc(a$3) {
	return "(" + a$3.toString() + ")";
};
var a = [],
b = [],
c = [],
a$1 = 0;
var i$1 = 0,
a$2 = 0;
var i$2 = "";
a = [1, 3, 2, 5, 4].slice();
b = a.map(Sqr$_Integer_);
var $temp1;
for (a$1 = 0, $temp1 = b.length; a$1 < $temp1; a$1++) {
	i$1 = b[a$1];
	WriteLn(i$1);
}
WriteLn("");
c = b.map(MyFunc);
var $temp2;
for (a$2 = 0, $temp2 = c.length; a$2 < $temp2; a$2++) {
	i$2 = c[a$2];
	WriteLn(i$2);
}
WriteLn("");