Smart pascal source code


Function Func(Const AString: String): Integer;
Begin
  Result := 0;
End;

Var i := 0;
var a: Array [0 .. 255] Of Integer;

a[Func(IntToStr(i))] := 1;

For i := 1 to 1000 do
  Inc(a[Func(IntToStr(i)) And 255]);

For i := 0 to 4 do
  WriteLn(a[i]);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
1001
0
0
0
0
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var TObject={
	$ClassName: "TObject",
	$Parent: null,
	ClassName: function (s) { return s.$ClassName },
	ClassType: function (s) { return s },
	ClassParent: function (s) { return s.$Parent },
	$Init: function () {},
	Create: function (s) { return s },
	Destroy: function (s) { for (var prop in s) if (s.hasOwnProperty(prop)) delete s.prop },
	Destroy$: function(s) { return s.ClassType.Destroy(s) },
	Free: function (s) { if (s!==null) s.ClassType.Destroy(s) }
}
var Exception={
	$ClassName: "Exception",
	$Parent: TObject,
	$Init: function () { FMessage="" },
	Create: function (s,Msg) { s.FMessage=Msg; return s }
}
function $New(c) { var i={ClassType:c}; c.$Init(i); return i }
function $Idx(i,l,h,z) {
	if (ih) throw Exception.Create($New(Exception),"Upper bound exceeded! Index "+i.toString()+z);
	return i-l;
}
function WriteLn(value) {
    if (window.console) { window.console.log(value); } };
function Func(AString) {
   return 0;
};
var i = 0,
   a = function () {
      for (var r=[],i=0; i<256; i++) r.push(0);
      return r
   }();

/* <<< main JS >>> */

i = 0;
a[$Idx(Func(i.toString()), 0, 255, "")] = 1;
for (i = 1; i <= 1000; i++) {
	++a[$Idx(Func(i.toString()) & 255, 0, 255, "")];
}
for (i = 0; i <= 4; i++) {
	WriteLn(a[$Idx(i, 0, 255, "")]);
}