You have me baffled long before I get to i
sh =: ?&#~ { ] NB. shuffle
sh
?&#~ { ]
sh2=: 13 :'(y?&#y) { y'
sh2
?&#~ { ]
shla=: 13 :'((#y)?#y){y'
shla
] {~ # ? #
]shla 'abcde'
dbace
rt =: [: |. [:sh&> i.@# <@}."0 _ [: sh <"_1 NB. right triangle
rt
[: |. [: sh&> i.@# <@}."0 _ [: sh <"_1
rt 'abcde'
--T-T-T-T-┐
│c│ │ │ │ │
+-+-+-+-+-+
│c│e│ │ │ │
+-+-+-+-+-+
│c│b│e│ │ │
+-+-+-+-+-+
│c│d│b│e│ │
+-+-+-+-+-+
│a│d│c│b│e│
L-+-+-+-+--
rt2=: 13 :'<"0 |.(i.#y)}."0 _ sh y'
rt2
[: <"0 [: |. ([: i. #) }."0 _ sh
rt2 'abcde'
--T-T-T-T-┐
│a│ │ │ │ │
+-+-+-+-+-+
│d│a│ │ │ │
+-+-+-+-+-+
│b│d│a│ │ │
+-+-+-+-+-+
│c│b│d│a│ │
+-+-+-+-+-+
│e│c│b│d│a│
L-+-+-+-+--
rtla=: 13 :'<"0 ,\sh y'
rtla
[: <"0 [: ,\ sh
rtla 'abcde'
--T-T-T-T-┐
│d│ │ │ │ │
+-+-+-+-+-+
│d│c│ │ │ │
+-+-+-+-+-+
│d│c│a│ │ │
+-+-+-+-+-+
│d│c│a│b│ │
+-+-+-+-+-+
│d│c│a│b│e│
L-+-+-+-+--
I used infix and got your rt . But here is what I don't understand.
What is going on in a ? If I remove _ it doesn't work. When it is
there I can't figure out what you've done.
a=: 13 :'(i.#y)}."0 _ sh y'
a 'abcde'
cbaed
baed
aed
ed
d
Linda
-----Original Message-----
From: [email protected]
[mailto:[email protected]] On Behalf Of Kip Murray
Sent: Wednesday, February 22, 2012 12:24 AM
To: Programming forum
Subject: Re: [Jprogramming] Challenge 6 Many Many Cherry Trees
NB. Linda's Challenge 6
oit rt 'abcdef'
f
a f
e a f
f a d e
f a e d c
f e a b d c
oit rt 1 2 3 4 5 6
6
1 6
1 4 6
1 2 4 6
4 1 6 2 3
6 5 4 2 3 1
NB. Details follow, restrictions noted at end
sh =: ?&#~ { ] NB. shuffle
rt =: [: |. [: sh&> i.@# <@}."0 _ [: sh <"_1 NB. right triangle
]a =: 'abcdef'
abcdef
]art =: rt a
+-+-+-+-+-+-+
|b| | | | | |
+-+-+-+-+-+-+
|c|b| | | | |
+-+-+-+-+-+-+
|c|b|a| | | |
+-+-+-+-+-+-+
|c|e|b|a| | |
+-+-+-+-+-+-+
|c|e|a|d|b| |
+-+-+-+-+-+-+
|f|c|a|b|d|e|
+-+-+-+-+-+-+
]b =: 1 2 3 4 5 6
1 2 3 4 5 6
]brt =: rt b
+-+-+-+-+-+-+
|5| | | | | |
+-+-+-+-+-+-+
|2|5| | | | |
+-+-+-+-+-+-+
|2|6|5| | | |
+-+-+-+-+-+-+
|6|4|2|5| | |
+-+-+-+-+-+-+
|4|5|1|2|6| |
+-+-+-+-+-+-+
|3|1|4|5|6|2|
+-+-+-+-+-+-+
ia =: ([ , a: , ])/ NB. insert a:
it =: 3 : 0 " 1 NB. isosceles triangle from right triangle
xx =. y i. a:
((-xx-#y) # a:), ia xx {. y
)
it art
+-+-+-+-+-+-+-+-+-+-+-+
| | | | | |b| | | | | |
+-+-+-+-+-+-+-+-+-+-+-+
| | | | |c| |b| | | | |
+-+-+-+-+-+-+-+-+-+-+-+
| | | |c| |b| |a| | | |
+-+-+-+-+-+-+-+-+-+-+-+
| | |c| |e| |b| |a| | |
+-+-+-+-+-+-+-+-+-+-+-+
| |c| |e| |a| |d| |b| |
+-+-+-+-+-+-+-+-+-+-+-+
|f| |c| |a| |b| |d| |e|
+-+-+-+-+-+-+-+-+-+-+-+
it brt
+-+-+-+-+-+-+-+-+-+-+-+
| | | | | |5| | | | | |
+-+-+-+-+-+-+-+-+-+-+-+
| | | | |2| |5| | | | |
+-+-+-+-+-+-+-+-+-+-+-+
| | | |2| |6| |5| | | |
+-+-+-+-+-+-+-+-+-+-+-+
| | |6| |4| |2| |5| | |
+-+-+-+-+-+-+-+-+-+-+-+
| |4| |5| |1| |2| |6| |
+-+-+-+-+-+-+-+-+-+-+-+
|3| |1| |4| |5| |6| |2|
+-+-+-+-+-+-+-+-+-+-+-+
vertchars =: 25 124 { a.
oit =: 3 : 0
NB. produces open isosceles triangle from boxed right triangle y
rc =. 1:`{.@.(2=#) $ y NB. row count
dhr =. <: {. $ ": 0 { y NB. decrement height of row display
mhb =. (>: rc * dhr) $ 0 , (<: dhr) # 1 NB. mask for horz boundaries
NB. now remove horz then vert boundaries from display of (it y)
vertchars -."1~ mhb # ": it y
)
oit art
b
c b
c b a
c e b a
c e a d b
f c a b d e
oit brt
5
2 5
2 6 5
6 4 2 5
4 5 1 2 6
3 1 4 5 6 2
]c =: 6 4 $ 'Now is the timefor all '
Now
is
the
time
for
all
]crt =: rt c
+----+----+----+----+----+----+
|Now | | | | | |
+----+----+----+----+----+----+
|Now |for | | | | |
+----+----+----+----+----+----+
|is |for |Now | | | |
+----+----+----+----+----+----+
|the |Now |is |for | | |
+----+----+----+----+----+----+
|is |Now |for |all |the | |
+----+----+----+----+----+----+
|all |time|the |Now |for |is |
+----+----+----+----+----+----+
oit crt
Now
Now for
is for Now
the Now is for
is Now for all the
all time the Now for is
]d =: 3 2 4 $ 'Now is the timefor all '
Now
is
the
time
for
all
]drt =: rt d
+----+----+----+
|the | | |
|time| | |
+----+----+----+
|Now |the | |
|is |time| |
+----+----+----+
|the |for |Now |
|time|all |is |
+----+----+----+
oit drt
the
time
Now the
is time
the for Now
time all is
NB. For verb oit to work, arguments to verb rt need to be open and
NB. free of vertchars. I leave it as an exercise to remove these
NB. requirements!
Kip Murray
On 2/14/2012 3:54 AM, Linda Alvord wrote:
> Challenge 6 Many Many Cherry Trees PLEASE DO NOT RESPOND UNTIL 2/22/2012
> 12 am EST
>
>
>
>
>
> If necessary, ask questions, but try not to give away your strategy for
> solving the challenge.
>
>
>
> Design a function with no restrictions on style or specific functions.
>
> It should produce a triangle similar to the ones shown below. Each row is
a
> successive scramble of the character string above it with one added
symbol.
> The final line is a scramble of the entire list.
>
>
>
> gw 'many'
>
> a
> a n
> a y n
> a m y n
>
>
>
> gw 'many'
>
> m
> y m
> y a m
> n a m y
>
>
>
> gw 'cherrytrees'
>
> s
> r s
> h s r
> h r s y
> y s r e h
> e h r s r y
> y r e s h e r
> s e r r e y e h
> e s t e r e y h r
> r e r s t r y e e h
> e r c r h y r e t s e
>
> a=:gw '%%%####'
>
> a,.a,.a,.a
>
> % % % %
> % # % # % # % #
> % # % % # % % # % % # %
> % # # % % # # % % # # % % # # %
> # % # % # # % # % # # % # % # # % # % #
> # % # % % # # % # % % # # % # % % # # % # % % #
> # % # # # % % # % # # # % % # % # # # % % # % # # # % %
>
>
>
> Linda
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
