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