Smart pascal source code


var
  a : array of Float;

procedure ShowData;
begin
for var f in a do
  WriteLn(IntToStr(Length(a))+' : '+FloatToStr(f));
end;

begin
a.Remove(0.5);
ShowData; // 0 :

a.Add(1.5);
a.Remove(0.5);
ShowData; // 1 : 1.5

a.Remove(1.5);
ShowData;  // 0 :

a.Add(1.0, 2.0);
a.Remove(1.0, 1);
ShowData;  // 2 : 1
           // 2 : 2

a.Remove(1.0, 0);
ShowData;  // 1 : 2

      var a = [];
      function ShowData() {
         var a$1 = 0;
         var f = 0;
         var $temp1;
         for(a$1=0,$temp1=a.length;a$1<$temp1;a$1++) {
            f = a[a$1];
            WriteLn(((a.length).toString()+" : "+FloatToStr$_Float_(f)));
         }
      };
      $Remove(a,0.5,0);
      ShowData();
      a.push(1.5);
      $Remove(a,0.5,0);
      ShowData();
      $Remove(a,1.5,0);
      ShowData();
      a.push(1, 2);
      $Remove(a,1,1);
      ShowData();
      $Remove(a,1,0);
      ShowData();

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);
}