Anonymous user
Pell's equation: Difference between revisions
m
→{{header|REXX}}: aligned some statements.
m (→{{header|REXX}}: added commas to the huge numbers, simplified the SAY expressions for the output of X and Y.) |
m (→{{header|REXX}}: aligned some statements.) |
||
Line 968:
if $=='' | $=="," then $= 61 109 181 277 /*Not specified? Then use the defaults*/
d= 28 /*used for aligning the output numbers.*/
do j=1 for words($); #= word($, j)
parse value pells(#) with x y
cx= comma(x); Lcx= length(cx); cy= comma(y);
say 'x^2 -'right(#, max(4,
end /*j*/
exit 0 /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
| |||