Smart pascal source code


{ unit1.pas }

var
  a : array of Float := [0];
  x := 1.5;
  s : array of string;

begin
  a.Add(x * 2);
  Writeln(a.IndexOf(x * 2));
  a.Insert(1, x * 4);
  a.Remove(x * 2);
  s := a.Map(FloatToStr);
  Writeln(s.Join(';'));

{ CONSOLE OUTPUT
  1
  0;6
}

function FloatToStr$_Float_(i) { return i.toString() }
function FloatToStr$_Float_Integer_(i,p) { return (p==99)?i.toString():i.toFixed(p) }
function $Remove(a,i,f) {
	var j = a.indexOf(i,f);
	if (j>=0) a.splice(j,1);
}

      var a = [],
         a = [0].slice();
      var x$1 = 1.5;
      var s = [];
      a.push(x$1*2);
      WriteLn(a.indexOf(x$1*2));
      a.splice(1,0,x$1*4);
      $Remove(a,x$1*2,0);
      s = a.map(FloatToStr$_Float_);
      WriteLn((s).join(";"));