Re: exercise in double number arithmetic

Here is a version with double numbers
and Pascal triangle
create table 50 50 2* * cells allot
table 50 50 2* * cells erase
: table.init 50 0 do 1. table i 50 * cells + 2! loop ;
table.init
: table.calc 49 1 do 50 1 do table j 1 - 50 * i 1 - 2* + cells + 2@
                             table j 1 - 50 * i     2* + cells + 2@ d+
                             table j     50 * i     2* + cells + 2!
loop loop ;
table.calc
table 42 50 * 21 2* + cells + 2@ d.
It gives  538257874440. (the same result)
Ahmed