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

Groups > comp.lang.forth > #46320

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

From "WJ" <w_a_x_man@yahoo.com>
Newsgroups comp.lang.forth
Subject Re: 4th.CoSy : Is your head small enough ?
Date 2016-03-30 09:44 +0000
Organization A noiseless patient Spider
Message-ID <ndg75f$fmn$1@dont-email.me> (permalink)
References <396c683d-9c79-4845-a6c4-a3fade0c411c@googlegroups.com> <ndacrr$e4u$1@dont-email.me>

Show all headers | View raw

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 " 
> >  )
> 

OCaml:

open String ;;

(*  Make list of integers from a to b.  *)
let rec (--) a b = if a>b then [] else a::(a+1)--b ;;

let explode str = Stream.npeek (length str) (Stream.of_string str);;

let implode ch_list =
  List.fold_left (fun str chr -> str ^ (make 1 chr)) "" ch_list ;;

let mirror list = list @ (List.rev list) ;;

let rotate str n = sub str n ((length str) - n) ^ sub str 0 n ;;

List.map
  (fun i -> implode (mirror (explode (rotate " OCAML IS FUN " i))))
  (mirror (0--7)) ;;

[" OCAML IS FUN  NUF SI LMACO ";
 "OCAML IS FUN    NUF SI LMACO";
 "CAML IS FUN  OO  NUF SI LMAC";
 "AML IS FUN  OCCO  NUF SI LMA";
 "ML IS FUN  OCAACO  NUF SI LM";
 "L IS FUN  OCAMMACO  NUF SI L";
 " IS FUN  OCAMLLMACO  NUF SI ";
 "IS FUN  OCAML  LMACO  NUF SI";
 "IS FUN  OCAML  LMACO  NUF SI";
 " IS FUN  OCAMLLMACO  NUF SI ";
 "L IS FUN  OCAMMACO  NUF SI L";
 "ML IS FUN  OCAACO  NUF SI LM";
 "AML IS FUN  OCCO  NUF SI LMA";
 "CAML IS FUN  OO  NUF SI LMAC";
 "OCAML IS FUN    NUF SI LMACO";
 " OCAML IS FUN  NUF SI LMACO "]

-- 
I would hesitate to describe America as a nation at all in 1997, because it is
something very different: a polyethnic federation administered by a single
ruling class....  [T]he accumulated rot in America has now reached a point
where the pillars of society itself are failing.  --- Ambrose Evans-Pritchard

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