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

Groups > comp.lang.forth > #46263

Re: 4th.CoSy : Is your head small enough ?

Newsgroups comp.lang.forth
Date 2016-03-28 14:03 -0700
References <396c683d-9c79-4845-a6c4-a3fade0c411c@googlegroups.com> <ndacrr$e4u$1@dont-email.me> <ndader$fba$1@dont-email.me>
Message-ID <03c79cae-e685-4be9-9d01-384dcb641d3f@googlegroups.com> (permalink)
Subject Re: 4th.CoSy : Is your head small enough ?
From Bob Armstrong <bob@cosy.com>

Show all headers | View raw

On Sunday, March 27, 2016 at 10:58:06 PM UTC-6, WJ wrote:
> WJ wrote:
> 
> > Bob Armstrong wrote:
> > 
> > > I'd just like to let everybody know that I feel
> > > 4th.CoSy , http://www.cosy.com/CoSy/ , is past the
> > > bushwhacking stage and provides a solid foundation
> > > for APL level vocabulary on reference counted
> > > lists of lists  in an open x86 FORTH . I gave a
> > > demo last Forth Day at Stanford ,
> > > https://youtu.be/0u2_jKfo0A8?t=2h48m30s .
> > > 
> > > If minimal but everyday practical attracts you , check out my
> > > 
> > >  "Seeking Alphas" , http://cosy.com/y16/CoSy201601.html
> > 
> > That page shows:
> > 
> > 
> > >   s"  CoSy NEEDS MORE HEADS" >t0> rho  ( |>| 22 | ) 
> > >   t0 i( 7 23 )i take >t0>
> > >   t0 dup ' reverse 'm ' cL each 
> > >   R0 dup reverse cL
> > > ( 
> > >  s"  CoSy NEEDS MORE HEADS  SDAEH EROM SDEEN ySoC " 
> > >  s" CoSy NEEDS MORE HEADS CC SDAEH EROM SDEEN ySoC" 
> > >  s" oSy NEEDS MORE HEADS CooC SDAEH EROM SDEEN ySo" 
> > >  s" Sy NEEDS MORE HEADS CoSSoC SDAEH EROM SDEEN yS" 
> > >  s" y NEEDS MORE HEADS CoSyySoC SDAEH EROM SDEEN y" 
> > >  s"  NEEDS MORE HEADS CoSy  ySoC SDAEH EROM SDEEN " 
> > >  s" NEEDS MORE HEADS CoSy NN ySoC SDAEH EROM SDEEN" 
> > >  s" NEEDS MORE HEADS CoSy NN ySoC SDAEH EROM SDEEN" 
> > >  s"  NEEDS MORE HEADS CoSy  ySoC SDAEH EROM SDEEN " 
> > >  s" y NEEDS MORE HEADS CoSyySoC SDAEH EROM SDEEN y" 
> > >  s" Sy NEEDS MORE HEADS CoSSoC SDAEH EROM SDEEN yS" 
> > >  s" oSy NEEDS MORE HEADS CooC SDAEH EROM SDEEN ySo" 
> > >  s" CoSy NEEDS MORE HEADS CC SDAEH EROM SDEEN ySoC" 
> > >  s"  CoSy NEEDS MORE HEADS  SDAEH EROM SDEEN ySoC " 
> > >  )
> > 
> > That looked like an interesting challenge, so I
> > tried it in Ruby.
> > 
> > mirror=->(x){x+x.reverse}
> > s=" RUBY IS FUN ";puts mirror[(0..6).to_a].map{|i|
> >   mirror[s.chars.rotate i].join}
> > 
> >  RUBY IS FUN  NUF SI YBUR
> > RUBY IS FUN    NUF SI YBUR
> > UBY IS FUN  RR  NUF SI YBU
> > BY IS FUN  RUUR  NUF SI YB
> > Y IS FUN  RUBBUR  NUF SI Y
> >  IS FUN  RUBYYBUR  NUF SI
> > IS FUN  RUBY  YBUR  NUF SI
> > IS FUN  RUBY  YBUR  NUF SI
> >  IS FUN  RUBYYBUR  NUF SI
> > Y IS FUN  RUBBUR  NUF SI Y
> > BY IS FUN  RUUR  NUF SI YB
> > UBY IS FUN  RR  NUF SI YBU
> > RUBY IS FUN    NUF SI YBUR
> >  RUBY IS FUN  NUF SI YBUR
> 
> Shorter:
> 
> mirror=->(x){x+x.reverse}
> puts mirror[(0..6).to_a].map{|i| mirror[" RUBY IS FUN ".chars.rotate i].join}

Realize that in my demo I split each step into separate lines so the result of each operation would be displayed .

