Largest int from concatenated ints: Difference between revisions
Content added Content deleted
m (→exponentiated integers: added a comment to the REXX section header.) |
Walterpachl (talk | contribs) (→Version 4: improved the function integer to handle the kast case) |
||
| Line 2,146: | Line 2,146: | ||
If Datatype(z,'W') Then |
If Datatype(z,'W') Then |
||
Return z+0 |
Return z+0 |
||
Else |
Else Do |
||
If Datatype(z)=num Then Do |
|||
Do i=1 To 4 |
|||
dig= digits()*10 |
|||
Numeric Digits dig |
|||
If Datatype(z,'W') Then |
|||
Return z+0 |
|||
End |
|||
Say 'Illegal integer:' z |
|||
Return '?' |
|||
End |
|||
Return '?' |
Return '?' |
||
End |
|||
largeint: Procedure |
largeint: Procedure |
||
| Line 2,178: | Line 2,189: | ||
4 45 54 5 -> 554454 |
4 45 54 5 -> 554454 |
||
4 45 54 5 6.6e77 -> 660000000000000000000000000000000000000000000000000000000000000000000000000000554454 |
4 45 54 5 6.6e77 -> 660000000000000000000000000000000000000000000000000000000000000000000000000000554454 |
||
Illegal integer: .2 |
|||
3 3 .2 -> ** invalid ** bad integer .2 |
3 3 .2 -> ** invalid ** bad integer .2 |
||
4 45 54 5 6.6e1001 -> 660000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000554454</pre> |
|||
4 45 54 5 6.6e1001 -> ** invalid ** bad integer 6.6e1001</pre> |
|||
=={{header|Ring}}== |
=={{header|Ring}}== |
||