Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > comp.lang.forth > #54073
| 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 Code: Accumulator factory |
| Date | Tue, 17 Jan 2017 01:38:53 -0800 |
| Organization | A noiseless patient Spider |
| Lines | 15 |
| Message-ID | <877f5uxbyq.fsf@nightsong.com> (permalink) |
| References | <o5kmev$tfm$1@gioia.aioe.org> |
| Mime-Version | 1.0 |
| Content-Type | text/plain |
| Injection-Info | mx02.eternal-september.org; posting-host="1bb5d3c7e4be5582c88db682aced0442"; logging-data="20793"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1+EsBbhU03Uia6uX1wQLH66" |
| User-Agent | Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux) |
| Cancel-Lock | sha1:cnJp6kCJsSg1o82blY5mO0LZogw= sha1:Gut7AWd2/vndPvTGAg6EHNV0CRI= |
| Xref | csiph.com comp.lang.forth:54073 |
Show key headers only | View raw
"Robert L." <No_spamming@noWhere_7073.org> writes: > f20 = factory(20) > f500 = factory(500) > p f500.call(3) ; p f500[3.0] ; p f500.(3) : acc ( n -- ) CREATE , DOES> ( n a -- n ) tuck @ + over ! @ ; 20 acc f20 ok 500 acc f500 ok 3 f500 . 503 ok 2 f20 . 22 ok 2 f20 . 24 ok 5 f500 . 508 ok 3 f20 . 27 ok
Back to comp.lang.forth | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread
Rosetta Code: Accumulator factory "Robert L." <No_spamming@noWhere_7073.org> - 2017-01-17 09:00 +0000
Re: Rosetta Code: Accumulator factory Paul Rubin <no.email@nospam.invalid> - 2017-01-17 01:38 -0800
Re: Rosetta Code: Accumulator factory anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2017-01-17 13:54 +0000
Re: Rosetta Code: Accumulator factory Paul Rubin <no.email@nospam.invalid> - 2017-01-17 13:10 -0800
Re: Rosetta Code: Accumulator factory Andrew Haley <andrew29@littlepinkcloud.invalid> - 2017-01-18 03:15 -0600
Re: Rosetta Code: Accumulator factory anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2017-01-18 13:43 +0000
Re: Rosetta Code: Accumulator factory Paul Rubin <no.email@nospam.invalid> - 2017-01-18 13:20 -0800
Re: Rosetta Code: Accumulator factory albert@cherry.spenarnc.xs4all.nl (Albert van der Horst) - 2017-01-19 02:40 +0100
Re: Rosetta Code: Accumulator factory anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2017-01-19 16:27 +0000
csiph-web