First class environments: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: changed comments and indentations and outout glyphs. -- ~~~~) |
m (→{{header|REXX}}: changed indentation, added whitespace. -- ~~~~) |
||
| Line 426: | Line 426: | ||
/*═════════════════════════════════════process environments until done. */ |
/*═════════════════════════════════════process environments until done. */ |
||
do forever until env_.0; |
do forever until env_.0; env_.0=1 |
||
do k=1 for #envs |
do k=1 for #envs |
||
env_.k=env_.k hailstone(k) /*where the rubber meets the road*/ |
env_.k=env_.k hailstone(k) /*where the rubber meets the road*/ |
||
| Line 433: | Line 433: | ||
/*═════════════════════════════════════show results in tabular form. */ |
/*═════════════════════════════════════show results in tabular form. */ |
||
count=0; do lines=-1 until _==''; _= |
count=0; do lines=-1 until _==''; _= |
||
do j=1 for #envs |
do j=1 for #envs |
||
select |
select |
||
when count== 1 then _=_ right(words(env_.j)-1,3) |
when count== 1 then _=_ right(words(env_.j)-1,3) |
||
| Line 443: | Line 443: | ||
end /*j*/ |
end /*j*/ |
||
if count==1 then count=2 |
if count==1 then count=2 |
||
_=strip(_,'T') |
_=strip(_,'T') |
||
if _=='' then count=count+1 |
if _=='' then count=count+1 |
||
if count==1 then _=copies(' ═══',#envs) |
if count==1 then _=copies(' ═══',#envs) |
||
if _\=='' then say substr(_,2) |
if _\=='' then say substr(_,2) |
||
end |
end /*lines*/ |
||
exit /*stick a fork in it, we're done.*/ |
exit /*stick a fork in it, we're done.*/ |
||