Re: exercise in double number arithmetic

Why using double arithmetic when we can use simply Pascal triangle?
create table 50 50 * cells allot
table 50 50 * cells erase
: table.init 50 0 do 1 table i 50 * cells + ! loop ;
table.init
: table.calc 49 1 do 50 1 do table j 1 - 50 * i 1 - + cells + @
                             table j 1 - 50 * i     + cells + @ +
                             table j     50 * i     + cells + !
loop loop ;
table.calc
table 42 50 * 21 + cells + @ . 538257874440
Ahmed