Write an APL function called Dist that returns the 4 hands of a random Bridge cards distribution.

You should make use of the following global variables:

      pips←'SHDC'  ⍝ S=Spades, D=Diamonds, H=Hearts, C=Clubs
      crds←'AKQJX98765432'    ⍝ A=Ace, K=King, Q=Queen, J=Jack, X=10, 9=9, ...

and you can use the following constants in your code:

      52    ⍝ total number of cards
      13    ⍝ number of cards per player
       4    ⍝ number of players

The result must be a 4-element nested vector, representing the 4 hands, such as:

      ⎕←aaa←Dist
  DJ S8 CK DX S3 S6 HQ S2 HA C2 D6 C9 SJ   D8 D3 C5 CJ DQ C6 S4 C8 H7 D9 H8 H2 CA   HK H6 C7 SK SQ S7 D5 CQ HX DK HJ S5 C3   SA H9 D2 D7 H5 C4 D4 H3 SX S9 CX DA H4

      ⍝ which you can look at in matrix form
      ⍝ as follows:

      ⊃aaa
 DJ S8 CK DX S3 S6 HQ S2 HA C2 D6 C9 SJ
 D8 D3 C5 CJ DQ C6 S4 C8 H7 D9 H8 H2 CA
 HK H6 C7 SK SQ S7 D5 CQ HX DK HJ S5 C3
 SA H9 D2 D7 H5 C4 D4 H3 SX S9 CX DA H4

      ⍴aaa
4
      ⍴¨aaa
 13  13  13  13
      ⍴¨¨aaa
  2  2  2  2  2  2  2  2  2  2  2  2  2   2  2  2  2  2  2  2  2  2  2  2  2  2   2  2  2  2  2  2  2  2  2  2  2  2  2   2  2  2  2  2  2  2  2  2  2  2  2  2

Each card in the result is represented by the pip character (S,H,D or C) followed by the card letter (A,K,Q,J,X,9,8,7,6,5,4,3 or 2)

    ∇ r←Dist
[1]   ⍝∇ r←Dist
[2]   ⍝∇ r ←→ 4-element nested vector
[3]   ⍝∇      each element contains 13 cards,
[4]   ⍝∇      each represented by 2 letters
[5]   ⍝∇ Example:
[6]   ⍝∇       ⊃Dist
[7]   ⍝∇ DJ S8 CK DX S3 S6 HQ S2 HA C2 D6 C9 SJ
[8]   ⍝∇ D8 D3 C5 CJ DQ C6 S4 C8 H7 D9 H8 H2 CA
[9]   ⍝∇ HK H6 C7 SK SQ S7 D5 CQ HX DK HJ S5 C3
[10]  ⍝∇ SA H9 D2 D7 H5 C4 D4 H3 SX S9 CX DA H4
[11]
[12]  r←⊂[2](,pips∘.,crds)[4 13⍴52?52]
    ∇

      ⍝ The following expression:

      pips∘.,crds
 
      ⍝ catenates each pip character
      ⍝ to each card character, returning
      ⍝ a 4x13 nested matrix of all
      ⍝ existing cards:

 SA SK SQ SJ SX S9 S8 S7 S6 S5 S4 S3 S2
 HA HK HQ HJ HX H9 H8 H7 H6 H5 H4 H3 H2
 DA DK DQ DJ DX D9 D8 D7 D6 D5 D4 D3 D2
 CA CK CQ CJ CX C9 C8 C7 C6 C5 C4 C3 C2

      ⍝ We now need to randomize the cards

      ⍝ First, we ravel the previous result
      ⍝ with the ravel (,) primitive:

      ,pips∘.,crds
 SA SK SQ SJ SX S9 S8 S7 S6 S5 S4 S3 S2 HA HK HQ HJ HX H9 H8 H7 H6 H5 H4 H3 H2 DA DK DQ DJ DX D9 D8 D7 D6 D5 D4 D3 D2 CA CK CQ CJ CX C9 C8 C7 C6 C5 C4 C3 C2

      ⍝ This gives us a nested vector of 
      ⍝ the 52 cards in the game

      ⍝ Next we create a permutation of
      ⍝ the 52 first integers with the APL
      ⍝ Deal (?) primitive:

      52?52
51 34 47 23 25 52 35 26 16 30 42 2 36 27 41 48 31 1 40 32 38 7 24 39 21 44 20 18 11 3 4 50 9 5 33 49 22 12 46 10 8 15 17 14 37 29 13 6 28 19 45 43

      ⍝ So we can create a matrix of indices:

      4 13⍴52?52
 51 34 47 23 25 52 35 26 16 30 42  2 36
 27 41 48 31  1 40 32 38  7 24 39 21 44
 20 18 11  3  4 50  9  5 33 49 22 12 46
 10  8 15 17 14 37 29 13  6 28 19 45 43

      ⍝ APL is array oriented and allows
      ⍝ us to index a vector by a matrix.
      ⍝ so we can index our cards by this
      ⍝ matrix:

      (,pips∘.,crds)[4 13⍴52?52]
 C3 D7 C7 H5 H3 C2 D6 H2 HQ DJ CQ SK D5
 DA CK C6 DX SA CA D9 D3 S8 H4 D2 H7 CX
 H8 HX S4 SQ SJ C4 S6 SX D8 C5 H6 S3 C8
 S5 S7 HK HJ HA D4 DQ S2 S9 DK H9 C9 CJ

      ⍝ Finally we use the ⎕split APL System
      ⍝ function or ⊂[2] to return the result
      ⍝ as a 4-element nested vector (with
      ⍝ one row of the above matrix per 
      ⍝ element)

      ⊂[2](,pips∘.,crds)[4 13⍴52?52]
  C3 D7 C7 H5 H3 C2 D6 H2 HQ DJ CQ SK D5   DA CK C6 DX SA CA D9 D3 S8 H4 D2 H7 CX   H8 HX S4 SQ SJ C4 S6 SX D8 C5 H6 S3 C8   S5 S7 HK HJ HA D4 DQ S2 S9 DK H9 C9 CJ

