Anonymous user
Largest int from concatenated ints: Difference between revisions
Largest int from concatenated ints (view source)
Revision as of 06:28, 30 January 2018
, 6 years ago→exponentiated integers: simplified the NORM function.
m (→simple integers: simplified the NORM function.) |
m (→exponentiated integers: simplified the NORM function.) |
||
Line 2,013:
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
norm: arg i; #=word(z, i); er=' ***error*** ';
if \datatype(#,'N') then do; say er 'number' # "isn't an number."; exit 13; end
else #=
if pos('E',#)>0 then do; parse var # mant "E" pow /*Has exponent? Expand*/
numeric digits pow + length(mand) /*expand digs, adjust#*/
| |||