Both work and are interesting.  However I'm a fan of:

Dealr=: 13 :'          '

Which will provide a tacit definition. However, maybe it isn't possible.

Linda


-----Original Message-----
From: Programming <[email protected]> On Behalf Of Raul 
Miller
Sent: Tuesday, October 16, 2018 10:53 AM
To: Programming forum <[email protected]>
Subject: Re: [Jprogramming] Using rank to avoid looping - reference?

On Tue, Oct 16, 2018 at 4:46 AM Linda Alvord <[email protected]> wrote:
> ...
>    Now all that is left to do is Write Dave's "h" as an explicit verb!

That's easy!

h=:4 :0
  x ([: <"2 ({~ ([: \:"1~ |. $ [: ?.~ */))~) y
)

But you might have meant something more like:


suits=: u: 9827 9830 9829 9824
faces=: '23456789TJQKA'
deck=: >,{suits;faces

h=:4 :0
  deal=. \:"1~ (|.x) $ ?.~ */x
  <"2 deal { y
)

Thanks,

-- 
Raul
----------------------------------------------------------------------
For information about J forums see 
https://eur04.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.jsoftware.com%2Fforums.htm&amp;data=02%7C01%7C%7C9b4dcb50d23b4166e2df08d633772f95%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C636752984319598602&amp;sdata=acit9Smi40npgzeJCOYij7kdW48jN2YAyFIZKCWQ6pc%3D&amp;reserved=0
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to