แบล็คแจ็คหรือที่รู้จักกันในชื่อยี่สิบเอ็ดเป็นเกมไพ่เปรียบเทียบระหว่างคุณกับดีลเลอร์ซึ่งผู้เล่นแต่ละคนจะแข่งขันกับดีลเลอร์ แต่ผู้เล่นไม่ได้เล่นกันเอง

เล่นไปดังนี้ตัวแทนจำหน่ายเกี่ยวข้องกับการ์ด เจ้ามือจะแจกการ์ดให้ตนเองโดยคว่ำหน้าลง ตัวแทนจำหน่ายจะแจกไพ่ให้คุณอีกใบ ในที่สุดตัวแทนจำหน่ายแจกบัตรด้วยตนเองโดยหงายหน้าขึ้น

ท้าทาย

ความท้าทายของคุณคือการเขียนโปรแกรม (หรือฟังก์ชั่น) ที่เมื่อเรียกใช้ (หรือเรียกว่า) ผลลัพธ์ (หรือผลตอบแทน) ความน่าจะเป็นที่การ์ดใบต่อไปของเจ้ามือจะให้คุณจะทำให้คุณสะดุดซึ่งหมายถึงคะแนนสะสมของไพ่ในมือ เจ้ามือให้ไพ่ใบใหม่แก่คุณมากกว่า 21 ใบ

อินพุต

ไพ่สามใบที่มองเห็นได้ในการเล่น พวกเขาเป็นไพ่สองใบที่คุณมีในมือของคุณและไพ่ใบเดียวที่คุณเห็นในมือตัวแทนจำหน่าย สามารถอยู่ในรูปแบบใดก็ได้ที่คุณเห็นว่าเหมาะสมกับแอปพลิเคชันของคุณ

มีไพ่ 52 ใบในสำรับ (ไพ่ 4 ใบแต่ละใบด้านล่าง) มูลค่าของการ์ดมีดังนี้:

Symbol(Case Insensitive)  Name     Value
2                         Two      2
3                         Three    3
4                         Four     4
5                         Five     5
6                         Six      6
7                         Seven    7
8                         Eight    8
9                         Nine     9
T                         Ten      10
J                         Jack     10
Q                         Queen    10
K                         King     10
A or 1                    Ace      1 

ในแบล็คแจ็คเอซสามารถนับเป็น 1 หรือ 11 ในการแข่งขันของเรานับเป็น 1 เท่านั้น

เอาท์พุต

ความน่าจะเป็นในรูปแบบอัตราส่วนหรือเปอร์เซ็นต์ที่ไพ่ใบถัดไปที่เราจับจะทำให้เราสะดุด

คุณอาจส่งออกร้อยละเศษส่วนหรือเพียงเศษของเศษส่วน

ตัวอย่าง

ในตัวอย่างนี้ไพ่สองใบแรกอยู่ในมือของเราไพ่ใบที่สามคือไพ่ที่มองเห็นได้จากดีลเลอร์

 Input          ->       Output

 A 2 Q          ->       0.00%  or  0/49 or 0
 A 2 3          ->       0.00%  or  0/49 or 0
 T T T          ->       91.84% or 45/49 or 91.84 
 T J K          ->       91.84% or 45/49 or 45
 9 7 3          ->       61.22% or 30/49 ...
 9 7 Q          ->       59.18% or 29/49 ...

กฎระเบียบ

ไม่อนุญาตช่องโหว่มาตรฐาน

นี่คือโค้ดกอล์ฟดังนั้นโค้ดที่สั้นที่สุดเป็นไบต์สำหรับแต่ละภาษาจะชนะ!

เจลลี่ ,  26  24 ไบต์

O%48«⁵µ13R«⁵ẋ4œ-+ṖS$>21S

การเชื่อมโยงเอกยอมรับรายการของตัวอักษร (โดยใช้ตัวเลือกกรณีที่ต่ำกว่าหรือตัวเลือกบนกรณีมี1สำหรับA) ซึ่งผลตอบแทนเศษ (จำนวน 49 ^TH s) [0,49]ใน

ลองออนไลน์! หรือดูชุดทดสอบ

อย่างไร?

โปรดทราบว่าโดยใช้ตัวพิมพ์เล็กขั้นต่ำ10และลำดับโมดูโลแบบ48ให้ค่าบัตร ตัวยึดที่เหมือนกันสำหรับตัวพิมพ์Tใหญ่J, และQ, สำหรับเอซตามที่แสดงทางด้านขวา (แต่ตัวพิมพ์ใหญ่ใช้งานไม่ได้):K1A

     card:   a   2   3   4   5   6   7   8   9   t   j   q   k   |   1   T   J   Q   K
  ordinal:  97  50  51  52  53  54  55  56  57 116 106 113 107   |  49  84  74  81  75
   mod 48:   1   2   3   4   5   6   7   8   9  20  10  17  11   |   1  36  26  33  27
min(_,10):   1   2   3   4   5   6   7   8   9  10  10  10  10   |   1  10  10  10  10

