aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Task/Jensens-Device/REXX/jensens-device.rexx
View file

@ -1,10 +1,12 @@
/*REXX program to demonstrate Jensen's device (call sub, arg by name). */
numeric digits 50 /*might as well get some accuracy*/
/*REXX program demonstrates Jensen's device (via call subroutine, and args by name).*/
numeric digits 90 /*use 90 decimal digits (9 is default).*/
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
say sum( 'i', "1", '100', "1/i" ) /*invoke SUM (100th harmonic num)*/
interpret 'do' j "=" start 'to' finish"; $=$+" exp '; end'
/* ──── ═ ─── ═════ ──── ══════────────── ═══ ───────── */
/* lit var lit var lit var literal var literal */
exit /*stick a fork in it, we're done.*/
/*──────────────────────────────────SUM subroutine──────────────────────*/
sum: procedure; parse arg i,start,finish,term; sum=0
interpret 'do' i "=" start 'to' finish"; sum=sum+" term '; end'
return sum
return $