Groups | Search | Server Info | Keyboard shortcuts | Login | Register
Groups > comp.lang.forth > #22907
| From | mhx@iae.nl (Marcel Hendrix) |
|---|---|
| Subject | Re: comp.lang.forth.applications |
| Newsgroups | comp.lang.forth |
| Message-ID | <63179409988434@frunobulax.edu> (permalink) |
| Date | 2013-05-26 09:18 +0200 |
| References | <226a64e4-07e3-404f-ada1-cb5b3c1d3f0b@googlegroups.com> |
| Organization | SunSITE.dk - Supporting Open source |
visualforth@rocketmail.com writes Re: comp.lang.forth.applications SPOILER warning (Euler 13) > On Friday, May 24, 2013 2:55:45 AM UTC-4, m.a.m....@tue.nl wrote: >> On Friday, May 24, 2013 3:35:57 AM UTC+2, visua...@rocketmail.com wrote: >> > On Thursday, May 23, 2013 11:38:11 AM UTC-4, Albert van der Horst wrote: >> >> > I'm a level 13 solver at projecteuler.net, solved about 350 problems. >> [..] >> > The result is 5537376230390876637302048746832985971773659831892672 >> > and the first ten digits are 5537376230 >> >> [..] >> >> The result is correct. >> >> You can derive this result in about one >> second using only bare Forth (no programming is necessary). >> >> Another hint: the source code for this problem counts 20 characters. > Marcel, you are making me curios! > I didn't show my coding here because it is two pages, too long, but I used Forth only, too. > > Please let me know your source code for this problem which counts 20 characters. The essential part is even less, but the complete program includes a bit of scaffolding that makes it 113 characters. : GET# BL WORD 1+ 14 >FLOAT DROP ; : GETSUM 0e 100 0 DO REFILL DROP GET# F+ LOOP F>D (D.) DROP 10 TYPE ; GETSUM [..data, 1 number/line..] -marcel
Back to comp.lang.forth | Previous | Next — Previous in thread | Next in thread | Find similar
comp.lang.forth.applications johno <email@address.com> - 2013-05-23 15:35 +0100
Re: comp.lang.forth.applications albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-05-23 15:38 +0000
Re: comp.lang.forth.applications "Elizabeth D. Rather" <erather@forth.com> - 2013-05-23 08:25 -1000
Re: comp.lang.forth.applications Mentifex <mentifex@myuw.net> - 2013-05-23 11:43 -0700
Re: comp.lang.forth.applications visualforth@rocketmail.com - 2013-05-23 18:35 -0700
Re: comp.lang.forth.applications Paul Rubin <no.email@nospam.invalid> - 2013-05-23 22:38 -0700
Re: comp.lang.forth.applications albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-05-24 08:52 +0000
Re: comp.lang.forth.applications visualforth@rocketmail.com - 2013-05-25 17:52 -0700
Re: comp.lang.forth.applications Paul Rubin <no.email@nospam.invalid> - 2013-05-25 18:18 -0700
Re: comp.lang.forth.applications Doug Hoffman <glidedog@gmail.com> - 2013-05-24 05:24 -0400
Re: comp.lang.forth.applications visualforth@rocketmail.com - 2013-05-25 18:12 -0700
Re: comp.lang.forth.applications "WJ" <w_a_x_man@yahoo.com> - 2013-06-08 11:46 +0000
Re: comp.lang.forth.applications Doug Hoffman <glidedog@gmail.com> - 2013-06-08 08:55 -0400
Re: comp.lang.forth.applications "WJ" <w_a_x_man@yahoo.com> - 2013-06-09 19:21 +0000
Re: comp.lang.forth.applications m.a.m.hendrix@tue.nl - 2013-05-23 23:55 -0700
Re: comp.lang.forth.applications visualforth@rocketmail.com - 2013-05-25 17:40 -0700
Re: comp.lang.forth.applications mhx@iae.nl (Marcel Hendrix) - 2013-05-26 09:18 +0200
Re: comp.lang.forth.applications Paul Rubin <no.email@nospam.invalid> - 2013-05-26 00:24 -0700
Euler 13 [Was: comp.lang.forth.applications] Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-05-26 02:36 -0500
Re: Euler 13 Paul Rubin <no.email@nospam.invalid> - 2013-05-26 01:02 -0700
Re: Euler 13 Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-05-26 06:34 -0500
Re: Euler 13 Paul Rubin <no.email@nospam.invalid> - 2013-05-26 10:13 -0700
Re: Euler 13 visualforth@rocketmail.com - 2013-05-26 15:32 -0700
Re: Euler 13 Paul Rubin <no.email@nospam.invalid> - 2013-05-26 15:40 -0700
Euler 13 [Was: comp.lang.forth.applications] mhx@iae.nl (Marcel Hendrix) - 2013-05-26 11:06 +0200
Re: Euler 13 [Was: comp.lang.forth.applications] mhx@iae.nl - 2013-05-26 02:28 -0700
Re: Euler 13 [Was: comp.lang.forth.applications] "David N. Williams" <williams@umich.edu> - 2013-05-26 10:19 -0400
Re: Euler 13 [Was: comp.lang.forth.applications] visualforth@rocketmail.com - 2013-05-26 15:24 -0700
Re: Euler 13 [Was: comp.lang.forth.applications] Coos Haak <chforth@hccnet.nl> - 2013-05-27 01:11 +0200
Re: Euler 13 [Was: comp.lang.forth.applications] visualforth@rocketmail.com - 2013-05-26 22:36 -0700
Re: Euler 13 [Was: comp.lang.forth.applications] Alex McDonald <blog@rivadpm.com> - 2013-05-27 01:49 -0700
Re: Euler 13 [Was: comp.lang.forth.applications] anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-05-27 08:56 +0000
Re: Euler 13 [Was: comp.lang.forth.applications] "David N. Williams" <williams@umich.edu> - 2013-05-27 08:04 -0400
Re: Euler 13 [Was: comp.lang.forth.applications] humptydumpty <ouatubi@gmail.com> - 2013-05-27 12:55 -0700
Re: Euler 13 [Was: comp.lang.forth.applications] albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-05-26 17:24 +0000
Re: Euler 13 [Was: comp.lang.forth.applications] albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-05-26 17:26 +0000
Re: Euler 13 Paul Rubin <no.email@nospam.invalid> - 2013-05-26 21:25 -0700
Re: Euler 13 albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-05-27 12:13 +0000
Re: Euler 13 Paul Rubin <no.email@nospam.invalid> - 2013-05-27 07:44 -0700
Re: comp.lang.forth.applications Paul Rubin <no.email@nospam.invalid> - 2013-05-26 01:04 -0700
Re: comp.lang.forth.applications visualforth@rocketmail.com - 2013-05-26 15:05 -0700
Re: comp.lang.forth.applications mhx@iae.nl (Marcel Hendrix) - 2013-05-27 01:12 +0200
Re: comp.lang.forth.applications visualforth@rocketmail.com - 2013-05-26 22:32 -0700
Re: comp.lang.forth.applications "Ed" <invalid@invalid.com> - 2013-05-24 12:00 +1000
Re: comp.lang.forth.applications stephenXXX@mpeforth.com (Stephen Pelc) - 2013-05-24 10:16 +0000
Re: comp.lang.forth.applications "Ed" <invalid@invalid.com> - 2013-05-24 20:44 +1000
Re: comp.lang.forth.applications Doug Hoffman <glidedog@gmail.com> - 2013-05-24 07:03 -0400
Re: comp.lang.forth.applications "Ed" <invalid@invalid.com> - 2013-05-27 22:00 +1000
Re: comp.lang.forth.applications "Elizabeth D. Rather" <erather@forth.com> - 2013-05-27 08:08 -1000
Re: comp.lang.forth.applications "Ed" <invalid@invalid.com> - 2013-05-29 13:56 +1000
Re: comp.lang.forth.applications albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-05-29 04:05 +0000
Re: comp.lang.forth.applications rickman <gnuarm@gmail.com> - 2013-05-29 16:25 -0400
Re: comp.lang.forth.applications albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-05-30 00:31 +0000
Re: comp.lang.forth.applications "Paul E. Bennett" <Paul_E.Bennett@topmail.co.uk> - 2013-05-27 23:34 +0100
Re: comp.lang.forth.applications "Ed" <invalid@invalid.com> - 2013-05-29 13:51 +1000
Re: comp.lang.forth.applications Alex McDonald <blog@rivadpm.com> - 2013-05-29 00:14 -0700
Re: comp.lang.forth.applications Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-05-29 04:01 -0500
Re: comp.lang.forth.applications rickman <gnuarm@gmail.com> - 2013-05-29 16:35 -0400
Re: comp.lang.forth.applications rickman <gnuarm@gmail.com> - 2013-06-08 22:16 -0400
Re: comp.lang.forth.applications Brad Eckert <hwfwguy@gmail.com> - 2013-06-10 14:17 -0700
Re: comp.lang.forth.applications stephenXXX@mpeforth.com (Stephen Pelc) - 2013-05-24 12:30 +0000
Re: comp.lang.forth.applications the_gavino_himself <visphatesjava@gmail.com> - 2013-05-24 23:14 -0700
Re: comp.lang.forth.applications rickman <gnuarm@gmail.com> - 2013-05-26 22:18 -0400
Re: comp.lang.forth.applications Paul Rubin <no.email@nospam.invalid> - 2013-05-24 07:57 -0700
Re: comp.lang.forth.applications Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-05-24 10:33 -0500
Re: comp.lang.forth.applications stephenXXX@mpeforth.com (Stephen Pelc) - 2013-05-24 16:34 +0000
Re: comp.lang.forth.applications Paul Rubin <no.email@nospam.invalid> - 2013-05-24 10:23 -0700
Re: comp.lang.forth.applications "Paul E. Bennett" <Paul_E.Bennett@topmail.co.uk> - 2013-05-24 20:00 +0100
Re: comp.lang.forth.applications "Elizabeth D. Rather" <erather@forth.com> - 2013-05-24 09:32 -1000
Re: comp.lang.forth.applications Paul Rubin <no.email@nospam.invalid> - 2013-05-24 20:18 -0700
Re: comp.lang.forth.applications "Elizabeth D. Rather" <erather@forth.com> - 2013-05-24 19:31 -1000
Re: comp.lang.forth.applications oh2aun@gmail.com - 2013-05-23 20:56 -0700
Re: comp.lang.forth.applications the_gavino_himself <visphatesjava@gmail.com> - 2013-05-24 23:02 -0700
Re: comp.lang.forth.applications rickman <gnuarm@gmail.com> - 2013-06-08 19:21 -0400
csiph-web