Draw a sphere: Difference between revisions
Content deleted Content added
m →{{header|REXX}}: removed superflous blanks. -- ~~~~ |
m →{{header|REXX}}: change internal subroutine name. -- ~~~~ |
||
Line 1,528:
/*─────────────────────────────────────"1─liner" subroutines────────────*/
sqrt: procedure expose $.; parse arg x; if x=0 then return 0; d=digits()
numeric digits 11; g=
do k=j+5 to 0 by -1; if m.k>11 then numeric digits m.k
g=.5*(g+x/g); end; numeric digits d; return g/1
ceil: procedure; parse arg x; _=trunc(x); return _+(x>0)*(x\=_)
floor: procedure; parse arg x; _=trunc(x); return _-(x<0)*(x\=_)</lang>
'''output'''
<pre style="height:105ex;overflow:scroll">
eeeeeeeeee@@@@@@@
|