Using Raul's suggestion I could replace these three lines with one!
f
[: ,\ [: , ] {~ $ ? $
g
(([: >: [: i. $) ? [: >: [: i. $) {"1 f
h
([: ,. 1 + [: i. $) {."1 g
h 'happy'
a
ah
hya
yhap
pyaph
Here is a replacement:
ff=: 13 :'(/: '' ''&=)"1 |.sh"1 ]\.(] {~ # ? #) y'
ff
[: (/: ' '&=)"1 [: |. [: sh"1 [: ]\. ] {~ # ? #
ff 'happy'
y
py
yph
hapy
ahpyp
ff 'happy'
a
ay
yap
aypp
hppay
This might be simplified as well.
Linda
-----Original Message-----
From: [email protected]
[mailto:[email protected]] On Behalf Of Raul Miller
Sent: Friday, February 24, 2012 11:57 AM
To: Programming forum
Subject: Re: [Jprogramming] Challenge 6 Many Many Cherry Trees
On Fri, Feb 24, 2012 at 11:39 AM, Kip Murray <[email protected]> wrote:
> Raul has explained "0 _ . In effect I was re-inventing <\. (box suffix) .
Or, more specifically:
]\. 'cbaed'
--
Raul
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
