Smart pascal source code


var a: array [-1 .. 10] of Integer;

var i, s: Integer;

for i := 1 to 100 do
  Inc(a[RandomInt(10)]);

for i := -1 to 10 do
  s += a[i];

WriteLn(s);

for i := 1 to 50 do
  Dec(a[RandomInt(10)]);

for i := -1 to 10 do
  s += a[i];

WriteLn(s);
{<<< RESULT - CONSOLE LOG >>>
-----------------------------
100
150
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function RandomInt(i) { return Math.floor(Random()*i) }
function $alea() {
  return (function(args) {
    // Johannes Baagøe , 2010
    var s0 = 0;
    var s1 = 0;
    var s2 = 0;
    var c = 1;

    if (args.length == 0) {
      args = [+new Date];
    }
    var mash = function() {
       var n = 0xefc8249d;
    
       var mash = function(data) {
         data = data.toString();
         for (var i = 0; i < data.length; i++) {
           n += data.charCodeAt(i);
           var h = 0.02519603282416938 * n;
           n = h >>> 0;
           h -= n;
           h *= n;
           n = h >>> 0;
           h -= n;
           n += h * 0x100000000; // 2^32
         }
         return (n >>> 0) * 2.3283064365386963e-10; // 2^-32
       };
    
       //mash.version = 'Mash 0.9';
       return mash;
    }();
    s0 = mash(' ');
    s1 = mash(' ');
    s2 = mash(' ');

    for (var i = 0; i < args.length; i++) {
      s0 -= mash(args[i]);
      if (s0 < 0) {
        s0 += 1;
      }
      s1 -= mash(args[i]);
      if (s1 < 0) {
        s1 += 1;
      }
      s2 -= mash(args[i]);
      if (s2 < 0) {
        s2 += 1;
      }
    }
    mash = null;

    var random = function() {
      var t = 2091639 * s0 + c * 2.3283064365386963e-10; // 2^-32
      s0 = s1;
      s1 = s2;
      return s2 = t - (c = t | 0);
    };
    /*random.uint32 = function() {
      return random() * 0x100000000; // 2^32
    };
    random.fract53 = function() {
      return random() +
        (random() * 0x200000 | 0) * 1.1102230246251565e-16; // 2^-53
    };*/
    //random.version = 'Alea 0.9';
    random.args = args;
    return random;

  } (Array.prototype.slice.call(arguments)));
};var Random = $alea();
      var a = [0,0,0,0,0,0,0,0,0,0,0,0],
         i = 0;
      var s = 0;
      for(i=1;i<=100;i++) {
         ++a[(RandomInt(10))+1];
      }
      for(i=-1;i<=10;i++) {
         s+=a[(i)+1];
      }
      WriteLn(s);
      for(i=1;i<=50;i++) {
         --a[(RandomInt(10))+1];
      }
      for(i=-1;i<=10;i++) {
         s+=a[(i)+1];
      }
      WriteLn(s);