Anonymous user
Taxicab numbers: Difference between revisions
→{{header|REXX}}: replaced original program after somebody did some errant changes.
m (→{{header|Pascal}}: change to <lang pascal> for sysntax highlightning) |
(→{{header|REXX}}: replaced original program after somebody did some errant changes.) |
||
Line 1,871:
if H.3=='' | H.3==',' then H.3=2006 /*H3 " " high " " " " */
mx=max(L.1, H.1, L.2, H.2, L.3, H.3) /*find how many
mx=mx+mx%10; ww=length(mx)*3 /*cushion; compensate for the triples.*/
w=ww%2; numeric digits max(9,ww) /*prepare to use some larger numbers. */
| |||