Re: [Jprogramming] Using rank to avoid looping - reference?

[Raul Miller]

On Tue, Oct 16, 2018 at 4:46 AM Linda Alvord <lindaalvor...@outlook.com> 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 http://www.jsoftware.com/forums.htm