AllAccepted answers
Vitaliy Serdtsev · Sep 23, 2019 
Class dc.test Extends %RegisteredObject
{

ClassMethod Run(
  a,
  b)
{
  w $$$FormatText("a=%1, b=%2",$g(a,"<null>"),$g(b,"<null>")),!
}

ClassMethod Test()
{
  s cName="dc.test",
    mName="Run",

    args=2,
    args(1)="2019-01-01",
    args(2)="1,2,3,4"
    
  d $classmethod(cName,mName,args...)
  
  k args
  s args=1,
    args(1)=77
  d $classmethod(cName,mName,args...)

  k args
  s args=2,
    args(2)=33
  d $classmethod(cName,mName,args...)

  k args
  s args=""
  d $classmethod(cName,mName,args...)
}

}

Result:

USER>d ##class(dc.test).Test()
a=2019-01-01, b=1,2,3,4
a=77, b=<null>
a=<null>, b=33
a=<null>, b=<null>
Vitaliy Serdtsev · Jul 29, 2019

I checked for versions 2009.1/2010.1: unfortunately, the $zu(114,0) returns nothing, therefore, remains variant with the command line.

Example for Windows, provided that the system has a single network card:

#include %syConfig
 n result
 w $zu(144,1,$$$DEFETHADDR),!,"------",!
 
 d $system.OBJ.DisplayError(##class(%Net.Remote.Utility).RunCommandViaCPIPE("getmac /NH /fo table",,.result))
 w $p(result," ",1)

PS: for other OS command line may be different.

Vitaliy Serdtsev · Jul 16, 2019

Intel i5-2400

10000 digits ~ 58 sec.

calcPI(n) public { 
  s $lb(len,nines,predigit,r)=$lb(10*n\3,0,0,"")
  
  f i=1:1:len s a(i)=2
  
  f j=1:1:n {
    s q=0
    f i=len:-1:1 s x=10*a(i)+(q*i), a(i)=x#(2*i-1), q=x\(2*i-1)
    s a(1)=q#10, q=q\10
    i q=9 {
      s nines=nines+1
    }elseif q=10 {
      s r=r_(predigit+1)_$$repeat^%qarfunc(0,nines), predigit=0, nines=0
    }else{
      s r=r_predigit, predigit=q
      s:nines r=r_$$repeat^%qarfunc(9,nines), nines=0
    }
  }
  q r_predigit
}
Vitaliy Serdtsev · Jul 10, 2019

Translation of: LUA

calcPILua(n=1000) public { 
  s len = 10*n\3,
    nines = 0,
    predigit = 0
  
  f j=1:1:len s a(j)=2
  
  f j=1:1:n {
    s q=0
    f i=len:-1:1 {
      s x = 10*a(i) + (q*i),
        a(i)=x#(2*i-1),
        q=x\(2*i-1)
    }
    s a(1)=q#10,
      q=q\10
    i q=9 {
      s nines = nines + 1
    }elseif q=10 {
      w predigit+1
      f k = 1:1:nines w 0
      s predigit = 0, nines = 0
    }else{
      w predigit
      s predigit = q
      i nines {
        f k = 1:1:nines w 9
        s nines = 0
      }
    }
  }
  w predigit
}

The result of this example is exactly the same as the result of the program C# (tested at n=10000).

Vitaliy Serdtsev · Jul 10, 2019

Translation of: BASIC256

calcPI(n=1000) public { 
  s len = 10*n\4,
    needdecimal = $$$YES,
    nines = 0,
    predigit = 0  ;# {First predigit is a 0}
   
  f j=1:1:len s a(j-1)=2 ;# {Start with 2s}
  
  f j=1:1:n {
    s q=0
    f i=len:-1:1 {
      ;#  {Work backwards}
      s x = 10*a(i-1) + (q*i),
        a(i-1)=x#(2*i-1),
        q=x\(2*i-1)
    }
    s a(0)=q#10,
      q=q\10
    i q=9 {
      s nines = nines + 1
    }elseif q=10 {
      s d = predigit+1 d outputd
      i nines>0 f k = 1:1:nines s d =  0 d outputd
      s predigit = 0, nines = 0
    }else{
      s d = predigit,predigit = q d outputd
      i nines {
        f k = 1:1:nines s d = 9 d outputd
        s nines = 0
      }
    }
  }
  w predigit
  q
   
outputd()
  if needdecimal {
     q:d=0
     w d_"."
     s needdecimal = $$$NO
  } else {
     w d
  }
}

The greater "n", the higher the accuracy.

If there is a lack of RAM, you can easily replace the local array "a" with globals ^||a or ^a.