Deutsch English Français Italiano |
<v6ckp1$obt$1@dont-email.me> View for Bookmarking (what is this?) Look up another Usenet article |
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