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

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Task/Statistics-Basic/REXX/statistics-basic.rexx
View file

@ -11,12 +11,11 @@ if datatype(seed,'W') then call random ,,seed /*allow a seed for the RANDO
#._=#._+1 /* ··· and bump its count. */
end /*j*/
do k=0 for 10 /*show a histogram of the bins. */
do k=0 for 10; kp=k+1 /*show a histogram of the bins. */
lr='0.'k ; if k==0 then lr="0 " /*adjust for the low range. */
hr='0.'||(k+1); if k==9 then hr="1 " /* " " " high range. */
range=lr"──►"hr' ' /*construct the range. */
hr='0.'kp ; if k==9 then hr="1 " /* " " " high range. */
barPC=right(strip(left(format(100*#.k/size, , 2), 5)) ,5) /*compute the %. */
say range barPC copies('─', format(barPC*1, , 0)) /*display histogram*/
say lr"──►"hr' ' barPC copies('─', format(barPC*1, , 0)) /*display histogram*/
end /*k*/
say
say 'sample size = ' size; say