Path: csiph.com!eternal-september.org!feeder.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: Paul Rubin <no.email@nospam.invalid>
Newsgroups: comp.lang.forth
Subject: Re: Rosetta: Babbage problem
Date: Tue, 09 May 2017 20:43:34 -0700
Organization: A noiseless patient Spider
Lines: 8
Message-ID: <87mvall6l5.fsf@nightsong.com>
References: <oerulu$1tuq$1@gioia.aioe.org> <ab981ee5-550e-4be0-ad5d-39471ce05e2e@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain
Injection-Info: mx02.eternal-september.org; posting-host="c0be122a087bd9aec992b2a0fa3bd950"; logging-data="8421"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX1+SsmgZKPacosq3BN6dqw0v"
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux)
Cancel-Lock: sha1:wzKMMpsOMbz+GepTeHa7T50Kua0= sha1:PSJFaPCJZvcyjhWo2+hwACATNKE=
Xref: csiph.com comp.lang.forth:58918

mhx@iae.nl writes:
> FORTH> : babbage ( -- ) \ use all provided knowledge
>   #99736 #519 do  I I * #269696 - #1000000 mod 0=  ...

: check ( n -- flag ) dup * 1000000 mod 269696 = ;
: go ( -- ) 0 begin 1+ dup check if . exit then again ; 

go 25264  ok