Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > comp.lang.forth > #45554
| From | Paul Rubin <no.email@nospam.invalid> |
|---|---|
| Newsgroups | comp.lang.forth |
| Subject | Re: Rosetta code reverse a string |
| Date | 2016-02-15 15:14 -0800 |
| Organization | A noiseless patient Spider |
| Message-ID | <87d1rx8t35.fsf@jester.gateway.pace.com> (permalink) |
| References | <e69b019d-9102-4232-b3e0-c6b524056bfd@googlegroups.com> |
foxaudioresearch@gmail.com writes: > I have been at it again. > By defining a string stack and NEXTWORD I could create SPLIT and REVERSE. > My system has PAD in free memory. I know this won't work with every system. > ... create buf 1000 chars allot buf value pp : tr ( caddr u -- ) dup >r pp swap cmove r> pp + to pp ; : collect begin parse-name dup while tuck pp >r tr r> swap repeat ; : >> buf to pp collect 2drop depth 2/ 0 ?do type bl emit loop cr ; >> ---------- Ice and Fire ------------ >> >> fire, in end will world the say Some >> ice. in say Some >> desire of tasted I've what From >> fire. favor who those with hold I >> >> ... elided paragraph last ... >> >> Frost Robert ----------------------- bye
Back to comp.lang.forth | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread
Rosetta code reverse a string foxaudioresearch@gmail.com - 2016-02-15 13:22 -0800
Re: Rosetta code reverse a string Paul Rubin <no.email@nospam.invalid> - 2016-02-15 15:14 -0800
Re: Rosetta code reverse a string foxaudioresearch@gmail.com - 2016-02-15 16:49 -0800
Re: Rosetta code reverse a string Paul Rubin <no.email@nospam.invalid> - 2016-02-15 20:27 -0800
Re: Rosetta code reverse a string anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2016-02-16 07:25 +0000
Re: Rosetta code reverse a string Doug Hoffman <glidedog@gmail.com> - 2016-02-16 05:30 -0500
Re: Rosetta code reverse a string Albert van der Horst <albert@spenarnc.xs4all.nl> - 2016-02-16 11:55 +0000
Re: Rosetta code reverse a string anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2016-02-16 13:44 +0000
Re: Rosetta code reverse a string Albert van der Horst <albert@spenarnc.xs4all.nl> - 2016-02-16 14:45 +0000
Re: Rosetta code reverse a string anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2016-02-16 16:22 +0000
Re: Rosetta code reverse a string Paul Rubin <no.email@nospam.invalid> - 2016-02-16 13:25 -0800
Re: Rosetta code reverse a string anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2016-02-17 07:07 +0000
Re: Rosetta code reverse a string Paul Rubin <no.email@nospam.invalid> - 2016-02-16 23:29 -0800
Re: Rosetta code reverse a string Albert van der Horst <albert@spenarnc.xs4all.nl> - 2016-02-16 11:46 +0000
Re: Rosetta code reverse a string "WJ" <w_a_x_man@yahoo.com> - 2016-02-16 18:25 +0000
Re: Rosetta code reverse a string humptydumpty <ouatubi@gmail.com> - 2016-02-16 13:40 -0800
Re: Rosetta code reverse a string "WJ" <w_a_x_man@yahoo.com> - 2016-06-28 01:55 +0000
Re: Rosetta code reverse a string "HAA" <someone@microsoft.com> - 2016-06-29 11:45 +1000
csiph-web