Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.forth > #58924

Re: Rosetta: Babbage problem

Newsgroups comp.lang.forth
Date 2017-05-09 23:43 -0700
References <oerulu$1tuq$1@gioia.aioe.org> <ab981ee5-550e-4be0-ad5d-39471ce05e2e@googlegroups.com> <87mvall6l5.fsf@nightsong.com>
Message-ID <799db5cd-cad1-4fd3-999d-e0effce1fd80@googlegroups.com> (permalink)
Subject Re: Rosetta: Babbage problem
From Julian Fondren <julian.fondren@gmail.com>

Show all headers | View raw

On Tuesday, May 9, 2017 at 10:43:37 PM UTC-5, Paul Rubin wrote:
> 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

  : go ( -- ) 0 begin 1+ dup check until . ;  ok
  go 25264  ok

:)

Back to comp.lang.forth | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread

Thread

Rosetta: Babbage problem "Robert L." <No_spamming@noWhere_7073.org> - 2017-05-09 08:29 +0000
  Re: Rosetta: Babbage problem mhx@iae.nl - 2017-05-09 12:58 -0700
    Re: Rosetta: Babbage problem Paul Rubin <no.email@nospam.invalid> - 2017-05-09 20:43 -0700
      Re: Rosetta: Babbage problem Julian Fondren <julian.fondren@gmail.com> - 2017-05-09 23:43 -0700
        Re: Rosetta: Babbage problem Lars Brinkhoff <lars.spam@nocrew.org> - 2017-05-10 09:06 +0200
          Re: Rosetta: Babbage problem Julian Fondren <julian.fondren@gmail.com> - 2017-05-10 00:27 -0700
            Re: Rosetta: Babbage problem Lars Brinkhoff <lars.spam@nocrew.org> - 2017-05-10 09:32 +0200
          Re: Rosetta: Babbage problem Paul Rubin <no.email@nospam.invalid> - 2017-05-10 00:59 -0700
            Re: Rosetta: Babbage problem Andrew Haley <andrew29@littlepinkcloud.invalid> - 2017-05-10 08:14 -0500
      Re: Rosetta: Babbage problem mhx@iae.nl - 2017-05-10 02:59 -0700
        Re: Rosetta: Babbage problem Bruno Gauthier <bgauthier@free.fr> - 2017-05-15 12:25 +0200
          Re: Rosetta: Babbage problem mhx@iae.nl - 2017-05-15 04:17 -0700
            Re: Rosetta: Babbage problem Bruno Gauthier <bgauthier@free.fr> - 2017-05-15 13:48 +0200
              Re: Rosetta: Babbage problem Julian Fondren <julian.fondren@gmail.com> - 2017-05-15 04:56 -0700
                Re: Rosetta: Babbage problem Bruno Gauthier <bgauthier@free.fr> - 2017-05-15 16:33 +0200
              Re: Rosetta: Babbage problem mhx@iae.nl - 2017-05-15 10:53 -0700
              Re: Rosetta: Babbage problem albert@cherry.spenarnc.xs4all.nl (Albert van der Horst) - 2017-05-15 21:39 +0200
  Re: Rosetta: Babbage problem "Robert L." <No_spamming@noWhere_7073.org> - 2017-05-18 09:23 +0000
    Re: Rosetta: Babbage problem "Robert L." <No_spamming@noWhere_7073.org> - 2017-05-18 09:29 +0000

csiph-web