Here's a version of the demo in K which is by far the major direct influence on 4th.CoSy :

  demo
   Try eg : demo "THANK YOU ! "  .  Showed it to Vidal Sasson ~ `82 
  { t0 , | t0 :  x ,' |:' x : 11 37 # x }

Note that K ( and 4th.CoSy ) being essentially functional , the expression above only outputs the result matrix if not assigned to something . E.g :
  Q : demo "THANK YOU ! "
  ^ Q
22 74 

Over the decades there has been a lot of borrowing of concepts from APL and a lot of convergent evolution .

Is there any Ruby written in Forth ?

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

Thread

4th.CoSy : Is your head small enough ? Bob Armstrong <bob@cosy.com> - 2016-03-27 14:30 -0700
  Re: 4th.CoSy : Is your head small enough ? hughaguilar96@gmail.com - 2016-03-27 15:03 -0700
    Re: 4th.CoSy : Is your head small enough ? "WJ" <w_a_x_man@yahoo.com> - 2016-03-28 04:20 +0000
    Re: 4th.CoSy : Is your head small enough ? Bob Armstrong <bob@cosy.com> - 2016-03-28 12:50 -0700
      Re: 4th.CoSy : Is your head small enough ? hughaguilar96@gmail.com - 2016-03-28 13:53 -0700
        Re: 4th.CoSy : Is your head small enough ? foxaudioresearch@gmail.com - 2016-03-28 18:32 -0700
          Re: 4th.CoSy : Is your head small enough ? hughaguilar96@gmail.com - 2016-03-28 21:40 -0700
          Re: 4th.CoSy : Is your head small enough ? Bob Armstrong <bob@cosy.com> - 2016-03-29 10:47 -0700
    Re: 4th.CoSy : Is your head small enough ? "Ala'a" <amalawi@gmail.com> - 2016-03-28 14:00 -0700
      Re: 4th.CoSy : Is your head small enough ? Bob Armstrong <bob@cosy.com> - 2016-03-29 09:47 -0700
  Re: 4th.CoSy : Is your head small enough ? "WJ" <w_a_x_man@yahoo.com> - 2016-03-28 04:44 +0000
    Re: 4th.CoSy : Is your head small enough ? "WJ" <w_a_x_man@yahoo.com> - 2016-03-28 04:54 +0000
      Re: 4th.CoSy : Is your head small enough ? Bob Armstrong <bob@cosy.com> - 2016-03-28 14:03 -0700
        Re: 4th.CoSy : Is your head small enough ? hughaguilar96@gmail.com - 2016-03-28 14:46 -0700
          Re: 4th.CoSy : Is your head small enough ? Bob Armstrong <bob@cosy.com> - 2016-03-29 10:34 -0700
        Re: 4th.CoSy : Is your head small enough ? Ron Aaron <rambamist@gmail.com> - 2016-03-30 18:18 +0300
      Re: 4th.CoSy : Is your head small enough ? "WJ" <w_a_x_man@yahoo.com> - 2016-03-28 21:37 +0000
    Re: 4th.CoSy : Is your head small enough ? "WJ" <w_a_x_man@yahoo.com> - 2016-03-30 09:44 +0000
  Re: 4th.CoSy : Is your head small enough ? hughaguilar96@gmail.com - 2016-03-28 11:34 -0700
    Re: 4th.CoSy : Is your head small enough ? Bob Armstrong <bob@cosy.com> - 2016-03-28 13:48 -0700
    Re: 4th.CoSy : Is your head small enough ? Ron Aaron <rambamist@gmail.com> - 2016-03-29 06:56 +0300
      Re: 4th.CoSy : Is your head small enough ? hughaguilar96@gmail.com - 2016-03-28 21:53 -0700
        Re: 4th.CoSy : Is your head small enough ? Ron Aaron <rambamist@gmail.com> - 2016-03-29 08:27 +0300
          Re: 4th.CoSy : Is your head small enough ? hughaguilar96@gmail.com - 2016-04-02 00:25 -0700
            Re: 4th.CoSy : Is your head small enough ? Ron Aaron <rambamist@gmail.com> - 2016-04-03 06:54 +0300
              Re: 4th.CoSy : Is your head small enough ? hughaguilar96@gmail.com - 2016-04-02 21:59 -0700
                Re: 4th.CoSy : Is your head small enough ? Ron Aaron <rambamist@gmail.com> - 2016-04-03 12:25 +0300
                Re: 4th.CoSy : Is your head small enough ? hughaguilar96@gmail.com - 2016-04-04 01:51 -0700
                Hugh, you are an asshat Ron Aaron <rambamist@gmail.com> - 2016-04-04 13:07 +0300
                Re: Hugh, you are an asshat hughaguilar96@gmail.com - 2016-04-04 14:08 -0700
                Re: Hugh, you are an asshat Ron Aaron <rambamist@gmail.com> - 2016-04-05 07:31 +0300
                Re: Hugh, you are an asshat Bill Cummins <billc@cummins.net> - 2016-04-05 05:55 +0000
                Re: Hugh, you are an asshat Ron Aaron <rambamist@gmail.com> - 2016-04-05 11:12 +0300
                Re: Hugh, you are an asshat hughaguilar96@gmail.com - 2016-04-05 01:24 -0700
                Re: 4th.CoSy : Is your head small enough ? Albert van der Horst <albert@spenarnc.xs4all.nl> - 2016-04-04 10:16 +0000
                Re: 4th.CoSy : Is your head small enough ? hughaguilar96@gmail.com - 2016-04-04 04:26 -0700
        OT: Hugh changed to Israel and religion, was [Re: 4th.CoSy : Is your head small enough ?] Rod Pemberton <NoHaveNotOne@bcczxcfre.cmm> - 2016-04-02 12:03 -0400

csiph-web