9 lines
250 B
Forth
9 lines
250 B
Forth
: more ( "digits" -- ) \ store "1234" as 1 c, 2 c, 3 c, 4 c,
|
|
parse-word bounds ?do
|
|
i c@ [char] 0 - c,
|
|
loop ;
|
|
|
|
create bignum
|
|
more 73167176531330624919225119674426574742355349194934
|
|
more 96983520312774506326239578318016984801869478851843
|
|
...
|