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 ' ' = [: > ;:

   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

Reply via email to