Anonymous user
Subtractive generator: Difference between revisions
m
→{{header|REXX}}: added/changed comments and whitespace, changed indentations.
(Added Elixir) |
m (→{{header|REXX}}: added/changed comments and whitespace, changed indentations.) |
||
Line 1,346:
=={{header|REXX}}==
{{trans|PL/I}}
<lang rexx>/*REXX
numeric digits 20; s.0=292929; s.1=1; billion=10**9 /* ◄────────┐*/
cI=55; cJ=24; cP=34; billion=1e9 /*
do i=2 to cI-1
s.i=mod(s(i-2) - s(i-1), billion)
Line 1,364:
say right(r.y, 40)
end /*n*/
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
mod: procedure;
r:
s:
'''output''' when using the default input:
<pre>
|