Data commit

Task/Playing-cards/K/playing-cards-1.k

@@ -0,0 +1,6 @@
+   v:"A23456789TJQK" / values
+   s:"SHCD"          / suites
+
+   / create a new deck
+   newdeck:{deck::,/s,'\:v}
+   newdeck();

Task/Playing-cards/K/playing-cards-2.k

@@ -0,0 +1,4 @@
+   show:{`0:$,/-3$$deck}
+
+   show()
+SA S2 S3 S4 S5 S6 S7 S8 S9 ST SJ SQ SK HA H2 H3 H4 H5 H6 H7 H8 H9 HT HJ HQ HK CA C2 C3 C4 C5 C6 C7 C8 C9 CT CJ CQ CK DA D2 D3 D4 D5 D6 D7 D8 D9 DT DJ DQ DK

Task/Playing-cards/K/playing-cards-3.k

@@ -0,0 +1,4 @@
+   shuffle:{deck::(-#deck)?deck}
+
+   shuffle();show()
+S8 CA D5 D2 SJ D6 DJ H7 S4 S9 SQ SK S5 D8 C4 HT DA H3 S6 S2 DT HA C2 C5 D9 ST C7 DK S3 HQ D7 DQ C8 D3 SA CJ CQ CT H4 H2 CK H9 H5 C3 C6 H6 D4 HJ C9 S7 HK H8

Task/Playing-cards/K/playing-cards-4.k

@@ -0,0 +1,12 @@
+   deal1:{|((#deck)-x)_|deck}
+   deal:{c:deal1[x];deck::(deck _dvl c);c}
+
+   deal[5]
+("S8"
+ "CA"
+ "D5"
+ "D2"
+ "SJ")
+
+   #deck / 5 cards are removed
+47

Task/Playing-cards/K/playing-cards-5.k

@@ -0,0 +1,16 @@
+   {deal@5}'!3
+(("D6"
+  "DJ"
+  "H7"
+  "S4"
+  "S9")
+ ("SQ"
+  "SK"
+  "S5"
+  "D8"
+  "C4")
+ ("HT"
+  "DA"
+  "H3"
+  "S6"
+  "S2"))

Task/Playing-cards/K/playing-cards-6.k

@@ -0,0 +1,4 @@
+  #deck
+32
+  show()
+DT HA C2 C5 D9 ST C7 DK S3 HQ D7 DQ C8 D3 SA CJ CQ CT H4 H2 CK H9 H5 C3 C6 H6 D4 HJ C9 S7 HK H8