Inference I

Smart pascal source code


var i: Integer := 2;

var j := i;

if i = j then
  WriteLn('match int');

var
iStr = IntToStr(i);

if iStr = '2' then
  WriteLn('match str');

var
obj := TObject.Create;

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
match int
match str

-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var i = 0,
   j = 0,
   iStr = "",
   obj = null;

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

   i = 2;
   j = i;
   if (i==j) {
      WriteLn("match int");
   }
   iStr = i.toString();
   if (iStr=="2") {
      WriteLn("match str");
   }
   obj = TObject.Create($New(TObject));