I agree, counting the number of tokens (especially focusing on the string used 
to define the verb) is not particularly productive,
     nt=. # @: ;: @: lr @: <   nt e ('waveVC' ; 'waveJQ' ; 
'waveR')┌──┬──┬──┐│41│40│32│└──┴──┴──┘
Counting the number of structural components is, in my opinion, better as a 
measure of the complexity of (honest) fixed tacit verbs,
   nsc=.  # @: (<S:0) @: (5!:2) @: <      nsc'nsc'11   nsc0=. [: # [: (<S:0) [: 
(5!:2) <   nsc0 e ('nsc';'nsc0')┌──┬──┐│11│11│└──┴──┘   nsc1=.  # @: ((<S:0) @: 
((5!:2) @: <))   nsc e ('nsc';'nsc0';'nsc1')┌──┬──┬──┐│11│11│11│└──┴──┴──┘   nt 
e ('nsc';'nsc0';'nsc1')┌──┬──┬──┐│15│11│15│└──┴──┴──┘
   waveR0=. [: <"_1 [: |.&|:^:(<5) [: (|."_1~ ([: >. +/ .=&' ' % _2:)) [: > ;:
   nsc e ('waveVC' ; 'waveJQ' ; 'waveR' ; 
'waveR0')┌──┬──┬──┬──┐│32│31│28│28│└──┴──┴──┴──┘

> Date: Sun, 3 Jun 2012 11:22:57 -0400
> From: rauldmil...@gmail.com
> To: programming@jsoftware.com
> Subject: Re: [Jprogramming] Challenge 11 Wave the Flag
> 
> If by simplification you mean "fewer tokens while avoiding text
> definitions and @ and @: then here is a variation on Jose's approach:
> 
>  waveR=: [:<"_1 [:|.&|:^:4 3 2 1 0 [:(|."_1~ [:>. +/ .=&' ' % _2:) [:> ;:
> 
> I save 3 tokens by replacing (<5) with 4 3 2 1 0
> 
> I save 2 tokens by replacing
>    [: - [: <. [: -: ' '+/ .=~
> with
>    [: >. +/ .=&' ' % _2:
> 
> I save 2 tokens by replacing
>    ([: |. |:)
> with
>    |.&|:
> 
> Note, however that if you are purely counting tokens, u@v and u@:v can
> be simpler than ([: u v).
> 
> Also, if you count text as a single token, text definitions are
> automatically simpler than most everything.  (But if you add to the
> token count the number of tokens represented in the text, this goes
> away.)
> 
> -- 
> Raul
> 
> On Sun, Jun 3, 2012 at 10:23 AM, Linda Alvord <lindaalv...@verizon.net> wrote:
> >
> > Viktor Cerovski and Jose Quintanta have provided solutions that are
> > simplifying the waves.
> >
> >   B=:'a big arrow focused somewhere'
> >   wave=: [: <"2 [: ([: |: |.)^:(<5) ([: > ;:)|."0 1~ [: - [: <. [: -: [:
> > +/"1 ' ' = [: > ;:
> >   #;:'[: <"2 [: ([: |: |.)^:(<5) ([: > ;:) |."0 1~ [: - [: <. [: -: [: +/"1
> > '' '' = [: > ;:'
> > 40
> >   waveVC=:[: <"2 [: ([: |: |.)^:(<5) [: (|."0 1~ [: - [: <. [: -: [: +/"1 '
> > ' = ]) [: > ;:
> >   #;:'[: <"2 [: ([: |: |.)^:(<5) [: (|."0 1~ [: - [: <. [: -: [: +/"1 '' ''
> > = ]) [: > ;'
> > 39
> >   waveJQ=.[: <"2 [: ([: |: |.)^:(<5) [: (|."0 1~ [: - [: <. [: -: ' '+/ .=~
> > ]) [: > ;:
> >   #;:'[: <"2 [: ([: |: |.)^:(<5) [: (|."0 1~ [: - [: <. [: -: '' ''+/ .=~
> > ]) [: > ;:'
> > 38
> >   Any more simplifications waiting in thewings?
> >
> > Linda
> >
> > -----Original Message-----
> > From: programming-boun...@jsoftware.com
> > [mailto:programming-boun...@jsoftware.com] On Behalf Of Jose Quintana
> > Sent: Sunday, June 03, 2012 12:33 AM
> > To: programming@jsoftware.com
> > Subject: Re: [Jprogramming] Challenge 11 Wave the Flag
> >
> >
> > Cheating...    wave1=. [: <"2 [: ([: |: |.)^:(<5) [: (|."0 1~ [: - [: <. [:
> > -: ' ' +/ .=~ ]) [: > ;:
> >
> >   cheat=. (lr<'wave1')&apply f.
> >   lr<'cheat'
> > '[: <"2 [: ([: |: |.)^:(<5) [: (|."0 1~ ([: - [: <. [: -: '' '' +/ .=~ ]))
> > [: > ;:'&(128!:2)
> >   #;:lr<'cheat'
> > 7
> > ... and without cheating
> >   wave1=. [: <"2 [: ([: |: |.)^:(<5) [: (|."0 1~ [: - [: <. [: -: ' ' +/
> > .=~ ]) [: > ;:
> >   #;:    '[: <"2 [: ([: |: |.)^:(<5) [: (|."0 1~ [: - [: <. [: -: '' '' +/
> > .=~ ]) [: > ;:'
> > 38    > Date: Sat, 2 Jun 2012 02:38:40 -0700
> >> From: viktor.cerov...@gmail.com
> >> To: programming@jsoftware.com
> >> Subject: Re: [Jprogramming] Challenge 11 Wave the Flag
> >>
> >>
> >>
> >>
> >> Linda Alvord wrote:
> >> >
> >> >
> >> >
> >> > It was David Ward Lambert's idea to write a one line expression with
> >> > the fewest tokens.  We worked together and got to 40 tokens.  Any
> >> > ideas to make this any better.
> >> >
> >> >
> >> >
> >> >    B=:'a big arrow focused somewhere'
> >> >
> >> >    NB.  center justify (Hint from DWL  x |."0 1 y)
> >> >
> >> >    cj=: 13 :'(-<.-:+/"1 '' ''=>;:y)|."0 1>;:y'
> >> >
> >> >    cj
> >> >
> >> > ([: - [: <. [: -: [: +/"1 ' ' = [: > ;:) |."0 1 [: > ;:
> >> >
> >> >    cj B
> >> >
> >> >     a
> >> >    big
> >> >   arrow
> >> >  focused
> >> > somewhere
> >> >
> >> >    NB. quarter turns
> >> >
> >> >    qtla=: 13 :'y;(|:|.y);(|.|:|.|:y);(|.|:y);y'
> >> >
> >> >    qtla
> >> >
> >> > ] ; ([: |: |.) ; ([: |. [: |: [: |. |:) ; ] ;~ [: |. |:
> >> >
> >> >    qtla cj B
> >> >
> >> > ----------T-----T---------T-----T---------┐
> >> > │    a    │s    │erehwemos│    e│    a    │
> >> > │   big   │of   │ desucof │   dr│   big   │
> >> > │  arrow  │moa  │  worra  │  wee│  arrow  │
> >> > │ focused │ecrb │   gib   │ gosh│ focused │
> >> > │somewhere│wuria│    a    │airuw│somewhere│
> >> > │         │hsog │         │ brce│         │
> >> > │         │eew  │         │  aom│         │
> >> > │         │rd   │         │   fo│         │
> >> > │         │e    │         │    s│         │
> >> > L---------+-----+---------+-----+----------
> >> >
> >> >    NB. 5 quarter turns David Ward Lambert
> >> >
> >> >    qtdwl=: 13 :'<"2 ([:|:|.)^:(<5)y'
> >> >
> >> >    qtdwl cj B
> >> >
> >> > ----------T---------T---------T---------T---------┐
> >> > │    a    │s        │erehwemos│    e    │    a    │
> >> > │   big   │of       │ desucof │   dr    │   big   │
> >> > │  arrow  │moa      │  worra  │  wee    │  arrow  │
> >> > │ focused │ecrb     │   gib   │ gosh    │ focused │
> >> > │somewhere│wuria    │    a    │airuw    │somewhere│
> >> > │         │hsog     │         │ brce    │         │
> >> > │         │eew      │         │  aom    │         │
> >> > │         │rd       │         │   fo    │         │
> >> > │         │e        │         │    s    │         │
> >> > L---------+---------+---------+---------+----------
> >> >
> >> >    qtdwl
> >> >
> >> > [: <"2 ([: |: |.)^:(<5)
> >> >
> >> >
> >> >
> >> >    wave=: [: <"2 [: ([: |: |.)^:(<5) ([: > ;:)|."0 1~ [: - [: <. [: -:
> > [:
> >> > +/"1 ' ' = [: > ;:
> >> >
> >> >
> >> Here is a 39 token version:
> >>
> >>    wave1=:[: <"2 [: ([: |: |.)^:(<5) [: (|."0 1~ [: - [: <. [: -: [: +/"1
> > '
> >> ' = ]) [: > ;:
> >>
> >>    #;:'[: <"2 [: ([: |: |.)^:(<5) [: (|."0 1~ [: - [: <. [: -: [: +/"1 ''
> > ''
> >> = ]) [: > ;:'
> >> 39
> >>
> >>
> >>
> >> >
> >> >    wave B
> >> >
> >> > ----------T---------T---------T---------T---------┐
> >> > │    a    │s        │erehwemos│    e    │    a    │
> >> > │   big   │of       │ desucof │   dr    │   big   │
> >> > │  arrow  │moa      │  worra  │  wee    │  arrow  │
> >> > │ focused │ecrb     │   gib   │ gosh    │ focused │
> >> > │somewhere│wuria    │    a    │airuw    │somewhere│
> >> > │         │hsog     │         │ brce    │         │
> >> > │         │eew      │         │  aom    │         │
> >> > │         │rd       │         │   fo    │         │
> >> > │         │e        │         │    s    │         │
> >> > L---------+---------+---------+---------+----------
> >> >
> >> >    wave
> >> >
> >> > [: <"2 [: ([: |: |.)^:(<5) ([: > ;:) |."0 1~ [: - [: <. [: -: [: +/"1 '
> > '
> >> > =
> >> > [: > ;:
> >> >
> >> >    #;:'[:<"2[:([:|:|.)^:(<5)([:>;:)|."0 1~[:-[:<.[:-:[:+/"1'' ''=[:>;:'
> >> >
> >> > 40
> >> >
> >> >
> >> >
> >> > Hopefully David will send his version of 39 tokens but not simple J.
> >> > Note also that you must paste the long line for wave together.
> >> >
> >> >
> >> >
> >> > Linda
> >> >
> >> >
> >> >
> >> >
> >> >
> >> >
> >> >
> >> >
> >> >
> >> >
> >> >
> >> > From: Linda Alvord [mailto:lindaalv...@verizon.net]
> >> > Sent: Tuesday, May 01, 2012 3:17 AM
> >> > To: 'Linda Alvord'
> >> > Subject: Challenge 11 Wave the Flag
> >> >
> >> >
> >> >
> >> > Challenge 10 Wave the Flag    PLEASE DO NOT RESPOND UNTIL 5/28/2012  12
> > am
> >> > EST
> >> >
> >> >
> >> >
> >> > Here's a little preparation for Memorial Day.
> >> >
> >> >
> >> >
> >> >   S=:10 16$(16$' '),176$(16$'*  '),16$' * '
> >> >
> >> >    T=:10 36$(36$'#'),72$' '
> >> >
> >> >    U=:9 52$(104$' '),364$(52$'#'),104$' '
> >> >
> >> >    <' ',"1(((S,"1 ' '),.T),U),"1 ' '
> >> >
> >> > --------------------------------------------------------┐
> >> > │                  #################################### │
> >> > │ *  *  *  *  *  *                                      │
> >> > │  *  *  *  *  *                                        │
> >> > │ *  *  *  *  *  * #################################### │
> >> > │  *  *  *  *  *                                        │
> >> > │ *  *  *  *  *  *                                      │
> >> > │  *  *  *  *  *   #################################### │
> >> > │ *  *  *  *  *  *                                      │
> >> > │  *  *  *  *  *                                        │
> >> > │ *  *  *  *  *  * #################################### │
> >> > │                                                       │
> >> > │                                                       │
> >> > │ ####################################################  │
> >> > │                                                       │
> >> > │                                                       │
> >> > │ ####################################################  │
> >> > │                                                       │
> >> > │                                                       │
> >> > │ ####################################################  │
> >> > L--------------------------------------------------------
> >> >
> >> >
> >> >
> >> > Part 1:  Use viewmat and create a little flag. Next design a
> >> > function to rotate it clockwise 90 degrees successively until it is
> >> > in the original position.
> >> >
> >> >
> >> >
> >> >    load viewmat
> >> >
> >> >    flag=:
> >> >
> >> > wwwwwwww
> >> > wwwwwwww
> >> > wwwwwwww
> >> > wwwwwwww
> >> >
> >> > wwwwwwwwwwwwww
> >> >
> >> > wwwwwwww
> >> > wwwwwwww
> >> > wwwwwwww
> >> > wwwwwwww
> >> >
> >> > wwwwwwwwwwwwww
> >> >
> >> > wwwwwwww
> >> > wwwwwwww
> >> > wwwwwwww
> >> > wwwwwwww
> >> >
> >> > wwwwwwwwwwwwww
> >> >
> >> > wwwwwwww
> >> > wwwwwwww
> >> > wwwwwwww
> >> > wwwwwwww
> >> >
> >> > wwwwwwwwwwwwww
> >> >
> >> > wwwwwwww
> >> > wwwwwwww
> >> > wwwwwwww
> >> > wwwwwwww
> >> >
> >> >
> >> >
> >> > Part 2:
> >> >
> >> >
> >> >
> >> >    A=:'we celebrate Memorial Day on May the twenty eighth'
> >> >
> >> >    wave=:
> >> >
> >> > ------------T-----------T-----------T-----------T-----------┐
> >> > │----------┐│----------┐│----------┐│----------┐│----------┐│
> >> > ││   we    │││      Mc │││  hthgie │││ e       │││   we    ││
> >> > ││celebrate│││et    ee │││  ytnewt │││ tl      │││celebrate││
> >> > ││Memorial │││iw    ml │││   eht   │││ aa    yh│││Memorial ││
> >> > ││   Day   │││getMoDoew│││   yaM   │││ riy yett│││   Day   ││
> >> > ││   on    │││hnhanarbe│││    no   │││ebranahnh│││   on    ││
> >> > ││   May   │││ttey yir │││   yaD   │││weoDoMteg│││   May   ││
> >> > ││   the   │││hy    aa │││ lairomeM│││ lm    wi│││   the   ││
> >> > ││ twenty  │││      lt │││etarbelec│││ ee    te│││ twenty  ││
> >> > ││ eighth  │││       e │││    ew   │││ cM      │││ eighth  ││
> >> > │L----------│L----------│L----------│L----------│L----------│
> >> > L-----------+-----------+-----------+-----------+------------
> >> >
> >> >
> >> >
> >> > Reshape A into a 9 9 square matrix. Justify all lines in the center.
> >> > If a line has an even number of letters put the extra letter on the
> >> > left. Now design a function to rotate the words in a similar fashion
> >> > to the flag above.  Note the letters in "we" as they move around
> >> > clockwise. Your function should work for any square literal matrix.
> >> >
> >> >
> >> >
> >> > Happy Memorial Day!
> >> >
> >> >
> >> >
> >> > Linda
> >> >
> >> > --------------------------------------------------------------------
> >> > -- For information about J forums see
> >> > http://www.jsoftware.com/forums.htm
> >> >
> >>
> >> --
> >> View this message in context:
> >> http://old.nabble.com/Re%3A-Challenge-11-Wave-the-Flag-tp33948875s2419
> >> 3p33948951.html Sent from the J Programming mailing list archive at
> >> Nabble.com.
> >>
> >> ----------------------------------------------------------------------
> >> 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
                                          
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to