Here's my version that uses H and K. I was hoping for a simpler way:
H=: 13 :'((}:y),2*{:y)$''()'''
H 2 2 3
()()()
()()()
()()()
()()()
K=: 13 :'y$''X'''
K 2 2 3
XXX
XXX
XXX
XXX
HANDK=: 13 :',(((*/y),2)$,H y),.((*/y),1)$,K y'
HANDK
[: , ((2 ,~ */) $ [: , H) ,. (1 ,~ */) $ [: , K
HANDK 2 2 3
()X()X()X()X()X()X()X()X()X()X()X()X
Linda
-----Original Message-----
From: programming-boun...@forums.jsoftware.com
[mailto:programming-boun...@forums.jsoftware.com] On Behalf Of Linda Alvord
Sent: Wednesday, December 19, 2012 10:07 PM
To: programm...@jsoftware.com
Subject: Re: [Jprogramming] Hugs and Kisses
You sidestepped some problems very nicely! Sleep is often useful.
Linda
-----Original Message-----
From: programming-boun...@forums.jsoftware.com
[mailto:programming-boun...@forums.jsoftware.com] On Behalf Of bob
therriault
Sent: Wednesday, December 19, 2012 10:48 AM
To: programm...@jsoftware.com
Subject: Re: [Jprogramming] Hugs and Kisses
After a good night's sleep,
HAK=: '()X' $~ 3 * */
HAK 2 2 3
()X()X()X()X()X()X()X()X()X()X()X()X
HAK 1 1 1
()X
This felt like one of those Edward DeBono solutions where what you know gets
in the way of what you are trying to do. In this case, I just needed to
create a string of '()X' of a certain length and I was letting the original
shape get in the way.
Cheers, bob
On 2012-12-18, at 11:22 PM, bob therriault wrote:
> Hi Linda,
>
> Using your definitions for Hugs and Kisses I came up with this.
>
> HANDK =: 3 : 0
> h=. ('()'$~}:,2*{:) y
> k=. y $ 'X'
> h ,@((_2]\,@[),.|:@,@]) k
> )
> HANDK 2 2 3
> ()X()X()X()X()X()X()X()X()X()X()X()X
>
> Cheers, bob
>
> On 2012-12-18, at 7:48 PM, Linda Alvord wrote:
>
>> H=: 13 :'((}:y),2*{:y)$''()'''
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
