Just a teeny comment if I may:

The "set intersection" fork posted above  ([-.-.) whilst quite valid for
sets is not commutative on 'bags', i.e. collections which may have
repeats.  There, it acts more as a "retain" or "keep" verb, the opposite -
so to speak - of "less" (-.)

  ht =. 'Hello there!'
  vowels =. 'aeiouAEIOU'
  keep =. [-.[.
  ht keep vowels
eoee
  vowels keep ht
eo




On 18 July 2014 04:28, Linda Alvord <[email protected]> wrote:

> Trains and more trains:
>
>
>
> f=:*****
>
>    5!:4 <'f'
>
>   -- *
>   +- *
> --+   -- *
>   L---+- *
>       L- *
>
>
>
>    g=:*******
>
>    5!:4 <'g'
>
>   -- *
>   +- *
> --+   -- *
>   │   +- *
>   L---+   -- *
>       L---+- *
>           L- *
>
>    f=:********
>
>    5!:4 <'f'
>
>   -- *
>   │   -- *
> --+   +- *
>   L---+   -- *
>       │   +- *
>       L---+   -- *
>           L---+- *
>               L- *
>
>    g=:*********
>
>    g=:*********
>
>    5!:4 <'g'
>
>   -- *
>   +- *
> --+   -- *
>   │   +- *
>   L---+   -- *
>       │   +- *
>       L---+   -- *
>           L---+- *
>               L- *
>
>    h=:**********
>
>    5!:4 <'h'
>
>   -- *
>   │   -- *
> --+   +- *
>   L---+   -- *
>       │   +- *
>       L---+   -- *
>           │   +- *
>           L---+   -- *
>               L---+- *
>                   L- *
>
>
>
>
>
>    i=:***(***)****
>
>    5!:4 <'i'
>
>   -- *
>   │   -- *
> --+   +- *
>   │   │       -- *
>   L---+   ----+- *
>       │   │   L- *
>       L---+- *
>           │   -- *
>           L---+- *
>               L- *
>
>
>
> 16
>
>    j=:(***)(***)***
>
>    5!:4 <'j'
>
>     -- *
>   --+- *
>   │ L- *
>   │
>   │ -- *
> --+-+- *
>   │ L- *
>   │
>   │ -- *
>   L-+- *
>     L- *
>
>
>
>   j 4
>
> 1
>
>   3 j 4
>
> 429981696
>
>
>
>
>
> Linda
>
>
>
>
>
> -----Original Message-----
> From: [email protected]
> [mailto:[email protected]] On Behalf Of R.E. Boss
> Sent: Thursday, July 17, 2014 12:17 PM
> To: [email protected]
> Subject: Re: [Jprogramming] trains
>
>
>
> From http://www.jsoftware.com/help/dictionary/dacapdot.htm
>
>
>
>    $(i.@! <@A. i.)5
>
> 120
>
>
>
>    ((< A.&.>~ [: i. [: ! #)@i.-:(i.@! <@A. i.))5
>
> 1
>
>
>
>
>
>
>
> R.E. Boss
>
>
>
> (Add your info to http://www.jsoftware.com/jwiki/Community/Demographics )
>
>
>
>
>
>
>
> > -----Original Message-----
>
> > From: [email protected] [mailto:programming-
>
> > [email protected]] On Behalf Of Devon McCormick
>
> > Sent: donderdag 17 juli 2014 17:09
>
> > To: J-programming forum
>
> > Subject: Re: [Jprogramming] trains
>
> >
>
> > Sorry - "All anagrams" should be this:
>
> >
>
> >    $(< A.&.>~ [: i. [: ! #) i.5
>
> > 120
>
> >
>
> >
>
> >
>
> > On Thu, Jul 17, 2014 at 11:03 AM, Devon McCormick <[email protected]>
>
> > wrote:
>
> >
>
> > > All anagrams:
>
> > >  (< A.&.>~ [: i. #) i.5
>
> > > +---------+---------+---------+---------+---------+
>
> > > |0 1 2 3 4|0 1 2 4 3|0 1 3 2 4|0 1 3 4 2|0 1 4 2 3|
>
> > > +---------+---------+---------+---------+---------+
>
> > >
>
> > > Otherwise known as "forking A.".
>
> > >
>
> > >
>
> > > On Thu, Jul 17, 2014 at 10:22 AM, 'Pascal Jasmin' via Programming <
>
> > > [email protected]> wrote:
>
> > >
>
> > >> An unusual and favorite fork is one that causes side effects:
>
> > >>
>
> > >> inl =: (cocurrent@] ".@] [)"1 0
>
> > >>
>
> > >> executes sentence in each locale on the right
>
> > >>
>
> > >> list of nouns and verbs in j and z locale that start with 'to'
>
> > >>
>
> > >>    ' ''to'' nl 0 3' (cocurrent@] ".@] [)"1 0 ;: 'j z'
>
> > >>
>
> > >> in all locales
>
> > >>
>
> > >> ' ''to'' nl 0 3' inl nl 6
>
> > >>
>
> > >> with helpful locale name in left column
>
> > >>
>
> > >> ' ''to'' nl 0 3'(] ,. (cocurrent@] ".@] [)"1 0) nl 6
>
> > >>
>
> > >>
>
> > >> ----- Original Message -----
>
> > >> From: Kip Murray <[email protected]>
>
> > >> To: "[email protected]" <[email protected]>
>
> > >> Cc:
>
> > >> Sent: Thursday, July 17, 2014 9:34:45 AM
>
> > >> Subject: Re: [Jprogramming] trains
>
> > >>
>
> > >>    en =: [: %: [: +/ *:  NB. Euclidian norm
>
> > >>    sn =: [: >./ |        NB. Sup Norm
>
> > >>    tn =: [: +/ |         NB. Taxicab Norm
>
> > >>
>
> > >>    v =: 4 _2 1 _10
>
> > >>    en v
>
> > >> 11
>
> > >>    sn v
>
> > >> 10
>
> > >>    tn v
>
> > >> 17
>
> > >>
>
> > >>
>
> > >> On Thursday, July 17, 2014, Brian Schott <[email protected]>
>
> wrote:
>
> > >>
>
> > >> > Consider the dyadic forks wmean and wmean1 discussed in the
>
> > following
>
> > >> > message.
>
> > >> >
>
> > >> > wmean =: * %&(+/)[  NB. weighted mean
>
> > >> > wmean1=: # %&(+/) [
>
> > >> >
>
> > >> >
>
> > >> http://www.jsoftware.com/pipermail/programming/2009-
>
> > February/013728.html
>
> > >> >
>
> > >> >
>
> > >> > --
>
> > >> > (B=)
>
> > >> >
>
> ----------------------------------------------------------------------
>
> > >> > For information about J forums see
>
> > http://www.jsoftware.com/forums.htm
>
> > >> >
>
> > >>
>
> > >>
>
> > >> --
>
> > >> Sent from Gmail Mobile
>
> > >>
>
> > >>
>
> > >>
>
> > >> ----------------------------------------------------------------------
>
> > >> For information about J forums see
>
> > http://www.jsoftware.com/forums.htm
>
> > >>
>
> > >> ----------------------------------------------------------------------
>
> > >> For information about J forums see
>
> > http://www.jsoftware.com/forums.htm
>
> > >>
>
> > >
>
> > >
>
> > >
>
> > > --
>
> > > Devon McCormick, CFA
>
> > >
>
> > >
>
> >
>
> >
>
> > --
>
> > Devon McCormick, CFA
>
> > ----------------------------------------------------------------------
>
> > For information about J forums see http://www.jsoftware.com/forums.htm
>
> ----------------------------------------------------------------------
>
> For information about J forums see http://www.jsoftware.com/forums.htm
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to