(35S) Perimeter of ellipse (Ramanujan 2nd Approximation)

[dlidstrom]

Here’s a SysRPL implementation using Jazz syntax:

Code:


::
 CK2NOLASTWD
 CK&DISPATCH2
 REALREAL
 ::
  0
  {{ a b h }}
  a b %- DUP %*
  a b %+ DUP %*
  %/ !h
  %PI a b %+ %*
  %1 %3 h %*
  %10 %4 %3 h %* %- %SQRT %+
  %/
  %+
  %*
 ;
;

112.5 bytes
# 9C0Eh