Rosetta Code

Jensen's Device: Difference between revisions

Page Discussion

Jensen's Device (view source)

Revision as of 08:59, 7 November 2019

141 bytes removed ,  4 years ago
m
→‎{{header|REXX}}: added whitespace, split a compound statement.
m (→‎{{header|REXX}}: added whitespace, split a compound statement.)
Line 1,288:
 
=={{header|REXX}}==
<lang rexx>/*REXX program demonstrates Jensen's device (via call subroutine, and args by name). */▼
Note: &nbsp; the 2<sup>nd</sup> and 3<sup>rd</sup> arguments for the &nbsp; '''sum''' &nbsp; function needn't be enclosed in quotes &nbsp; (as they're numeric);
parse arg d . /*obtain optional argument from the CL.*/
<br>they were enclosed just to be consistent with the other arguments.
parse arg d .; if d=='' | d=="," then d= 100 /*Not specified? Then use the default.*/▼
▲<lang rexx>/*REXX program demonstrates Jensen's device (via call subroutine, and args by name).*/
▲parse arg d .; if d=='' | d=="," then d=100 /*Not specified? Then use the default.*/
numeric digits d /*use D decimal digits (9 is default)*/
say 'using ' d " decimal digits:" /*display what's being used for digits.*/
say
say sum( 'i', "1", '100', "1/i" ) /*invoke SUM (100th harmonic number).*/
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
sum: procedure; parse arg j,start,finish,exp; $= 0
 
interpret 'do' j "=" start 'to' finish "; $=$+" exp '; end'
 
/*comment /* ──── ═ ─── ═════ ──── ══════──────────══════ ────────── ═══ ───────── */
/*comment /* lit var lit var lit var literal var literal */
 
return $</lang>
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/88886"