งานของคุณคือการหาลำดับแบล็คแจ็คที่แตกต่างกันจำนวนมากในรายการไพ่ 12 ใบ

ลำดับแบล็กแจ็กถูกกำหนดให้เป็นลำดับของไพ่ที่ต่อเนื่องกันซึ่งมีแต้มรวมเป็น 21 แต้มจะถูกนับตามตารางต่อไปนี้:

Symbol | Name  | Points     Symbol | Name  | Points
-------+-------+--------    -------+-------+--------
   2   | Two   | 2             9   | Nine  | 9
   3   | Three | 3             T   | Ten   | 10
   4   | Four  | 4             J   | Jack  | 10
   5   | Five  | 5             Q   | Queen | 10
   6   | Six   | 6             K   | King  | 10
   7   | Seven | 7             A   | Ace   | 1 or 11
   8   | Eight | 8

อินพุต

สตริง 12 อักขระโดยใช้สัญลักษณ์ที่อธิบายไว้ข้างต้น เราไม่สนใจเกี่ยวกับสีของการ์ดดังนั้นจึงไม่มีให้

ตัวอย่าง:

K6K6JA3Q4389

เอาท์พุต

จำนวนของลำดับแบล็คแจ็คที่แตกต่างกันซึ่งสามารถพบได้ในสตริงอินพุต

ตัวอย่าง:

K6K6JA3Q4389 รวมถึงลำดับแบล็คแจ็คที่แตกต่างกันสองลำดับ:

• JAโดยที่แต้มถูกนับเป็น 11 คะแนน (10 + 11 = 21)
• A3Q43โดยที่แต้มถูกนับเป็น 1 แต้ม (1 + 3 + 10 + 4 + 3 = 21)

ดังนั้นคำตอบก็2คือ

กฎระเบียบ

• ลำดับแบล็คแจ็คสองลำดับถือว่าแตกต่างกันหากมีไพ่ต่างกันหรือมีไพ่เหมือนกันตามลำดับที่ต่างกัน หากลำดับเดียวกันที่แน่นอนปรากฏขึ้นที่ตำแหน่งต่าง ๆ ในรายการอินพุตจะต้องนับเพียงครั้งเดียว
• ลำดับแบล็คแจ็คอาจซ้อนทับกัน
• การ์ดแต่ละชนิดอาจปรากฏขึ้นตามลำดับสูงสุด 12 ครั้ง (เราคิดว่าการ์ดจะถูกเลือกจากอย่างน้อย 3 เด็คที่แตกต่างกัน)
• หากไม่พบลำดับแบล็กแจ็กในสตริงอินพุตคุณต้องส่งคืน0หรือค่าเท็จอื่น ๆ
• นี่คือรหัสกอล์ฟดังนั้นคำตอบที่สั้นที่สุดในหน่วยไบต์ชนะ ช่องโหว่มาตรฐานเป็นสิ่งต้องห้าม

กรณีทดสอบ

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

Input        | Output | Distinct sequences
-------------+--------+--------------------------------------------------------
3282486Q3362 | 0      | (none)
58A24JJ6TK67 | 1      | 8A2
Q745Q745Q745 | 1      | Q74
AAAAAAAAAAAA | 1      | AAAAAAAAAAA
T5AQ26T39QK6 | 2      | AQ, 26T3
JQ4A4427464K | 3      | A442, 44274, 7464
Q74Q74Q74Q74 | 3      | Q74, 74Q, 4Q7
37AQKA3A4758 | 7      | 37A, 37AQ, AQ, AQK, QKA, KA, A3A475
TAQA2JA7AJQA | 10     | TA, TAQ, AQ, QA, A2JA7, 2JA7A, JA, AJ, AJQ, JQA
TAJAQAKAT777 | 13     | TA, TAJ, AJ, JA, JAQ, AQ, QA, QAK, AK, KA, KAT, AT, 777

เจลลี่ , 30 29 ไบต์

1e×5,⁵Ḥ‘
O_48«26%⁴µSeÇ
ẆÇÐfQL

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

อย่างไร?

โปรดทราบว่าถ้าเราให้คุณค่าเอซเป็น1เสมอผลรวมที่ใช้ได้คือ21และ11 หากเป็นเอซที่ยอมรับได้ในลำดับนั้น

ẆÇÐfQL - Main link: string
Ẇ      - all non-empty contiguous sublists
  Ðf   - filter keep if...
 Ç     -     last link (2) as a monad ...is truthy
    Q  - unique results
     L - length

