Anonymous user
Fractran: Difference between revisions
m
→{{header|REXX}}: increased the number of numeric digits when using larger number of terms.
(→{{header|Common Lisp}}: Added.) |
m (→{{header|REXX}}: increased the number of numeric digits when using larger number of terms.) |
||
Line 586:
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.*/
numeric digits
parse arg N terms fracs /*get optional arguments from CL.*/
if N=='' | N==',' then N=2 /*N specified? No, use default.*/
|