O%48«⁵µ13R«⁵ẋ4œ-+ṖS$>21S - Link: list of characters   e.g. "q3a"
O                        - ordinals (of the input list)    [113, 51, 97]
 %48                     - modulo by 48                    [17,3,1]
     ⁵                   - ten
    «                    - minimum                         [10,3,1]
      µ                  - start a new monadic chain
       13R               - range of 13                     [1,2,3,4,5,6,7,8,9,10,11,12,13]
           ⁵             - ten                             10
          «              - minimum                         [1,2,3,4,5,6,7,8,9,10,10,10,10]
            ẋ4           - repeat four times               [1,2,3,4,5,6,7,8,9,10,10,10,10,1,2,3,4,5,6,7,8,9,10,10,10,10,1,2,3,4,5,6,7,8,9,10,10,10,10,1,2,3,4,5,6,7,8,9,10,10,10,10]
              œ-         - multi-set difference            [1,2,3,4,5,6,7,8,9,10,10,10,10,1,2,3,4,5,6,7,8,9,10,10,10,10,1,2,3,4,5,6,7,8,9,10,10,10,10  ,2  ,4,5,6,7,8,9   ,10,10,10]
                   $     - last two links as a monad:
                 Ṗ       -   pop                           [10,3]
                  S      -   sum                           13
                +        - add (vectorises)                [14,15,16,17,18,19,20,21,22,23,23,23,23,14,15,16,17,18,19,20,21,22,23,23,23,23,14,15,16,17,18,19,20,21,22,23,23,23,23,15,17,18,19,20,21,22,23,23,23]
                    >21  - greater than 21?                [0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1]
                       S - sum                             19

JavaScript (ES6), 73 62 ไบต์

รับอินพุตเป็นอาร์เรย์ 3 อักขระด้วย1สำหรับเอซ ส่งคืนเลขจำนวนเต็มX ที่แสดงถึงความน่าจะเป็นX / 49 ที่จะถูกจับ

a=>([b,c]=a.map(v=>v*4||40)).map(n=>b-=n+b>52,b+=c-32)|b>12&&b

ลองออนไลน์!

การทดสอบอย่างละเอียด

สูตร golfed ไม่ได้ใช้งานง่ายมาก ดังนั้นวิธีที่ง่ายที่สุดในการพิสูจน์ความสอดคล้องของมันก็อาจจะเป็นเพียงการเปรียบเทียบผลลัพธ์ที่เป็นไปได้ทั้งหมดกับสิ่งที่ได้รับจากการใช้งานขั้นพื้นฐานที่ไม่ดี

g = a => {
  deck = [...'123456789TJQK'.repeat(4)];
  a.forEach(card => deck.splice(deck.indexOf(card), 1));

  return deck.filter(card =>
    (+a[0] || 10) +
    (+a[1] || 10) +
    (+card || 10) > 21
  ).length;
}

ลองออนไลน์!

Pyth, 35 ไบต์

Jm?}dGTsdQclf>T-21sPJ.-*4+ST*3]TJ49

รับอินพุตเป็นรายการของอักขระ (หรือเป็นสตริง)
ลองที่นี่

คำอธิบาย

Jm?}dGTsdQclf>T-21sPJ.-*4+ST*3]TJ49
Jm?}dGTsdQ                            Convert each input to the appropriate number.
                     .-*4+ST*3]TJ     Remove each from the deck.
           lf>T-21sPJ                 Count how many remaining cards bust.
          c                      49   Get the probability.

Perl 5 , 115 ไบต์

map{//;$k{$_}=4-grep$' eq$_,@F}1..9,T,J,Q,K;map{s/\D/10/}@F;$_=grep{$F[0]+$F[1]+$_>21}map{(s/\D/10/r)x$k{$_}}keys%k

ลองออนไลน์!

Python 2 , 97 96 ไบต์

def f(s):C=[min(int(c,36),10)for c in s];D=C[0]+C[1];return(4*D-35+sum(v+D<22for v in C))*(D>11)

ลองออนไลน์!

รับสายอักขระ 3 ตัวเป็นอินพุตโดยใช้ '1' เป็น Ace ส่งคืนตัวเศษ

Java 8, 109 ไบต์

a->{int r=3;for(;r-->0;a[r]=a[r]<59?a[r]*4-192:40);r=a[0]+a[1]-32;for(int v:a)r-=v+r>52?1:0;return r>12?r:0;}

ท่าเรือ@Arnauld JavaScript (ES6) คำตอบของ
อินพุตเป็นอักขระอาร์เรย์ที่มีสามค่า Aces as '1'; เอาท์พุทคือความน่าจะเป็นในpp/49

ลองออนไลน์

คำอธิบาย:

a->{                   // Method with integer-array as parameter and integer return-type
  int r=3;for(;r-->0;  //  Loop over the array
    a[r]=a[r]<59?      //   If the current item is a digit:
          a[r]*4-192   //    Multiply it by 4
         :             //   Else:
          40);         //    Change it to 40
  r=a[0]+a[1]-32;      //  Set `r` to the first value, plus the second value, minus 32
  for(int v:a)         //  Loop over the now modified array again
    r-=v+r>52?         //   If the current value plus `r` is larger than 52
        1              //    Decrease the result-integer by 1
       :0;             //   Else: Leave the result-integer the same
  return r>12?         //  If the result-integer is larger than 12
          r            //   Return the result-integer
         :             //  Else:
          0;}          //   Return 0

05AB1E , 46 ไบต์

Y9ŸJ.•§®т•«Á4שsð.;#S|UεX‚˜ε®sk>T‚W}O21›}DOsg/

ลองออนไลน์!

สิ่งนี้สามารถทำได้ดีกว่าทำงานกับมัน

05AB1E , 23 22 21 ไบต์

AST:4-D¨OÐ4@*4*Š+T@O-

ลองออนไลน์!

AST:                   # replace all letters in the input with 10
    4-                 # subtract 4 from each card value
      D                # duplicate
       ¨               # drop the last element
        O              # sum (hand value of the player - 8)
         Ð             # triplicate that
          4@*          # set to 0 if it's less than 4
             4*        # multiply by 4
               Š       # 3-way swap
                +      # add the player's hand value to each card value
                 T@O   # count how many are >= 10
                    -  # subtract