O_48«26%⁴µSeÇ - Link 2, isBlackjackSubtring: char array  e.g. ['A','2','8','Q']
O             - cast to ordinal values                        [ 65, 50, 56, 81]
 _48          - subtract 48                                   [ 17,  2,  8, 33]
     26       - 26
    «         - minimum (vectorises)                          [ 17,  2,  8, 26]
        ⁴     - 16
       %      - modulo                                        [  1,  2,  8, 10]
         µ    - monadic chain separation (call the result v)
          S   - sum(v)                                        21
            Ç - last link (1) as a monad link_1(v)            [11,21]
           e  - exists in?                                    1

1e×5,⁵Ḥ‘ - Link 1 validSums: value list (where A is 1, and {T,J,Q,K} are 10)
1e       - 1 exists in? (are there any aces? Yields 1 or 0)
  ×5     - multiply by 5 (5 or 0)
     ⁵   - 10
    ,    - pair ([5,10] or [0,10])
      Ḥ  - double ([10,20] or [0,20])
       ‘ - increment ([11,21] or [1,21])
         -                        ^
         -     note: if no ace is in the sequence it's sum can't be 1 anyway

Python 2, 215 ไบต์

def b(s,a=[],r=range):
 S=map(lambda x:":">x>"1"and int(x)or 10-(x=="A")*9,s)
 for i in r(12):
  for j in r(13):
   if 21in[x*10+sum(S[i:j])for x in r(S[i:j].count(1)+1)]and s[i:j]not in a:a+=s[i:j],
 return len(a)

ความคิดเห็นที่เพิ่ม:

def b(s,a=[],r=range):                                      # Define the function b and a list, a, which holds all the blackjack sequences
 S=map(lambda x:":">x>"1"and int(x)or 10-(x=="A")*9,s)      # Set S to the score of each card in b
 for i in r(12):                                            # Loop with i from 0 to 11
  for j in r(13):                                           # Loop with j from 0 to 12
   if 21in[x*10+sum(S[i:j])for x in r(S[i:j].count(1)+1)]\  # If 21 is included in all the possible sums that the scores between i and j in S can be
           and s[i:j]not in a:                              # And that sequence is not already included,
               a+=s[i:j],                                   # Append that sequence to a
 return len(a)                                              # Return the amount of elements in a

Python , 134 130 ไบต์

lambda x:len({x[i:j]for i in range(12)for j in range(13)if sum(min(26,ord(c)-48)%16for c in x[i:j])in([11,21][~('A'in x[i:j]):])})

ลองออนไลน์!

อย่างไร?

ฟังก์ชั่นชื่อการสตริงที่มีความยาว 12 xเป็น

x[i:j]เป็นชิ้นของสตริงจาก i + 1 ^THการเจ^THตัวอักษร

ชิ้นจะถูกนำเช่นว่าเรามีรายการย่อยโดย traversing จากi=0ไปi=11ด้วยfor i in range(12)สำหรับแต่ละที่เราสำรวจจากj=0ไปด้วยj=12for j in range(13)

(เราต้องการเพียง แต่j=i+1ขึ้นไป แต่ชิ้นส่วนที่มีj<=iเป็นเพียงสตริงว่างดังนั้นเราจึงสามารถตี 4 ไบต์ได้for j in range(i+1,13))

เหล่านี้จะถูกกรองสำหรับผู้ที่มีผลรวมที่ถูกต้อง ...

ผลรวมที่ถูกต้องคือ 11 และ 21 หากมีเอซในชิ้นหรือเพียง 21 ถ้าไม่ 'A'in x[i:j]ทำให้เรามีข้อมูลนี้และ~(v)ดำเนินการ-1-vที่เราใช้ในการฝาน[11,21]- ดังนั้นหากเอซอยู่ในลำดับที่เราได้รับ[11,21][-2:]และหากไม่ได้ที่เราได้รับ[11,21][-1:]ผลใน[11,21]และ[21]ตามลำดับ

