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
