Path: ...!weretis.net!feeder9.news.weretis.net!i2pn.org!i2pn2.org!.POSTED!not-for-mail
From: melahi_ahmed@yahoo.fr (Ahmed)
Newsgroups: comp.lang.forth
Subject: Re: exercise in double number arithmetic
Date: Sat, 6 Jul 2024 21:59:35 +0000
Organization: novaBBS
Message-ID: <9c8e8993d3413e65caf355ecc6ceea31@www.novabbs.com>
References: <v6c8v0$3usoe$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Info: i2pn2.org;
	logging-data="2397098"; mail-complaints-to="usenet@i2pn2.org";
	posting-account="hogn68ACS2mVV0PcPkBzD/3kIXL71Lu5zlxJ/QczJJE";
User-Agent: Rocksolid Light
X-Rslight-Site: $2y$10$yqBRaDN1eZL2hu9W2KvEqevR7wqWRHW1rncZDuYfbMRErd.7XerAG
X-Spam-Checker-Version: SpamAssassin 4.0.0
X-Rslight-Posting-User: cdd77cd46f5cefdf617b921703a970831cf47f35
Bytes: 1382
Lines: 16

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