Anonymous user
Test integerness: Difference between revisions
m
→{{header|REXX}}: enhanced isInt subroutine to handle exponents larger than what REXX allows (for the exponent part of exponentiated numbers), added a ginormous number to 3rd version, allowed for wider numbers.
(→{{header|REXX}}: the isInt subroutine (function) was enhanced to handle big (gihugeic) integers.) |
m (→{{header|REXX}}: enhanced isInt subroutine to handle exponents larger than what REXX allows (for the exponent part of exponentiated numbers), added a ginormous number to 3rd version, allowed for wider numbers.) |
||
Line 261:
numeric digits 3000 /*be able to handle big integers.*/
parse arg #s /*get optional #s list from C.L. */
if #s='' then #s= '3.14 1.00000 33 999999999 99999999999 1e272 AA 0' ,
'1.000-3i 1.000-3.3i 4j 2.00000000+0j 0j 333 -1-i' ,
'1+i .00i j 0003-00.0j 1.2d1
'-.3q+2 -0i +03.0e+01+0.00e+20j -030.0e-001+0.0e-020j'
/* [↑] use these #s for defaults*/
Line 270:
x=translate(x, 'EEI', "QDJ") /*alt. exponent & imag indicator.*/
if right(x,1)=='I' then call tImag /*has the X number an imag. part?*/
if isInt(x) then say right(ox,
else say right(ox,
end /*j*/ /* [↑] process each # in list. */
exit /*stick a fork in it, we're done.*/
Line 277:
isInt: procedure; parse arg n /*obtain the number in question. */
if datatype(n, 'Whole') then return 1 /*it's a simple integer (small). */
parse var n 'E' p /*separate base from the 10's pow*/
if \datatype(n, 'Numn') then return 0 /*Not an integer if not a number.*/▼
return
/*──────────────────────────────────ISSIGN subroutine───────────────────*/
isSign: arg ? 2; return ?=='+' |?=='-' /*concise method to test a sign. */
Line 311 ⟶ 312:
'''output''' using the default input:
<pre>
3.14 isn't an integer.
1.00000 is an integer.
33 is an integer.
999999999 is an integer.
99999999999 is an integer.
1e272 is an integer.
AA isn't an integer.
0 is an integer.
1.000-3i isn't an integer.
1.000-3.3i isn't an integer.
4j isn't an integer.
2.00000000+0j is an integer.
0j is an integer.
333 is an integer.
-1-i isn't an integer.
1+i isn't an integer.
.00i is an integer.
j isn't an integer.
0003-00.0j is an integer.
1.2d1 is an integer.
2e55666 is an integer.
+0003-00.0j is an integer.
+0j is an integer.
-.3q+2 is an integer.
-0i is an integer.
+03.0e+01+0.00e+20j is an integer.
-030.0e-001+0.0e-020j is an integer.
</pre>
Line 351 ⟶ 352:
unaA='+ + - -' /*list of unary operators trans. */
parse arg #s /*get optional #s list from C.L. */
if #s='' then #s= '245+-00.0e-12i
'4.5e11111222223333344444555556666677777888889999900'
/* [↑] use these #s for defaults*/
do j=1 for words(#s); ox=word(#s,j) /*obtain a word from the #s list.*/
Line 366 ⟶ 368:
if right(x,1)=='J' then call tImag /*has the X number an imag. part?*/
if isInt(x) then say right(ox,
else say right(ox,
end /*j*/
exit /*stick a fork in it, we're done.*/
Line 373 ⟶ 375:
isInt: procedure; parse arg n /*obtain the number in question. */
if datatype(n, 'Whole') then return 1 /*it's a simple integer (small). */
parse var n 'E' p /*separate base from the 10's pow*/
if \datatype(n, 'Numn') then return 0 /*Not an integer if not a number.*/▼
return
/*──────────────────────────────────ISSIGN subroutine───────────────────*/
isSign: arg ? 2; return ?=='+' |?=='-' /*concise method to test a sign. */
Line 407 ⟶ 410:
'''output''' using the default input:
<pre>
245+-00.0e-12i is an integer.
245++++++0e+12j
--3450d-1----0.0d-1j is an integer.
4.5e11111222223333344444555556666677777888889999900 is an integer.
</pre>
| |||