Path: ...!3.eu.feeder.erje.net!feeder.erje.net!weretis.net!feeder8.news.weretis.net!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: Krishna Myneni <krishna.myneni@ccreweb.org>
Newsgroups: comp.lang.forth
Subject: Re: exercise in double number arithmetic
Date: Sat, 6 Jul 2024 18:42:25 -0500
Organization: A noiseless patient Spider
Lines: 29
Message-ID: <v6ckp1$obt$1@dont-email.me>
References: <v6c8v0$3usoe$1@dont-email.me>
 <d8c4fb485e3902438986317b3ed41330@www.novabbs.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Date: Sun, 07 Jul 2024 01:42:26 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="ff7811a63fb4d5a12aa696e08a20351d";
	logging-data="24957"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX19xkfVJD0OWArHYOwrFm0io"
User-Agent: Mozilla Thunderbird
Cancel-Lock: sha1:xHULVKzH+pWkvt3boggEliA++OE=
Content-Language: en-US
In-Reply-To: <d8c4fb485e3902438986317b3ed41330@www.novabbs.com>
Bytes: 1880

On 7/6/24 17:07, Ahmed wrote:
> 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)
> 

This version works on both 32-bit and 64-bit Forth systems.

--
Krishna