I think you may be missing that this only shuffle and deal the deck. Card #29
could come first. Once they are in four piles.each person may arrange their
han. This code is suits in top to bottom,t hen suits ordered in value. Vib my
hand they "might" appear left to right. But each of the four players can
arrange their hand to their own liking.
Linda
Sent from my Verizon, Samsung Galaxy smartphone
-------- Original message --------
From: 'Mike Day' via Programming <programm...@jsoftware.com>
Date: 10/14/18 1:45 PM (GMT-05:00)
To: programm...@jsoftware.com
Subject: Re: [Jprogramming] Shuffle and deal 4 bridge hands
Sorry - getting rather chatty, not much J -
your deck, Linda, has faces increasing within decreasing suits, given
that Bridge has the ordering spade > heart > diamond > club ,
so your shuffle produces suits in the "wrong" order.
So redefining deck as (say):
[suits =: |. u: 9824 9829 9830 9827 NB. increasing
♣♦♥♠
faces =: '23456789TJQKA' NB. increasing
|:each (5&{.;_5&{.) deck =:,/suits,"0/faces NB. all increasing
┌─────┬─────┐
│♣♣♣♣♣│♠♠♠♠♠│
│23456│TJQKA│
└─────┴─────┘
NB. for a set of Whist hands: (actually done here with ?. rather than ?)
7 (]<"2 @: {~ \:~"1 @: ((4 , [) ($ ? ~@:#) ])) deck
┌──┬──┬──┬──┐
│♥A│♠K│♠A│♠T│
│♥T│♠4│♠Q│♠5│
│♥2│♦5│♠8│♥J│
│♦T│♦4│♠6│♦9│
│♣Q│♦2│♥K│♦8│
│♣3│♣A│♥7│♣K│
│♣2│♣T│♦J│♣6│
└──┴──┴──┴──┘
Use lh arg of 13 for Bridge Hands.
The down-sort is now intuitive, and we don't need to reverse each column
Cheers,
Mike
On 14/10/2018 16:27, 'Mike Day' via Programming wrote:
> Sorry for previous - pressed Send instead of Edit!
>
> Thanks, Linda
>
> No problems under Windows 10 in JQt 807.
>
> I'm no good at Bridge, but might be persuaded to play whist!
>
> If we want to choose Whist or Bridge, we need to specify the
>
> size of a hand. In either case, you can use draw from the row-count
>
> of deck rather than the product of x.
>
> This consideration and some other slight changes lead to:
>
> shuffle =: 13 : '<@|."2 y{~ /:~"1 x$&|. ?~#y'
>
> SO, for a game of Whist:
>
> 7 4 shuffle deck
> ┌──┬──┬──┬──┐
> │♣8│♦7│♣6│♦A│
> │♣2│♥6│♦Q│♦K│
> │♦J│♥5│♦6│♦T│
> │♦9│♥4│♥T│♥A│
> │♦8│♥3│♥7│♥2│
> │♥8│♠Q│♠J│♠K│
> │♠4│♠9│♠3│♠8│
> └──┴──┴──┴──┘
>
> OR - can't we assume 4 suits? -
> 7 (13 :'<@|."2 y{~ /:~"1 (4,x)$ ?~#y') deck
> ┌──┬──┬──┬──┐
> │♣A│♦K│♣Q│♣J│
> │♣6│♦5│♣2│♣8│
> │♦Q│♥K│♦A│♣7│
> │♦T│♥Q│♦7│♣3│
> │♥A│♥8│♥7│♦J│
> │♥2│♥3│♥5│♥6│
> │♠7│♠2│♠5│♠Q│
> └──┴──┴──┴──┘
>
> Cheers,
> Mike
>
> On 14/10/2018 00:47, Linda Alvord wrote:
>> This should now work in most J environments.
>>
>> F=:52$'23456789TJQKA'
>> S=:13#u: 9824 9829 9830 9827
>> deck=:S,.F
>> shuf=: 13 :'<"2|."2 y {~ /:~"1 (|.x)$?~*/|.x
>>
>> Save code above in a file and then run the script.
>> Here's how it looks in android.
>>
>> 13 4 shuf deck
>> ┌──┬──┬──┬──┐
>> │♣A│♣J│♣K│♣9│
>> │♣Q│♣6│♣T│♣3│
>> │♦K│♣5│♣8│♦A│
>> │♦T│♣4│♣7│♦J│
>> │♦9│♣2│♦Q│♦8│
>> │♦6│♦2│♦7│♥K│
>> │♥A│♥Q│♦5│♥6│
>> │♥T│♥J│♦4│♥3│
>> │♥8│♥9│♦3│♠A│
>> │♥7│♥4│♠Q│♠K│
>> │♥5│♥2│♠T│♠9│
>> │♠8│♠J│♠7│♠6│
>> │♠5│♠2│♠3│♠4│
>> └──┴──┴──┴──┘
>>
>> Linda
>>
>> Sent from my Verizon, Samsung Galaxy smartphone
>> ----------------------------------------------------------------------
>> For information about J forums see
>> https://eur02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.jsoftware.com%2Fforums.htm&data=02%7C01%7C%7C8c0fbc1f2b934b0bbe5b08d631fcc859%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C636751359090026248&sdata=2O%2FqOP%2FzzPISJhM30ztB0WlJ0%2FkYzN1QY44tH0PI%2Bu0%3D&reserved=0
>
---
This email has been checked for viruses by Avast antivirus software.
https://eur02.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.avast.com%2Fantivirus&data=02%7C01%7C%7C8c0fbc1f2b934b0bbe5b08d631fcc859%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C636751359090026248&sdata=a2NavKcihOaBgx%2BFNRy3Ke35FlQ7UEmiV%2BG57fLyVmo%3D&reserved=0
----------------------------------------------------------------------
For information about J forums see
https://eur02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.jsoftware.com%2Fforums.htm&data=02%7C01%7C%7C8c0fbc1f2b934b0bbe5b08d631fcc859%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C636751359090026248&sdata=2O%2FqOP%2FzzPISJhM30ztB0WlJ0%2FkYzN1QY44tH0PI%2Bu0%3D&reserved=0
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