ผลรวมของตัวเองต้องการที่จะรักษาAเป็น 1 ตัวเลขเป็นค่าของพวกเขาและT, J, QและKเป็น 10. การทำแผนที่นี้จะทำได้โดยการคัดเลือกนักแสดงคนแรกที่เลข:
" 2 3 4 5 6 7 8 9 T J Q K A"(ไม่มีช่องว่าง) จะกลายเป็น
[50, 51, 52, 53, 54, 55, 56, 57, 84, 74, 81, 75, 65]ลบ 48 จะได้รับ
[ 2, 3, 4, 5, 6, 7, 8, 9, 36, 26, 33, 27, 17]เอาmin26 กับอัตราผลตอบแทน
[ 2, 3, 4, 5, 6, 7, 8, 9, 26, 26, 26, 26, 17], และ mod ( %) สิบหกเหล่านั้น
[ 2, 3, 4, 5, 6, 7, 8, 9, 10, 10, 10, 10, 1]ตามที่จำเป็นสำหรับผลรวม, sum(...).

ผลลัพธ์ที่กรองจะถูกวางลงในชุดด้วย{...}ดังนั้นเฉพาะผลลัพธ์ที่ไม่ซ้ำกันและความยาวเท่านั้นที่len(...)จะนับ

05AB1E , 39 38 37 ไบต์

'A1:vTy‚ydè})ŒvyO¸y1åiDT+ì}21å})¹ŒÏÙg

ลองออนไลน์!

คำอธิบาย

'A1:                  # replace A with 1 in input

v      }              # for each card
 Ty‚                  # pair 10 and the card
    yd                # check if the card is a digit
      è               # use this to index into the pair, giving 10 for JQK
        )             # wrap in list
                      # we now have a list of cards as numbers in range [1 ... 10]

Œv               }    # for each sublist
  yO¸                 # create a list with the sum of the sublist
     y1åi    }        # if the sublist contain 1
         DT+ì         # add sum+10 to the list
              21å     # check if 21 is in that list
                  )   # wrap in list
                      # we now have a list with 1 where the sublist sums to 21 and
                      # 0 otherwise

¹Œ                    # get sublists of the input
  Ï                   # keep only those which sum to 21
   Ù                  # remove duplicates
    g                 # count the number of lists

JavaScript (ES6), 123 ไบต์

f=
t=>eval("for(s=new Set,i=0;t[i];i++)for(a=0,b=21,j=i;c=t[j++];b&&b-a*10||s.add(t.slice(i,j)))b-=+c||(c>'A'?10:a=1);s.size")

<input oninput=o.textContent=/[^2-9TJQKA]/.test(this.value)?'':f(this.value)><pre id=o>

JavaScript (ES6), 144 138 129 128 126 124 ไบต์

g=([c,...s],a=[],q=new Set)=>c?g(s,[...a,[,21]].map(([x,y,A])=>[x+=c,y-=+c||(c<'B'?A=1:10),A,y&&y^10*A||q.add(x)]),q):q.size

ความพยายามเก่าที่ 128:

s=>(q=new Set,f=s=>s?f(s.slice(1))&f(s.slice(0,-1))&[...s].map(c=>t+=-c||~(c<'B'?A=0:9),t=A=21)|t&&t-10*!A?q:q.add(s):q)(s).size

JavaScript (ES6), 112 ไบต์

f=(s,x=[k=0])=>s?f(s.slice(1),x,[...s].map(c=>x[t+=+c||10^(c<'B'?a=11:0),b+=c]||t-21&&t-a?0:x[b]=++k,a=b=t=0)):k

ตรรกะรหัสนี้ค่อนข้างคล้ายกับที่ใช้ในการมีอยู่คำตอบจาก JS ETHproductionsและนีล Setแต่มันใช้อาร์เรย์พื้นฐานในการติดตามพบแบล็คแจ๊ลำดับมากกว่า

จัดรูปแบบและแสดงความคิดเห็น

f = (                     // given:
  s,                      //  - s = list of cards
  x = [k = 0]             //  - x = array of Blackjack sequences
) =>                      //  - k = number of distinct Blackjack sequences 
  s ?                     // if s is not empty:
    f(                    //   do a recursive call:
      s.slice(1),         //     starting at the next card in the list
      x,                  //     without re-initializing x[]
      [...s].map(         //   for each card 'c' in the list:
        c => x[           //
          t+ =            //   update the total number of points:
            +c ||         //     using the number of the card (for 2 ... 9)
            10 ^ (        //     or using 10 for all other cards
              c < 'B' ?   //     except the Ace which is
                a = 11    //     counted as 1 point and sets 'a' to 11
              :           //     (which means that a total number of points
                0         //     of 11 will be considered valid from now on)
            ),            //
          b += c          //   update the current sequence 'b'
        ] ||              //   if x[b] was previously stored as a Blackjack sequence
        t - 21 &&         //   or the total number of points is not equal to 21
        t - a ?           //   and not equal to 'a':
          0               //     do nothing
        :                 //   else:
          x[b] = ++k,     //     store the current sequence in x[] and increment k
        a = b = t = 0     //   initialization of all variables used in map()
      )                   //
    )                     //
  :                       // else:
    k                     //   return k