Write an APL function called SortDist that takes the result of the APL Dist function (see Quiz # 1 above) and sorts each of its 4 hands elements separately by pip and by card.

So, if we had the following cards: CX CK DX S6 D7, they would be sorted by the SortDist to: S6 DX D7 CK CX because of the major order of SHDC in pips and minor order of AKQJX98765432 in crds

Thus, if we cature the result of the Dist function in a variable:

      aaa←Dist

      ⊃aaa
 H5 C2 D4 CX CK DX S6 D7 D5 H2 HK H8 D3
 H7 H4 C9 H9 C7 DA C5 D2 SA SJ D8 HQ S9
 D6 HX S4 CA DQ C3 D9 C4 HJ HA H3 S5 C8
 CQ C6 SK S7 CJ S3 DK SX DJ S2 S8 SQ H6

we want the SortDist function to return:

      ⊃SortDist aaa
 S6 HK H8 H5 H2 DX D7 D5 D4 D3 CK CX C2
 SA SJ S9 HQ H9 H7 H4 DA D8 D2 C9 C7 C5
 S5 S4 HA HJ HX H3 DQ D9 D6 CA C8 C4 C3
 SK SQ SX S8 S7 S3 S2 H6 DK DJ CQ CJ C6

The result must be a 4-element nested vector just like the result of Dist.

    ∇ dist←SortDist dist
[1]   ⍝∇ dist←SortDist dist
[2]   ⍝∇ dist(argument) ←→ the result of Dist
[3]   ⍝∇ dist(result) ←→ the argument, sorted
[4]   ⍝∇ Example:
[5]   ⍝∇      ⊃aaa←Dist
[6]   ⍝∇ D7 S7 DJ C5 SX SK H8 SA DA HX S6 H3 D2
[7]   ⍝∇ CJ C2 HQ C7 S3 CX HK S9 H6 H7 C9 DQ D6
[8]   ⍝∇ CA D3 H5 C6 C3 CQ D4 C8 H9 S2 HJ SJ D5
[9]   ⍝∇ SQ S4 S5 DX H2 D8 H4 DK CK HA D9 C4 S8
[10]  ⍝∇      ⊃SortDist aaa
[11]  ⍝∇ SA SK SX S7 S6 HX H8 H3 DA DJ D7 D2 C5
[12]  ⍝∇ S9 S3 HK HQ H7 H6 DQ D6 CJ CX C9 C7 C2
[13]  ⍝∇ SJ S2 HJ H9 H5 D5 D4 D3 CA CQ C8 C6 C3
[14]  ⍝∇ SQ S8 S5 S4 HA H4 H2 DK DX D9 D8 CK C4
[15]
[16]  ⍝ dist←(⊂⍋crds⍳2⊃¨dist)⌷dist
[17]  ⍝ dist←(⊂⍋pips⍳1⊃¨dist)⌷dist
[18]
[19]  dist←(⊂¨⍋¨(⊂crds)⍳¨2⊃¨¨dist)⌷¨dist
[20]  dist←(⊂¨⍋¨(⊂pips)⍳¨1⊃¨¨dist)⌷¨dist
    ∇

      ⍝ This Quiz is much harder than Quiz #1!

      ⍝ We need to sort each element of the
      ⍝ result of Dist, i.e. each set of 13 
      ⍝ cards, i.e. each hand, all at once!

      ⍝ When having a complex problem like
      ⍝ this one it is always good to first
      ⍝ reduce it to a simpler problem and
      ⍝ then try to see if we can generalize
      ⍝ the solution.

      ⍝ So let's try to sort a single hand
      ⍝ first.  Here is our hand:

      dist←1⊃aaa
      dist
 D7 S7 DJ C5 SX SK H8 SA DA HX S6 H3 D2

      ⍝ We must do 2 sorts:
      ⍝ - a minor sort on the crds
      ⍝ - a major sort on the pips

      ⍝ So let's see how we can sort on
      ⍝ the crds sequence (AKQJX98765432)

      ⍝ We can use the Each (¨) and the Pick (⊃)
      ⍝ APL primitives to extract the "crds"
      ⍝ element of each card:

      2⊃¨dist
77J5XK8AAX632

      ⍝ We can find the position of each
      ⍝ of these in the crds sequence,
      ⍝ using the dyadic Iota (⍳) primitive:

      crds⍳2⊃¨dist
8 8 4 10 5 2 7 1 1 5 9 12 13

      ⍝ We can then grade these indices
      ⍝ using the GradeUp (⍋) APL primitive:

      ⍋crds⍳2⊃¨dist
8 9 6 3 5 10 7 1 2 11 4 12 13

      ⍝ This gives us the indices with which
      ⍝ we must do the indexing to perform
      ⍝ the minor sort, and we
      ⍝ can use the Indexing (⌷) primitive
      ⍝ to perform this indexing:

      (⊂⍋crds⍳2⊃¨dist)⌷dist
 SA DA SK DJ SX HX H8 D7 S7 S6 C5 H3 D2

      ⍝ Note the necessay use of the
      ⍝ Enclose (⊂) primitive to enclose
      ⍝ the ⌷ left argument.

      ⍝ Now, we need to store the result
      ⍝ and perform the second sort:

      dist←(⊂⍋crds⍳2⊃¨dist)⌷dist

      ⍝ The second sort should be done 
      ⍝ according to the "pips"
      ⍝ sequence.

      ⍝ So the principle is exactly the
      ⍝ same as exposed above, except
      ⍝ that we need to extract the first
      ⍝ letter with 1⊃¨ and we need to
      ⍝ search the index in "pips"
      ⍝ instead of in "crds", hence:

      dist←(⊂⍋pips⍳1⊃¨dist)⌷dist

      ⍝ Let's check:

      dist
 SA SK SX S7 S6 HX H8 H3 DA DJ D7 D2 C5

      ⍝ The cards are now perfectly sorted,
      ⍝ according to the "pips"
      ⍝ sequence (SHDC) first and among
      ⍝ a given "pip", according to the 
      ⍝ "crds" sequence (AKQX98765432).

      ⍝ To sum up, we have solved the
      ⍝ problem of sorting one set of
      ⍝ 13 cards, i.e. one hand with the 
      ⍝ following 2 APL instructions:

      dist←(⊂⍋crds⍳2⊃¨dist)⌷dist
      dist←(⊂⍋pips⍳1⊃¨dist)⌷dist

      ⍝ Now, the problem is to generalize
      ⍝ our solution to work on all hands
      ⍝ at once.

      ⍝ This is much simpler than what you
      ⍝ would think.  Basically, we need to
      ⍝ add one more level of Each (¨) to
      ⍝ each primitive in our solution.

      ⍝ Example:

      dist←(⊂⍋crds⍳2⊃¨dist)⌷dist

      ⍝ should become:

      dist←(⊂¨⍋¨(⊂crds)⍳¨2⊃¨¨dist)⌷¨dist

      ⍝ Hence the final 2 instructions
      ⍝ solution to perform the 2 sorts
      ⍝ on all hands at once:

      dist←(⊂¨⍋¨(⊂crds)⍳¨2⊃¨¨dist)⌷¨dist
      dist←(⊂¨⍋¨(⊂pips)⍳¨1⊃¨¨dist)⌷¨dist

Write an APL function called Split that takes the result of the SortDist APL function (see Quiz #1 and Quiz #2 and returns a more readable cards distribution.

The result should be a nested vector of 4 4-rows matrices (one per player): each matrix should have the "pip" in its first column followed by the cards.

Example:

      aaa←SortDist Dist
      ⊃aaa
 HA HK HJ H6 H3 DK DQ D9 CQ C8 C5 C3 C2
 SX S9 S6 HX H9 H8 DA DX D8 D7 D4 CX C9
 SA SQ S7 S4 S3 S2 H5 H2 D6 D2 CK CJ C6
 SK SJ S8 S5 HQ H7 H4 DJ D5 D3 CA C7 C4

      bbb←Split aaa

      bbb
  S             S X 9 6       S A Q 7 4 3 2   S K J 8 5
  H A K J 6 3   H X 9 8       H 5 2           H Q 7 4
  D K Q 9       D A X 8 7 4   D 6 2           D J 5 3
  C Q 8 5 3 2   C X 9         C K J 6         C A 7 4
      
      ⍴bbb
4

      ⍴¨bbb
 4 6  4 6  4 7  4 5

      ⍴¨¨bbb
    1  1  1  1  1     1  1  1  1  1     1  1  1  1  1  1     1  1  1  1
    1  1  1  1  1     1  1  1  1  1     1  1  1  1  1  1     1  1  1  1
    1  1  1  1  1     1  1  1  1  1     1  1  1  1  1  1     1  1  1  1
    1  1  1  1  1     1  1  1  1  1     1  1  1  1  1  1     1  1  1  1

We can now much more easily see what cards each player has got.

Be careful: your solution must take in account the fact that one or more players may not have ANY card of a given "pip" as it is the case in the above example where Player #1, does not have any Spades.

    ∇ dist←Split dist;expm
[1]   ⍝∇ dist←Split dist
[2]   ⍝∇ dist(argument) ←→ result of SortDist Dist
[3]   ⍝∇ dist(result) ←→ a 4-element nested vector
[4]   ⍝∇                 of 4-rows matrices with
[5]   ⍝∇                 the "pips" (SHDC) in first
[6]   ⍝∇                 column and "cards" in subsequent
[7]   ⍝∇                 columns
[8]   ⍝∇ Example:
[9]   ⍝∇      aaa←SortDist Dist
[10]  ⍝∇      ⊃aaa
[11]  ⍝∇  HA HK HJ H6 H3 DK DQ D9 CQ C8 C5 C3 C2
[12]  ⍝∇  SX S9 S6 HX H9 H8 DA DX D8 D7 D4 CX C9
[13]  ⍝∇  SA SQ S7 S4 S3 S2 H5 H2 D6 D2 CK CJ C6
[14]  ⍝∇  SK SJ S8 S5 HQ H7 H4 DJ D5 D3 CA C7 C4
[15]  ⍝∇
[16]  ⍝∇      Split aaa
[17]  ⍝∇   S S X 9 6       S A Q 7 4 3 2   S K J 8 5
[18]  ⍝∇   H A K J 6 3   H X 9 8       H 5 2           H Q 7 4
[19]  ⍝∇   D K Q 9       D A X 8 7 4   D 6 2           D J 5 3
[20]  ⍝∇   C Q 8 5 3 2   C X 9         C K J 6         C A 7 4
[21]
[22]  ⍝∇ dist←pips,(pips∊∪↑¨dist)⍀⊃1↓¨¨(pips⍳↑¨dist)⊂dist
[23]
[24] expm←(⊂pips)∊¨∪¨↑¨¨dist
[25] dist←(⊂pips),¨expm⎕expand[1]¨⊃¨1↓¨¨¨((⊂pips)⍳¨↑¨¨dist)⊂¨dist
    ∇

      ⍝ Just as we did in Quiz #2, let's
      ⍝ start by trying to solve a
      ⍝ simpler problem:  do the work
      ⍝ for one player. We will then
      ⍝ try to generalize our solution
      ⍝ to apply it to all players at
      ⍝ once.

      ⍝ So lets take the first player:

      dist←1⊃SortDist Dist
      dist
 SK SQ HA HK HQ H7 H4 H3 DK D6 CX C6 C2

      ⍝ Our first task is to split this
      ⍝ nested vector by "pip" in 4
      ⍝ groups (one per "pip")

      ⍝ The following instruction:

      ↑¨dist
SSHHHHHHDDCCC

      ⍝ returns the "pip" for each of
      ⍝ the 13 cards in the hand.
      ⍝ We can then find the position of
      ⍝ these in the "pips" variable
      ⍝ (SHDC) using the Iota (⍳)
      ⍝ primitive:

            pips⍳↑¨dist
1 1 2 2 2 2 2 2 3 3 4 4 4

      ⍝ This gives us a perfect left
      ⍝ argument to use with the dyadic
      ⍝ Partition (⊂) APL primitive to
      ⍝ split the dist variable per
      ⍝ "pip":

      (pips⍳↑¨dist)⊂dist
  SK SQ   HA HK HQ H7 H4 H3   DK D6   CX C6 C2

      ⍝ We now have a nested vector of nested 
      ⍝ nested vectors.

      ⍝ We want to remove the "pip"
      ⍝ character(i.e.the 1st character)
      ⍝ of each card to keep only the
      ⍝ card information for now.
      ⍝ We can use 1↓¨¨ for that.
      ⍝ Note that since we want to apply
      ⍝ 1↓ at the 2nd level of nesting,
      ⍝ we must use 2 Each (¨¨):

      1↓¨¨(pips⍳↑¨dist)⊂dist
  K Q   A K Q 7 4 3   K 6   X 6 2

      ⍝ We get closer to the solution!

      ⍝ The Disclose (⊃) primitive allows
      ⍝ us to transform the previous
      ⍝ result into a matrix:

      ⊃1↓¨¨(pips⍳↑¨dist)⊂dist
 K Q
 A K Q 7 4 3
 K 6
 X 6 2

      ⍝ All we have to do now, is to
      ⍝ catenate the "pip" characters
      ⍝ using the Catenate (,) APL primitive:

      pips,⊃1↓¨¨(pips⍳↑¨dist)⊂dist
 S K Q
 H A K Q 7 4 3
 D K 6
 C X 6 2

      ⍝ Solving the missing "pip" problem
      ⍝ ------------------------------------

      ⍝ However, it may happen that a hand
      ⍝ does not include any card of a 
      ⍝ given "pip".

      ⍝ For example:

      dist←1⊃SortDist Dist
 SK SQ S9 S7 S6 S4 HA HQ HJ H2 C9 C6 C4

      ⍝ There are no "diamonds" (D) in this
      ⍝ set of 13 cards:  only S H and C.

      ⍝ Let's try to apply our solution:

      pips,⊃1↓¨¨(pips⍳↑¨dist)⊂dist
LENGTH ERROR
      pips,⊃1↓¨¨(pips⍳↑¨dist)⊂dist 
           ^

      ⍝ Unfortunately, we get a LENGTH ERROR
      ⍝ because:

      ⊃1↓¨¨(pips⍳↑¨dist)⊂dist 
 K Q 9 7 6 4
 A Q J 2
 9 6 4

      ⍝ returns only 3 rows (no row for
      ⍝ the diamonds as there are none!)
      ⍝ while "pips" contains 4 elements

      pips
SHDC

      ⍝ APL does not allow us to catenate
      ⍝ a 4-element vector 'SHDC' to a
      ⍝ 3-row matrix, which makes sense!

      ⍝ How can we solve this problem?

      ⍝ Well, by calculating an expansion
      ⍝ mask and using the Expand (⍀) APL
      ⍝ primitive to insert a blank row
      ⍝ at the right location in the 3
      ⍝ rows above matrix:

      ⍝ To compute the expansion mask
      ⍝ we must first find the unique
      ⍝ "pips" elements in our hand

      ⍝ Let's get all the "pip"
      ⍝ characters first, using the
      ⍝ First (↑) APL primitive:

      ↑¨dist
SSSSSSHHHHCCC

      ⍝ Let's find the unique elements
      ⍝ using the Unique (∪) APL primitive:

      ∪↑¨dist
SHC

      ⍝ As we expect, no D here.
      ⍝ To build the expansion mask we
      ⍝ can use the Member Of (∊)
      ⍝ APL primitive:

      pips∊∪↑¨dist
1 1 0 1

      ⍝ This tells us if any of SHDC
      ⍝ in this order belongs to SHC

      ⍝ We can now simply apply our
      ⍝ expansion mask with the Expand (⍀)
      ⍝ primitive to get the
      ⍝ desired result:

      (pips∊∪↑¨dist)⍀⊃1↓¨¨(pips⍳↑¨dist)⊂dist
 K Q 9 7 6 4
 A Q J 2

 9 6 4

      ⍝ A blank row has been inserted
      ⍝ at the right location and we
      ⍝ can now catenate the "pips"
      ⍝ variable:

      pips,(pips∊∪↑¨dist)⍀⊃1↓¨¨(pips⍳↑¨dist)⊂dist
 S K Q 9 7 6 4
 H A Q J 2
 D
 C 9 6 4

      ⍝ Line 22 in the Split function contains 
      ⍝ this solution for one player.

      ⍝ Generalization
      ⍝ --------------

      ⍝ Generalizing our solution and
      ⍝ being able to apply it to all
      ⍝ players at once, is relatively
      ⍝ easy (as in Quiz #2).

      ⍝ It suffices to recognize that
      ⍝ for all players, we have one 
      ⍝ more level of nesting in the
      ⍝ dist variable

      dist←SortDist Dist

      dist
  SX HX H9 H4 D9 D7 D5 D3 CK CJ CX C3 C2   SK SQ S9 S7 S6 S4 HA HQ HJ H2 C9 C6 C4   SA S5 S3 H8 H7 H6 DK DJ D4 CA CQ C8 C7   SJ S8 S2 HK H5 H3 DA DQ DX D8 D6 D2 C5

      ⍝ Therefore, it should be enough
      ⍝ to add one more Each (¨) to
      ⍝ each primitive used in our 
      ⍝ solution

      ⍝ Our solution for one player was:

      pips,(pips∊∪↑¨dist)⍀⊃1↓¨¨(pips⍳↑¨dist)⊂dist

      ⍝ so for all players, it must be:

      (⊂pips),¨((⊂pips)∊¨∪¨↑¨¨dist)⎕expand[1]¨⊃¨1↓¨¨¨((⊂pips)⍳¨↑¨¨dist)⊂¨dist
  S X           S K Q 9 7 6 4   S A 5 3     S J 8 2
  H X 9 4       H A Q J 2       H 8 7 6     H K 5 3
  D 9 7 5 3     D               D K J 4     D A Q X 8 6 2
  C K J X 3 2   C 9 6 4         C A Q 8 7   C 5

      ⍝ A few notes about what we did
      ⍝ to generalize the solution:
      ⍝ 1. The left argument of each
      ⍝    primitive must now be 
      ⍝    enclosed with (⊂)
      ⍝ 2. The APL ⍀ primitive cannot
      ⍝    be applied with ¨
      ⍝    We must use the ⎕expand
      ⍝    System Function instead of ⍀
      ⍝    and specify the dimension
      ⍝    ([1]) along which the
      ⍝    expansion must take place
      ⍝ 3. Although the solution to
      ⍝    the problem is just one
      ⍝    APL instruction (who could
      ⍝    believe that!) it is
      ⍝    best to keep APL instructions
      ⍝    short enough for easier
      ⍝    maintenance, so we will
      ⍝    rather use 2 instructions
      ⍝    in our solution:
      ⍝    - one to compute the
      ⍝      expansion mask
      ⍝    - one to apply it

      ⍝ So, our final proposed 
      ⍝ solution is:

      expm←(⊂pips)∊¨∪¨↑¨¨dist   ⍝ expansion mask
      dist←(⊂pips),¨expm⎕expand[1]¨⊃¨1↓¨¨¨((⊂pips)⍳¨↑¨¨dist)⊂¨dist



       

Write an APL function called Display that takes the result of the Split APL function (see Quiz #3) and display the player cards at the 4 cardinal directions (North, South, East, West).

      aaa←Split SortDist Dist
      aaa
  S 9 5         S A J X 3   S Q 8 2     S K 7 6 4
  H J 9 8 6 5   H A 4 3 2   H K X       H Q 7
  D K J 8 7     D X 9 4 3   D A Q 6 2   D 5
  C 5 2         C A         C K Q X 6   C J 9 8 7 4 3

      Display aaa
                 S 9 5
                 H J 9 8 6 5
                 D K J 8 7
                 C 5 2
  S A J X 3                      S Q 8 2
  H A 4 3 2                      H K X
  D X 9 4 3                      D A Q 6 2
  C A                            C K Q X 6
                 S K 7 6 4
                 H Q 7
                 D 5
                 C J 9 8 7 4 3

    ∇ dist←Display dist
[1]   ⍝∇ dist←Display dist
[2]   ⍝∇ dist(argument) ←→ result of Split SortDist Dist
[3]   ⍝∇ dist(result) ←→ a 3x3 nested matrix with
[4]   ⍝∇          the 4 player hands displayed
[5]   ⍝∇          at the 4 cardinal directions
[6]   ⍝∇ Example:
[7]   ⍝∇      aaa←Split SortDist Dist
[8]   ⍝∇      aaa
[9]   ⍝∇  S 9 5         S A J X 3   S Q 8 2     S K 7 6 4
[10]  ⍝∇  H J 9 8 6 5   H A 4 3 2   H K X       H Q 7
[11]  ⍝∇  D K J 8 7     D X 9 4 3   D A Q 6 2   D 5
[12]  ⍝∇  C 5 2         C A         C K Q X 6   C J 9 8 7 4 3
[13]  ⍝∇
[14]  ⍝∇      Display aaa
[15]  ⍝∇                 S 9 5
[16]  ⍝∇                 H J 9 8 6 5
[17]  ⍝∇                 D K J 8 7
[18]  ⍝∇                 C 5 2
[19]  ⍝∇  S A J X 3                      S Q 8 2
[20]  ⍝∇  H A 4 3 2                      H K X
[21]  ⍝∇  D X 9 4 3                      D A Q 6 2
[22]  ⍝∇  C A                            C K Q X 6
[23]  ⍝∇                 S K 7 6 4
[24]  ⍝∇                 H Q 7
[25]  ⍝∇                 D 5
[26]  ⍝∇                 C J 9 8 7 4 3
[27]
[28]  dist[1 4]←(⌈/⍴¨dist[1 4])↑¨dist[1 4]
[29]  dist←(dist,⊂'')[3 3⍴5,[1.5]⍳4]
    ∇

      ⍝ This problem is much easier than
      ⍝ the previous ones.

      ⍝ First let's get some sample data:

      dist←Split SortDist Dist

      dist
  S 9 6         S 8 5       S 3             S A K Q J X 7 4 2
  H A 9         H Q X 3 2   H K J 8 7 5 4   H 6
  D A J X 9 6   D Q 8 5 3   D K 7 2         D 4
  C K Q 8 3     C X 7 2     C J 9 5         C A 6 4

      ⍝ We would like to display each
      ⍝ of these 4 matrices at the
      ⍝ following locations marked:
      ⍝ by a 1:

      0 1 0
      1 0 1
      0 1 0

      ⍝ So, if we append an empty 
      ⍝ element to dist:

      dist,⊂''
         
      ⍝ and then index this by the 
      ⍝ following matrix:

      5 1 5
      2 5 3
      5 4 5

      ⍝ which we can create with:

      3 3⍴5 1 5 2 5 3 5 4 5

      ⍝ or in a more APL'ish way with:

      3 3⍴5,[1.5]⍳4
 5 1 5
 2 5 3
 5 4 5

      ⍝ because:

      5,[1.5]⍳4
 5 1
 5 2
 5 3
 5 4

      ⍝ and 3 3⍴ will reuse the 
      ⍝ 1st element (5) as there
      ⍝ are only 8 elements in the
      ⍝ previous result!

      ⍝ So, we have our solution!
      ⍝ Proof:

      (dist,⊂'')[3 3⍴5,[1.5]⍳4]
                    S 9 6
                    H A 9
                    D A J X 9 6
                    C K Q 8 3
  S 8 5                           S 3
  H Q X 3 2                       H K J 8 7 5 4
  D Q 8 5 3                       D K 7 2
  C X 7 2                         C J 9 5
              S A K Q J X 7 4 2
              H 6
              D 4
              C A 6 4

      ⍝ However, if you try the
      ⍝ following instruction
      ⍝ several times:

      Display Split SortDist Dist

      ⍝ You'll see that North
      ⍝ and South hands are not
      ⍝ centered because they 
      ⍝ their longest sequence
      ⍝ of cards may be different

      ⍝ Examples:

      Display Split SortDist Dist
              S 5
              H X 7
              D A K Q J X 8 7 6
              C Q 9
  S A J 8 7                       S Q X 3
  H J 8 4 2                       H A Q 6
  D 2                             D 9 5 4 3
  C A K J 2                       C X 6 5
                    S K 9 6 4 2
                    H K 9 5 3
                    D
                    C 8 7 4 3

      Display Split SortDist Dist
                  S A Q 7 6
                  H A K J 4 3
                  D Q 5
                  C 6 5
  S X 5 4 2                     S 9 8 3
  H Q 8 7 5                     H X 9 6 2
  D 8 4                         D A 9 7 6 3
  C X 3 2                       C 8
              S K J
              H
              D K J X 2
              C A K Q J 9 7 4

      ⍝ To get a better display
      ⍝ we can find the longest
      ⍝ sequence of the North
      ⍝ and South hands:

      ⍝ First let's find their
      ⍝ dimensions:

      ⍴¨dist[1 4]
 4 6  4 9

      ⍝ and now applying the
      ⍝ Maximum Reduction (⌈/)
      ⍝ operator, let's find the
      ⍝ largest of the 2:

      ⌈/⍴¨dist[1 4]
 4 9

      ⍝ We can now apply the Take
      ⍝ primitive (↑) on each
      ⍝ of the North and South
      ⍝ hands to force them to
      ⍝ have the same dimensions:

      dist[1 4]←(⌈/⍴¨dist[1 4])↑¨dist[1 4]

      ⍝ So our final solution is:

      dist[1 4]←(⌈/⍴¨dist[1 4])↑¨dist[1 4]
      dist←(dist,⊂'')[3 3⍴5,[1.5]⍳4]

      ⍝ Let's try it:

      Display Split SortDist Dist
                    S Q J 2
                    H A 9 6 3
                    D K X 8 2
                    C Q 2
  S A X 9 8 5 4                     S K 7 6 3
  H Q X                             H
  D Q 9 3                           D 7 6
  C A 6                             C K J X 8 7 5 4
                  S
                  H K J 8 7 5 4 2
                  D A J 5 4
                  C 9 3

      Display Split SortDist Dist
                S K Q J X 9 6 4
                H 7 3
                D A 5
                C A 8
  S 2                             S A 7 5 3
  H 9 8 6 5 4                     H K J X 2
  D K Q 8 2                       D 7 4
  C J 9 5                         C K 3 2
                 S 8
                 H A Q
                 D J X 9 6 3
                 C Q X 7 6 4

The next challenge is to write an Eval APL function, as concise and efficient as possible, that computes the value of the 4 hands of a Bridge cards distribution.

The Eval function should take as its argument the result of the SortDist function (see Quiz #2), i.e. a sorted Bridge card distribution and return a 4-element integer vector containing the total value of each hand.

To evaluate a hand, the pip (or suit) is of no importance. The cards values are as follows:

• A=4
• K=3
• Q=2
• J=1
• all other cards=0

      dist←SortDist Dist

      dist
  SQ S8 S6 S2 HA H6 H5 H3 DA DQ CK C9 C3   S5 S4 HK HJ HX D9 D7 D6 D5 D2 CA CJ C5   SA SK S9 S7 S3 H7 H4 H2 D3 CQ C8 C4 C2   SJ SX HQ H9 H8 DK DJ DX D8 D4 CX C7 C6

      ⊃dist
 SQ S8 S6 S2 HA H6 H5 H3 DA DQ CK C9 C3
 S5 S4 HK HJ HX D9 D7 D6 D5 D2 CA CJ C5
 SA SK S9 S7 S3 H7 H4 H2 D3 CQ C8 C4 C2
 SJ SX HQ H9 H8 DK DJ DX D8 D4 CX C7 C6

      Eval dist
15 9 9 7

      (Eval dist),⊃dist
 15 SQ S8 S6 S2 HA H6 H5 H3 DA DQ CK C9 C3
  9 S5 S4 HK HJ HX D9 D7 D6 D5 D2 CA CJ C5
  9 SA SK S9 S7 S3 H7 H4 H2 D3 CQ C8 C4 C2
  7 SJ SX HQ H9 H8 DK DJ DX D8 D4 CX C7 C6

    ∇ r←Eval a
[1]   ⍝∇ r←Eval a -- Computes the value of each hand of a Bridge cards distribution
[2]   ⍝∇ a ←→ result of the SortDist function (see Quiz 2)
[3]   ⍝∇ r ←→ 4-element integer vector containing each hand total value
[4]   ⍝∇ Note: cards values are: A=4, K=3, Q=2, J=1
[5]   ⍝∇       all other cards=0
[6]   ⍝∇ Example:
[7]   ⍝∇       dist←SortDist Dist
[8]   ⍝∇       ⊃dist
[9]   ⍝∇  SQ S8 S6 S2 HA H6 H5 H3 DA DQ CK C9 C3  ⍝ 15 = 2(Q)+4(A)+4(A)+2(Q)+3(K)
[10]  ⍝∇  S5 S4 HK HJ HX D9 D7 D6 D5 D2 CA CJ C5  ⍝  9 = 3(K)+1(J)+4(A)+1(J)
[11]  ⍝∇  SA SK S9 S7 S3 H7 H4 H2 D3 CQ C8 C4 C2  ⍝  9 = 4(A)+3(K)+2(Q)
[12]  ⍝∇  SJ SX HQ H9 H8 DK DJ DX D8 D4 CX C7 C6  ⍝  7 = 1(J)+2(Q)+3(K)+1(J)
[13]  ⍝∇       Eval dist
[14]  ⍝∇ 15 9 9 7
[15]
[16]  r←+/0⌈5-crds⍳⊃∊¨a
[17]
    ∇

      ⍝ This problem is easy to solve
      ⍝ but the challenge is to
      ⍝ find the shortest and fastest
      ⍝ possible solution.

      ⍝ Of course shortest does not
      ⍝ necessarily means fastest
      ⍝ though!

      ⍝ Let's get our data:

      a←SortDist Dist

      ⊃a
 SQ S8 S6 S2 HA H6 H5 H3 DA DQ CK C9 C3
 S5 S4 HK HJ HX D9 D7 D6 D5 D2 CA CJ C5
 SA SK S9 S7 S3 H7 H4 H2 D3 CQ C8 C4 C2
 SJ SX HQ H9 H8 DK DJ DX D8 D4 CX C7 C6

      ⍝ Let's start by applying
      ⍝ the Enlist primitive (∊)
      ⍝ to each hand:


      ∊¨a
 SQS8S6S2HAH6H5H3DADQCKC9C3 S5S4HKHJHXD9D7D6D5D2CACJC5 SASKS9S7S3H7H4H2D3CQC8C4C2 SJSXHQH9H8DKDJDXD8D4CXC7C6

      ⍝ Make it a matrix with
      ⍝ Disclose (⊃):

      ⊃∊¨a
SQS8S6S2HAH6H5H3DADQCKC9C3
S5S4HKHJHXD9D7D6D5D2CACJC5
SASKS9S7S3H7H4H2D3CQC8C4C2
SJSXHQH9H8DKDJDXD8D4CXC7C6

      ⍝ Now find the position of
      ⍝ those cards in crds:

      crds⍳⊃∊¨a
 14  3 14  7 14 9 14 13 14  1 14 9 14 10 14 12 14  1 14  3 14 2 14  6 14 12
 14 10 14 11 14 2 14  4 14  5 14 6 14  8 14  9 14 10 14 13 14 1 14  4 14 10
 14  1 14  2 14 6 14  8 14 12 14 8 14 11 14 13 14 12 14  3 14 7 14 11 14 13
 14  4 14  5 14 3 14  6 14  7 14 2 14  4 14  5 14  7 14 11 14 5 14  8 14  9

      ⍝ We are interested by the
      ⍝ 1's, 2's, 3's and 4's in
      ⍝ this result because the 
      ⍝ first 4 elements of crds
      ⍝ are:  AKQJ

      ⍝ However a 1 means an A
      ⍝ and should return 4,
      ⍝ a 2 means a K and should
      ⍝ return 3, etc.

      ⍝ So we can subtract the
      ⍝ above matrix from 5 using
      ⍝ the APL scalar extension:

      5-crds⍳⊃∊¨a
 ¯9  2 ¯9 ¯2 ¯9 ¯4 ¯9 ¯8 ¯9  4 ¯9 ¯4 ¯9 ¯5 ¯9 ¯7 ¯9  4 ¯9  2 ¯9  3 ¯9 ¯1 ¯9 ¯7
 ¯9 ¯5 ¯9 ¯6 ¯9  3 ¯9  1 ¯9  0 ¯9 ¯1 ¯9 ¯3 ¯9 ¯4 ¯9 ¯5 ¯9 ¯8 ¯9  4 ¯9  1 ¯9 ¯5
 ¯9  4 ¯9  3 ¯9 ¯1 ¯9 ¯3 ¯9 ¯7 ¯9 ¯3 ¯9 ¯6 ¯9 ¯8 ¯9 ¯7 ¯9  2 ¯9 ¯2 ¯9 ¯6 ¯9 ¯8
 ¯9  1 ¯9  0 ¯9  2 ¯9 ¯1 ¯9 ¯2 ¯9  3 ¯9  1 ¯9  0 ¯9 ¯2 ¯9 ¯6 ¯9  0 ¯9 ¯3 ¯9 ¯4

      ⍝ Now, the 1's, 2's, 3s and 4's
      ⍝ do represent the cards values

      ⍝ We just need to replace all
      ⍝ the negative values by 0 
      ⍝ which we can do with the
      ⍝ Maximum (⌈) primitive:

      0⌈5-crds⍳⊃∊¨a
 0 2 0 0 0 0 0 0 0 4 0 0 0 0 0 0 0 4 0 2 0 3 0 0 0 0
 0 0 0 0 0 3 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 4 0 1 0 0
 0 4 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0
 0 1 0 0 0 2 0 0 0 0 0 3 0 1 0 0 0 0 0 0 0 0 0 0 0 0

      ⍝ And we finally just need
      ⍝ to sum each line with the
      ⍝ Sum (+/) operator:

      +/0⌈5-crds⍳⊃∊¨a
15 9 9 7

      ⍝ That was easy: it is also a
      ⍝ good example of the way
      ⍝ one should approach and
      ⍝ solve a problem in APL:
      ⍝ thinking globally, not cell
      ⍝ by cell, and making best
      ⍝ possible use of the APL
      ⍝ primitives and operators!

      ⍝ 15 characters to solve this
      ⍝ little problem!

      ⍝ Which other language can do
      ⍝ better than APL?

The next challenge is to write a Find APL function, as concise and efficient as possible, that finds a random Bridge cards distribution where the North hand (i.e. the first element of the Dist result) has a value of at least a given number.

The Find function should take a single integer (between 0 and 37 inclusive) as its argument. It must find a Bridge cards distribution where the North hand has at least this value.

It should use all the other functions developed in the previous quizzes, i.e. the Eval, Display, Split, SortDist and Dist functions (see Quiz #1 to Quiz #5) to return and display the first random Bridge cards distribution you find that matches the constraint.

      Find 15
                 S K 9 3
                 H A K J 9
                 D A 7 2
                 C A X 9
  S A J X 6 2                   S Q 8 7 4
  H X 6 5 2                     H 7 4 3
  D Q                           D X 8 4
  C Q J 3                       C K 8 4
                S 5
                H Q 8
                D K J 9 6 5 3
                C 7 6 5 2

      Find 28
                S A Q 7
                H A K 6
                D A Q
                C A K Q 3 2
  S K 8 2                     S 5 4 3
  H J X 9 4 2                 H 7
  D J X 8 3                   D 9 7 6 5 4
  C 6                         C X 8 5 4
                S J X 9 6
                H Q 8 5 3
                D K 2
                C J 9 7

    ∇ r←Find a
[1]   ⍝∇ r←Find a -- Finds and displays a Bridge
[2]   ⍝∇             cards distribution where
[3]   ⍝∇             the North hand has a value
[4]   ⍝∇             at least equal to "a"
[5]   ⍝∇ a ←→ an integer scalar between 0 and 37
[6]   ⍝∇      the minimum value for the North hand
[7]   ⍝∇ r ←→ the result of the Display function
[8]   ⍝∇      to show the found Bridge cards
[9]   ⍝∇      distribution that matches the
[10]  ⍝∇      constraint
[11]
[12]  :while a>↑Eval r←Dist ⋄ :endwhile
[13]  r←Display Split SortDist r
    ∇

      ⍝ Not much to say!

      ⍝ Yes, APL+Win also has all the
      ⍝ traditional Control Structures
      ⍝ and yes, you can also write 
      ⍝ loops in APL, if you really
      ⍝ want to (or if you need to)!

      ⍝ This solution simply runs 
      ⍝ Eval Dist in a "while" loop
      ⍝ and exits the loop as soon as a
      ⍝ solution meeting the constraint
      ⍝ has been found.

      ⍝ It then displays it using the 
      ⍝ Display Split and SortDist
      ⍝ functions.