Fractran: Difference between revisions
Content added Content deleted
(→{{header|Common Lisp}}: Added.) |
m (→{{header|REXX}}: increased the number of numeric digits when using larger number of terms.) |
||
Line 586: | Line 586: | ||
Programming note: extra blanks can be inserted in the fractions before and/or after the solidus ['''/''']. |
Programming note: extra blanks can be inserted in the fractions before and/or after the solidus ['''/''']. |
||
<lang rexx>/*REXX pgm runs FRACTAN for a given set of fractions and from a given N.*/ |
<lang rexx>/*REXX pgm runs FRACTAN for a given set of fractions and from a given N.*/ |
||
numeric digits |
numeric digits 1000 /*be able to handle larger nums. */ |
||
parse arg N terms fracs /*get optional arguments from CL.*/ |
parse arg N terms fracs /*get optional arguments from CL.*/ |
||
if N=='' | N==',' then N=2 /*N specified? No, use default.*/ |
if N=='' | N==',' then N=2 /*N specified? No, use default.*/ |