Arbitrary-precision integers (included): Difference between revisions
Content added Content deleted
| Line 2,294: | Line 2,294: | ||
5**4**3**2 has 183231 digits |
5**4**3**2 has 183231 digits |
||
Value starts with 62060698786608744707, ends with 92256259918212890625 |
Value starts with 62060698786608744707, ends with 92256259918212890625 |
||
</pre> |
|||
=={{header|Transd}}== |
|||
<syntaxhighlight lang="Scheme">#lang transd |
|||
MainModule: { |
|||
a: BigLong(5), |
|||
ss: StringStream(), |
|||
s: "", |
|||
_start:(λ |
|||
(textout to: ss (pow a (pow 4 (pow 3 2)))) |
|||
(= s (str ss)) |
|||
(with len (size s) |
|||
(lout "The number of digits is: " len) |
|||
(lout (sub s 0 20) " ... " (sub s (- len 21)))) |
|||
) |
|||
}</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
The number of digits is: 183231 |
|||
62060698786608744707 ... 892256259918212890625 |
|||
</pre> |
</pre> |
||