กรณีทดสอบ

f=(s,x=[k=0])=>s?f(s.slice(1),x,[...s].map(c=>x[t+=+c||10^(c<'B'?a=11:0),b+=c]||t-21&&t-a?0:x[b]=++k,a=b=t=0)):k

console.log(f('3282486Q3362')) // 0 
console.log(f('58A24JJ6TK67')) // 1 
console.log(f('Q745Q745Q745')) // 1 
console.log(f('AAAAAAAAAAAA')) // 1 
console.log(f('T5AQ26T39QK6')) // 2 
console.log(f('JQ4A4427464K')) // 3 
console.log(f('Q74Q74Q74Q74')) // 3 
console.log(f('37AQKA3A4758')) // 7 
console.log(f('TAQA2JA7AJQA')) // 10
console.log(f('TAJAQAKAT777')) // 13

05AB1E , 40 39 38 37 36 ไบต์

-4 ขอบคุณEmigna

Ç<çJŒÙ'@0:[Ž„èµJuS9:S>D1å2‚T*>sOå½]¾

ลองออนไลน์!

Ç<ç                                  # decrement characters by 1
   JŒÙ                               # get all unique substrings
      '@0:                           # replace @ (was A) with 0
          [Ž                      ]  # for everything on the stack
            „èµJuS9:                 # replace what was T,J,Q,K with 9
                    S>D              # increment all values
                       1å2‚T*>       # push [11,21] if there was an A, [1,21] otherwise
                              sO     # sum the values of the cards
                                å½   # increment the counter_variable if the sum 
                                     # is in the array
                                   ¾ # end loop and push (print) the counter_variable

เราจำเป็นต้องทำการลดค่า -> substring -> สิ่งที่เพิ่มขึ้นเพื่อให้การ์ดใบหน้าถูกแสดงด้วยตัวเลขหลักเดียว

ยูทิลิตีBash + Unix, 145 142 141 ไบต์

for n in {9..155}
{ echo ${1:n%12:n/12};}|sort -u|sed 's/\(.\)/+\1/g;s/A/{1,11}/g;s/[J-T]/10/g;s/^/eval echo $[0/;s/$/]/'|sh|grep -c '\<21\>'

ลองออนไลน์!

ทดสอบการทำงาน:

for x in 3282486Q3362 58A24JJ6TK67 Q745Q745Q745 AAAAAAAAAAAA T5AQ26T39QK6 JQ4A4427464K Q74Q74Q74Q74 37AQKA3A4758 TAQA2JA7AJQA TAJAQAKAT777
  do
    echo -n "$x "
    ./21 "$x"
  done

3282486Q3362 0
58A24JJ6TK67 1
Q745Q745Q745 1
AAAAAAAAAAAA 1
T5AQ26T39QK6 2
JQ4A4427464K 3
Q74Q74Q74Q74 3
37AQKA3A4758 7
TAQA2JA7AJQA 10
TAJAQAKAT777 13

PHP, 240 ไบต์

$a=str_split($argv[1]);foreach($a as$k=>$v)$n[$k]=$v=='A'?1:($v==0?10:$v);for($i=0;$i<=$k;$i++){$s=$a[$i];$r=$n[$i];for($j=$i+1;$j<=$k;$j++){$s.=$a[$j];$r+=$n[$j];if ($r==21||($r==11&&stristr($s,'A')))$f[]=$s;}}echo count(array_unique($f));

Ungolfed:

$a = str_split($argv[1]);
foreach ($a as $k=>$v)
    $n[$k] = $v == 'A' ? 1 : ($v == 0 ? 10 : $v);
for ($i=0; $i<=$k; $i++) {
    $s = $a[$i];
    $r = $n[$i];
    for ($j=$i+1; $j<=$k; $j++) {
        $s .= $a[$j];
        $r += $n[$j];
        if ($r == 21 || ($r == 11 && stristr($s,'A')) )
            $f[] = $s;
    }
}
echo count(array_unique($f));

ลองที่นี่!