Check Machin-like formulas: Difference between revisions
Content added Content deleted
m (used italics.) |
m (→{{header|REXX}}: simplified the DO loop code.) |
||
| Line 1,897: | Line 1,897: | ||
do j=1 while @.j\=='' /*evaluate each "Machin─like" formulas.*/ |
do j=1 while @.j\=='' /*evaluate each "Machin─like" formulas.*/ |
||
interpret 'answer=' |
interpret 'answer=' @.j /*where REXX does the heavy lifting. */ |
||
say right( word( 'bad OK', answer+1), 3)": " |
say right( word( 'bad OK', answer + 1), 3)": " @.j |
||
end /*j*/ |
end /*j*/ |
||
exit /*stick a fork in it, we're all done. */ |
exit /*stick a fork in it, we're all done. */ |
||