open array 3

Smart pascal source code


procedure sss(const arr: array of const);
begin
  WriteLn(Length(arr));
  WriteLn(': ');
  var   i: Integer;
  for i := 0 to Length(arr) - 1 do
  begin
    WriteLn(arr[i]);
    WriteLn(',');
  end;
  WriteLn('');
end;

procedure sss2(const arr: array of const);
begin
  sss(arr);
end;

sss2([]);
sss2([1]);
sss2([2, 3]);
sss2(['four', 'five', 'six']);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
0: 
1: 1,
2: 2,3,
3: four,five,six,
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function sss(arr$1) {
   var i = 0;
   WriteLn(arr$1.length);
   WriteLn(": ");
   var $temp1;
   for(i=0,$temp1=arr$1.length;i<$temp1;i++) {
      WriteLn($DIdxR(arr$1,i,""));
      WriteLn(",");
   }
   WriteLn("");
};

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

   sss2([]);
   sss2([1]);
   sss2([2, 3]);
   sss2(["four", "five", "six"]);