Re: Rosetta code reverse a string

Path	csiph.com!eternal-september.org!feeder.eternal-september.org!mx02.eternal-september.org!.POSTED!not-for-mail
From	Paul Rubin <no.email@nospam.invalid>
Newsgroups	comp.lang.forth
Subject	Re: Rosetta code reverse a string
Date	Mon, 15 Feb 2016 15:14:06 -0800
Organization	A noiseless patient Spider
Lines	26
Message-ID	<87d1rx8t35.fsf@jester.gateway.pace.com> (permalink)
References	<e69b019d-9102-4232-b3e0-c6b524056bfd@googlegroups.com>
Mime-Version	1.0
Content-Type	text/plain
Injection-Info	mx02.eternal-september.org; posting-host="89fc4f87faf042e7e4d428a3639a51e3"; logging-data="31655"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1+MwYYyYOto6vLmt9SoNCVq"
User-Agent	Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux)
Cancel-Lock	sha1:tZQHzjbelNGGX4N+r769jupIGgg= sha1:GCILXcQ0S5dhKSDDPvuqu+TqauA=
Xref	csiph.com comp.lang.forth:45554

Show key headers only | View raw

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

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