The second solution does not work correctly:
(>:i.11) #@((>./\@([ {. (<.&.+.)@>:@% # [EMAIL PROTECTED])~ #) </. ])"0 _
i.11
1 2 3 4 4 6 6 6 6 6 6
The part
(>./\@([ {. <[EMAIL PROTECTED] # [EMAIL PROTECTED])~
in the first solution I replaced by
(<:@[ <. <[EMAIL PROTECTED] <[EMAIL PROTECTED] [EMAIL PROTECTED])
to obtain
4 (((<:@[ <. <[EMAIL PROTECTED] <[EMAIL PROTECTED] [EMAIL PROTECTED]) #) </.
])(65+i.11){a.
+--+--+--+-----+
|AB|CD|EF|GHIJK|
+--+--+--+-----+
7 (((<:@[ <. <[EMAIL PROTECTED] <[EMAIL PROTECTED] [EMAIL PROTECTED]) #) </.
])(65+i.11){a.
+-+-+-+-+-+-+-----+
|A|B|C|D|E|F|GHIJK|
+-+-+-+-+-+-+-----+
(>:i.11) #@(((<:@[ <. <[EMAIL PROTECTED] <[EMAIL PROTECTED] [EMAIL
PROTECTED]) #) </. ])"0 _(65+i.11){a.
1 2 3 4 5 6 7 8 9 10 11
The advantage of this solutions is that the second solution is easily
derived from this one (by deleting a '<.@') and is less verbose.
4 (((<:@[ <. %~ <[EMAIL PROTECTED] [EMAIL PROTECTED]) #) </. ])(65+i.11){a.
+---+---+---+--+
|ABC|DEF|GHI|JK|
+---+---+---+--+
7 (((<:@[ <. %~ <[EMAIL PROTECTED] [EMAIL PROTECTED]) #) </. ])(65+i.11){a.
+--+--+-+--+-+--+-+
|AB|CD|E|FG|H|IJ|K|
+--+--+-+--+-+--+-+
(>:i.11) #@(((<:@[ <. %~ <[EMAIL PROTECTED] [EMAIL PROTECTED]) #) </. ])"0
_(65+i.11){a.
1 2 3 4 5 6 7 8 9 10 11
NB. in the specs the original collection is ordered
R.E. Boss
-----Oorspronkelijk bericht-----
Van: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Namens Mike Day
Verzonden: donderdag 16 november 2006 0:03
Aan: Programming forum
Onderwerp: Re: [Jprogramming] Re: Coding Problem
If my earlier offering was on the right lines,
then this is an improvement, albeit a bit more
verbose. Rather than take the floor of N%K,
it takes the nearest integer, so reducing the
deviation of fret-sizes. These no longer
conform to the results of June kim's "f".
4 ((>./\@([ {. <[EMAIL PROTECTED] # [EMAIL PROTECTED])~ #) </. ]) i.11
+---+---+---+----------+
|0 1|2 3|4 5|6 7 8 9 10|
+---+---+---+----------+
4 ((>./\@([ {. (<.&.+.)@>:@% # [EMAIL PROTECTED])~ #) </. ]) i.11
+-----+-----+-----+----+
|0 1 2|3 4 5|6 7 8|9 10|
+-----+-----+-----+----+
7 ((>./\@([ {. <[EMAIL PROTECTED] # [EMAIL PROTECTED])~ #) </. ]) i.11
+-+-+-+-+-+-+----------+
|0|1|2|3|4|5|6 7 8 9 10|
+-+-+-+-+-+-+----------+
7 ((>./\@([ {. (<.&.+.)@>:@% # [EMAIL PROTECTED])~ #) </. ]) i.11
+---+---+---+---+---+--+
|0 1|2 3|4 5|6 7|8 9|10|
+---+---+---+---+---+--+
Mike
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
