Anonymous user
Distribution of 0 digits in factorial series: Difference between revisions
Distribution of 0 digits in factorial series (view source)
Revision as of 21:08, 10 June 2021
, 2 years ago→{{header|REXX}}: rewrite the function to strictly comply with the task's requirements, simplified the code.
m (→{{header|REXX}}: rewrite the function to strictly comply with the task's requirements, simplified the code.) |
|||
Line 227:
do j=1 for #; n= word($, j) /*calculate some factorial ranges. */
say center( commas(n), 11)'│' left(
▲ say center( commas(n), 11)'│' left(p/n, 75)... /*display the results for above range. */
end /*j*/
Line 236 ⟶ 235:
commas: parse arg ?; do jc=length(?)-3 to 1 by -3; ?=insert(',', ?, jc); end; return ?
/*──────────────────────────────────────────────────────────────────────────────────────*/
0dist: procedure; parse arg
do k=1 for
{{out|output|text= when using the default inputs:}}
<pre>
| |||