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-tp33948875s24193p33948951.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
