Các đại lý đã cẩu thả và mất dấu của bộ bài của anh ta / cô ta và những lá bài nào bị thiếu, bạn có thể giúp anh ta / cô ta không?

Một bộ bài hoàn chỉnh bao gồm 52 thẻ chơi, cụ thể là:

Mỗi màu trong bộ bài (trái tim, kim cương, thuổng, câu lạc bộ) chứa:

• Các số [2 - 10]
• Một Jack
• Nữ hoàng
• Một vị vua
• Một Ace

Bài tập

Chương trình của bạn sẽ đọc nội dung của bộ bài từ STDIN cho đến khi một dòng mới được đọc. Bạn có thể giả sử rằng đầu vào sẽ ở dạng "nX nX nX nX", v.v. trong đó:

• n - bất kỳ số nào trong khoảng [2 - 10] hoặc 'J', 'Q', 'K' hoặc 'A'. (Bạn chỉ có thể giả sử chữ hoa cho các ký tự không phải là số)
• X - bất kỳ nội dung nào sau đây: 'H', 'D', 'S', 'C' (Bạn chỉ có thể giả sử chữ hoa)

Ở đâu:

• 'J' = Jacks
• 'Q' = Nữ hoàng
• 'K' = Vua
• 'A' = Ace

Và

• 'H' = Trái tim
• 'D' = Kim cương
• 'S' = Spades
• 'C' = Câu lạc bộ

Bạn có thể cho rằng sẽ không có bản sao trong đầu vào.

Sau đó, chương trình của bạn phải in các thẻ bị thiếu trong cỗ bài sang STDOUT theo cùng kiểu với đầu vào ("nX nX nX") hoặc in 'Không thiếu thẻ' nếu tất cả 52 thẻ được cung cấp. Không có ràng buộc về thứ tự đầu ra của thẻ.

Ví dụ đầu vào:

9H AH 7C 3S 10S KD JS 9C 2H 8H 8C AC AS AD 7D 4D 2C JD 6S

Đầu ra:

3H 4H 5H 6H 7H 10H JH QH KH 2D 3D 5D 6D 8D 9D 10D QD 2S 4S 5S 7S 8S 9S QS KS 3C 4C 5C 6C 10C JC QC HC

Chúc bạn chơi golf vui vẻ!

Windows Batch (CMD), 205 204 byte

@set/pc=
@set d=
@for %%s in (H D S C)do @for %%r in (2 3 4 5 6 7 8 9 10 J Q K A)do @call set d=%%d%% %%r%%s
@for %%c in (%c%)do @call set d=%%d: %%c=%%
@if "%d%"=="" set d= No missing cards
@echo%d%

Vòng lặp trên bộ quần áo và xếp hạng xây dựng một bộ bài hoàn chỉnh, sau đó xóa các thẻ đầu vào. Lưu 1 byte nếu Tđược phép thay vì 10. Lưu 11 byte nếu đối số dòng lệnh là đầu vào chấp nhận được. Chỉnh sửa: Đã lưu 1 byte nhờ @ user202729.

Python, 147 146 145 138 131 129 127 125 120 byte

print(' '.join(set(`x`+y for x in range(2,11)+list('JQKA')for y in'HDSC')-set(raw_input().split()))or'No missing cards')

Nhận tất cả các thẻ có thể dưới dạng một bộ và trừ các thẻ đầu vào.

-1 byte nhờ mbomb007 chỉ ra một khoảng trống thừa trong mã của tôi.
-1 byte nhờ mbomb007 để chỉ ra một số chơi golf có thể được thực hiện với Python 2 (-5 byte và 4 byte cho raw_trong raw_input)
-7 byte bằng cách chuyển sang sử dụng bộ và bộ trừ thay vì comprehensions danh sách
-7 byte nhờ ValueInk vì đã chỉ ra rằng tôi không cần đến listcác bộ
-2 byte nhờ Datastream vì đã chỉ ra rằng việc viết ra tất cả các giá trị có hiệu quả hơn byte so với điều kỳ lạ mà tôi có trước đó là
-2 byte nhờ ValueInk đã chỉ ra bộ đó có thể mất máy phát điện nên tôi không cần phải đặt nó trong danh sách hiểu
-2 byte nhờ Datastream vì đã chỉ ra rằng tôi có thể chơi golf nhiều hơn nữa nếu tôi chuyển sang Python 3 lần nữa ... (+2 cho parens sau khi in, -4 cho raw_)
-5 byte nhờ Lulhum và bản thân tôi đã chỉ ngoài ra, bằng cách chuyển trở lại Python 2 (!!!) có thể giúp tôi lưu byte (sử dụng lại phạm vi, sử dụng backticks thay vì str(và +4 do raw_)

05AB1E , 39 byte

ðIð¡YTŸ"JQKA"S«"CDHS"SâJsKðýDg>i“Noœ¶‡¶

Hãy thử trực tuyến!

Giải trình

ðI                                       # push space and input
  ð¡                                     # split on spaces
    YTŸ                                  # push the range [2 ... 10]
       "JQKA"S«                          # append ['J','Q','K','A']
               "CDHS"Sâ                  # cartesian product with suits
                       J                 # join each card with its suit
                        sK               # remove any cards in input from the list of all cards
                          ðýDg>i         # if the length of the resulting list is 0
                                “Noœ¶‡¶  # push the string "No missing cards"
                                         # output top of stack

CJam , 49 47 byte

B,2>"JQKA"+"HDSC"m*:slS/-S*"No missing cards"e|

Hãy thử trực tuyến!

Giải trình

B,                    e# The range from 0 to 10
2>                    e# Slice after the first two elements, giving the range from 2 to 10
"JQKA"+               e# Concatenate with "JQKA", giving the array containing all ranks
"HDSC"                e# The string containing all suits
m*                    e# Take the Cartesian product
:s                    e# And cast each pair to a string. Now a full deck has been constructed
l                     e# Read a line of input
S/                    e# Split it on spaces
-                     e# Remove all cards from the deck that were in the input
S*                    e# Join the result with spaces
"No missing cards"    e# Push the string "No missing cards"
e|                    e# Take the logical OR of the result and the string, returning the
                      e#   first truthy value between the two. (empty arrays are falsy)

Thạch , 39 byte

9R‘Ṿ€;“JQKA”p“CDHS”F€œ-ɠḲ¤Kȯ“¡¢ıḍĖ9ṭƥw»

Hãy thử trực tuyến!

Làm sao?

9R‘Ṿ€;“JQKA”p“CDHS”F€œ-ɠḲ¤Kȯ“¡¢ıḍĖ9ṭƥw» - Main link: no arguments
9R                                      - range(1,9)    [1,2,3,4,5,6,7,8,9]
  ‘                                     - increment     [2,3,4,5,6,7,8,9,10]
   Ṿ€                                   - uneval each  [['2'],['3'],['4'],['5'],['6'],['7'],['8'],['9'],['10']]
     ;“JQKA”                            - concatenate with char-list "JQKA" [['2'],['3'],['4'],['5'],['6'],['7'],['8'],['9'],['10'],['J'],['Q'],['K'],['A']]
            p“CDHS”                     - Cartesian product with char-list "CDHS" [[['2'],['C']],[['2'],['D']],...]
                   F€                   - flatten each [['2','C'],['2','S'],...]
                         ¤              - nilad followed by link(s) as a nilad
                       ɠ                -     read a line from STDIN
                        Ḳ               -     split on spaces
                     œ-                 - multi-set difference
                          K             - join with spaces
                            “¡¢ıḍĖ9ṭƥw» - compressed string "No missing cards"
                           ȯ            - logical or
                                        - implicit print

C #, 343 byte

Lần đầu tiên đăng một trong những golf của tôi, mặc dù không phải là một ứng cử viên rất tốt. Tôi chắc chắn rằng tôi có thể giảm điều này nhiều hơn.

Ý tưởng đằng sau nó là sự xuất hiện của các mảng thẻ lưu trữ thưa thớt, với các chỉ số được tính bằng các giá trị ASCII của các giá trị khác nhau và các giá trị nhân với nhau (ví dụ: ace of spades (AS) sẽ được lưu trữ trong khu vực tại chỉ mục (65 * 83 = 5395)). Bằng cách này, mỗi loại thẻ sẽ có một chỉ mục duy nhất có thể được kiểm tra sau này về sự tồn tại trong mảng "bản đồ".

void M(string[]a){var c=new int[]
{50,51,52,53,54,55,56,57,49,74,81,75,65,72,68,83,67};var e=new 
int[9999];int i=0;int j=0;foreach(var s in a) e[s[0]*s[s.Length-
1]]++;int f=0;for(i=0;i<13;i++)for(j=13;j<17;j++)if(e[c[i]*c[j]]==0)
{f=1;Console.Write(((i<9)?(i+2)+"":(char)c[i]+"")+(char)c[j]+" 
");}if(f==0) Console.WriteLine("No missing cards");}

PowerShell , 114 111 110 byte

param($n)('No missing cards',($a=(2..10+'JQKA'[0..3]|%{$i=$_;"CSHD"[0..3]|%{"$i$_"}}|?{$n-notmatch$_})))[!!$a]

Hãy thử trực tuyến!

Đưa đầu vào $nlà một chuỗi được phân tách bằng dấu cách hoặc dấu cách dòng mới. Xây dựng một mảng từ phạm vi được 2..10nối với JQKA(được lập chỉ mục [0..3]để biến nó thành một charmảng). Mảng đó được đưa vào một vòng lặp |%{}đặt trình trợ giúp $isau đó lặp lại các bộ quần áo để nối các kết quả cùng với nhau $i$_. Ở cuối vòng lặp này, chúng ta có một chuỗi các chuỗi như ("2C", "2S", "2H", ... "AH", "AD"). Mảng đó được đưa vào một Where-Object( |?{}) với bộ lọc khi các phần tử $_đó -notmatchlấy lại dữ liệu đầu vào$n . Kết quả của việc lọc được lưu trữ vào $a.

Sau đó, chúng tôi sử dụng một giả ba ( , )[]để chọn xem chúng tôi xuất ra 'No missing cards'hay không $a, dựa trên việc !!$achuyển sang Boolean $falsehay $true. Nếu $atrống (có nghĩa là tất cả các thẻ trong bộ bài đều ở đầu vào), thì đó !!$alà 0, vì vậy thẻ "No missing cards"được chọn. Ngược lại vì $ađược chọn. Trong cả hai trường hợp, điều đó còn lại trên đường ống và đầu ra là ẩn.

Bash + coreutils, 89

sort|comm -3 <(printf %s\\n {10,{2..9},A,J,K,Q}{C,D,H,S}) -|grep .||echo No missing cards

I / O như một danh sách giới hạn dòng mới.

Giải trình

• sort đọc đầu vào được phân tách bằng dòng mới từ STDIN và sắp xếp nó
• Đây là đường ống đến comm
• printf %s\\n {10,{2..9},A,J,K,Q}{C,D,H,S}là một mở rộng cú đúp để tạo ra bộ bài đầy đủ. Các printfthẻ in mỗi thẻ trên dòng riêng của mình. Thứ tự được đưa ra sao cho đầu ra giống như khi nó được dẫn đếnsort
• commso sánh bộ bài đầy đủ với đầu vào được sắp xếp và đầu ra sự khác biệt. -3ngăn chặn đầu ra của cột 3 (những cái phổ biến)
• Toàn bộ đầu ra từ commđược dẫn đến grep .. Nếu không có đầu ra từ comm(tức là tất cả các thẻ nằm trong đầu vào), thì ||mệnh đề "hoặc" xuất ra thông báo bắt buộc. Nếu không, grep .tất cả các dòng đầu ra từ comm.

Hãy thử trực tuyến .

Python 2 , 104,93,130 , 114 byte

r=input()
print' '.join(n+x for n in list('23456789JQKA')+['10']for x in'HDSC'if n+x not in r)or'No missing cards'

Hãy thử trực tuyến!

• -10 byte với mã hóa danh sách thay vì sử dụng phạm vi!
• +37 byte - in bị mất 'Không thiếu thẻ' nếu tất cả các thẻ có mặt trong đầu vào!
• -16 byte bằng cách sửa đổi mã thành một danh sách hiểu!

Ruby, 108 + 1 = 109 byte

Sử dụng -pcờ.

a=[*?2..'10',?J,?Q,?K,?A].map{|i|%w"H D S C".map{|c|i+c}}.flatten-$_.split;$_=a==[]?"No missing cards":a*' '

PHP, 143 byte

foreach([H,D,S,C]as$c)foreach([2,3,4,5,6,7,8,9,10,J,Q,K,A]as$v)$r[]=$v.$c;echo join(" ",array_diff($r,explode(" ",$argn)))?:"No missing cards";

sed , 157 + 1 ( -rcờ) = 170 158 byte

x
s/$/;A2345678910JQK/
s/.+/&H&D&S&C;No missing cards/
:
s/(10|\w)(\w+)(.);/\1\3 \2\3;/
t
G
:s
s/(10.|[^ ;1]{2})(.*\n.*)\1/\2/
ts
s/[ ;]+/ /g
s/^ //
s/ N.+//

Hãy thử trực tuyến!

Điều này tạo ra tất cả các thẻ có thể và sau đó loại bỏ từng thẻ trong đầu vào từ các thẻ được tạo.

C # , 282 byte

Chơi gôn

i=>{var o=new System.Collections.Generic.List<string>();string[] S={"H","D","S","C"},N="A 2 3 4 5 6 7 8 9 10 J Q K".Split(' ');foreach(var s in S){foreach(var n in N){if(!System.Linq.Enumerable.Contains(i,n+s)){o.Add(n+s);}}}return o.Count>0?string.Join(" ",o):"No missing cards";};

Bị đánh cắp

i => {
    var o = new System.Collections.Generic.List<string>();
    string[] S = { "H", "D", "S", "C" }, N = "A 2 3 4 5 6 7 8 9 10 J Q K".Split(' ');

    foreach( var s in S ) {
        foreach( var n in N ) {
            if( !System.Linq.Enumerable.Contains( i, n + s ) ) {
                o.Add( n + s );
            }
        }
    }

    return o.Count > 0
        ? string.Join( " ", o )
        : "No missing cards";
};

Ungolfed có thể đọc được

i => {
    // Initialize a list to contain the list of cards missing
    var o = new System.Collections.Generic.List<string>();

    // Initialize the list of suits and numbers of cards
    string[] S = { "H", "D", "S", "C" }, N = "A 2 3 4 5 6 7 8 9 10 J Q K".Split(' ');

    // Cycle through the suits...
    foreach( var s in S ) {
        // ... and the numbers ...
        foreach( var n in N ) {
            // ... and check it the combo number + suite is missing
            if( !System.Linq.Enumerable.Contains( i, n + s ) ) {
                // If it's missing, add it to the list of missing cards
                o.Add( n + s );
            }
        }
    }

    // If the count of missing cards is greater than 0...
    return o.Count > 0
        // Build a 'space' separated string with the missing cards
        ? string.Join( " ", o )
        // Or output the missing cards string
        : "No missing cards";
};

Mã đầy đủ

using System;
using System.Collections.Generic;
using System.Linq;

namespace Namespace {
   class Program {
      static void Main( String[] args ) {
         Func<String, Int32> f = i => {
            var o = new List<string>();
            string[] S = { "H", "D", "S", "C" }, N = "A 2 3 4 5 6 7 8 9 10 J Q K".Split(' ');

            foreach( var s in S ) {
               foreach( var n in N ) {
                  if( !i.Contains( n + s ) ) {
                     o.Add( n + s );
                  }
               }
            }

            return o.Count > 0
               ? string.Join( " ", o )
               : "No missing cards";
         };

         List<String>
            testCases = new List<String>() {
                "9H AH 7C 3S 10S KD JS 9C 2H 8H 8C AC AS AD 7D 4D 2C JD 6S"
            };

         foreach( String testCase in testCases ) {
            Console.WriteLine( $"{test}\n{f( test.Split( ' ' ) )}" );
         }

         Console.ReadLine();
      }
   }
}

Phát hành

• v1.0 - 282 bytes- Giải pháp ban đầu.

Ghi chú

Không có gì để bổ sung

JavaScript (ES6), 117 114 111 byte

s=>[...Array(52)].map((_,i)=>~s.search(c=('JQKA'[v=i>>2]||v-2)+'CDHS'[i&3])?_:c+' ').join``||'No missing cards'

Điều này lợi dụng thực tế là các mục không xác định trong mảng được tạo bởi map()bị ép buộc thành chuỗi rỗng khijoin() 'd.

Bản giới thiệu

let f =

s=>[...Array(52)].map((_,i)=>~s.search(c=('JQKA'[v=i>>2]||v-2)+'CDHS'[i&3])?_:c+' ').join``||'No missing cards'

console.log(f('9H AH 7C 3S 10S KD JS 9C 2H 8H 8C AC AS AD 7D 4D 2C JD 6S'))

Võng mạc , 76 byte

^
A2345678910JQK¶ 
\G(10|.)
 $&H $&D $&S $&C
Dr` \S+
G1`
^$
No missing cards

Đầu vào / đầu ra là một danh sách các thẻ được phân tách bằng dấu cách. Đầu ra có một không gian hàng đầu.

Hãy thử trực tuyến!

Giải trình

Hầu hết các mã liên quan đến việc xây dựng danh sách đầy đủ các thẻ nên có trong bộ bài:

^
A2345678910JQK¶ 
\G(10|.)
 $&H $&D $&S $&C

Đầu tiên, chúng tôi thêm một dòng mới vào đầu vào, với tất cả các giá trị có thể có của thẻ, sau đó với mỗi ký tự của dòng này (hoặc một vài ký tự 10), chúng tôi sẽ tạo danh sách tất cả các bộ phù hợp có thể có của thẻ đó.

Dr` \S+

Đây là một giai đoạn lặp lại, nó chia chuỗi thành các khối bao gồm một khoảng trắng cộng với một số khoảng trắng và chỉ giữ một lần xuất hiện của mỗi đoạn. Công cụ sửa đổi rlàm cho điều này hoạt động từ phải sang trái, giữ sau đó là lần xuất hiện cuối cùng của mỗi khối.

G1`

Chúng tôi chỉ giữ dòng đầu tiên, hiện chứa các thẻ bị thiếu.

^$
No missing cards

Nếu kết quả trống, chúng tôi thay thế bằng "Không thiếu thẻ"

Python 3, 106 byte

Sự kết hợp của hai câu trả lời trăn trước đó trộn lẫn với một số shenanigans giải nén chuỗi.

print(' '.join({x+y for x in[*'23456789JQKA','10']for y in'HDSC'}-{*input().split()})or'No missing cards')

Julia , 116 byte

print(join(setdiff(["$x$y"for x=∪(2:10,"JQKA")for y="HDSC"],readline()|>split),' ')|>s->s>""?s:"No missing cards")

Hãy thử trực tuyến!

Rất giống với giải pháp trăn Kyle Gullions. Setdiff thay vì - và lambda để kiểm tra chuỗi trống làm cho nó tồi tệ hơn.

Japt, 39 byte

"JQKA"¬c9õÄ)ï+"CHSD"q)kU ¸ª`No ÚÍg Ößs

Thử nó

Tcl , 270 228 ký tự

(Rút ngắn với một số trợ giúp từ Wît Wisarhd)

foreach s {H D S C} {foreach c {2 3 4 5 6 7 8 9 J Q K A} {dict set d $c$s 0}}
gets stdin l
foreach c $l {dict set d $c 1}
set m {}
dict for {c h} $d {if {!$h} {lappend m $c}}
if {![llength $m]} {set m "No missing cards"}
puts $m

Hãy thử trực tuyến!

Giải trình:

Việc triển khai này xây dựng một từ điển bao gồm một cờ boolean cho mỗi thẻ được đại diện bởi sản phẩm cartesian của HDSC và 2-qua-A. Nó đọc dòng từ stdin, mà nếu được đưa ra như thông số kỹ thuật như được gọi, thực sự là một danh sách Tcl được hình thành tốt. Khi mỗi thẻ được đọc, một boolean true được nhập vào từ điển cho thẻ đó.

Cuối cùng, một trình phân tích cú pháp lặp qua từ điển và thêm bất kỳ thẻ nào không có thật trong từ điển vào danh sách các thẻ bị thiếu. Nếu độ dài danh sách thẻ bị thiếu bằng 0, hãy xuất "Không thiếu thẻ", nếu không, hãy xuất danh sách thẻ bị thiếu.

PHP , 138 byte

Ran với -nvà-d error_reporting=0

Tôi sử dụng lại một số mã từ một đệ trình cũ mà tôi đã yêu cầu tạo một cỗ bài

Mã

<?$r=[];foreach([A,J,Q,K,2,3,4,5,6,7,8,9,10]as$t)array_push($r,$t.H,$t.S,$t.D,$t.C);
echo join(" ", array_diff($r,explode(" ",$argv[1])));

Hãy thử trực tuyến!

Giải trình

<?$r=[];   # Declare the array that will contain the full deck
# the next line will generate the arry with the full deck  
foreach([A,J,Q,K,2,3,4,5,6,7,8,9,10]as$t)array_push($r,$t.H,$t.S,$t.D,$t.C);
# explode the input string on each blank space and using array_diff to get the
# different elements withing both arrays. (and "echo" of course) 
echo join(" ", array_diff($r,explode(" ",$argv[1])));

C # (Lõi .NET) , 197 byte

Không có LINQ.

s=>{var w="";for(var j=0;j<52;){var u="";int t=j%13;u=t<1?"K":t<2?"A":t<11?t+"":t<12?"J":"Q";t=j++/13;u+=t<1?"H":t<2?"D":t<3?"S":"C";w+=s.IndexOf(u)<0?u+" ":"";}return w==""?"No missing cards":w;};

Hãy thử trực tuyến!

Perl 6 , 73 byte

put keys((<<{^9+2}J Q K A>>X~ <C S D H>)∖get.words)||"No missing cards"

Hãy thử trực tuyến!

Một số phép trừ khá đơn giản giữa bộ bài và đầu vào.

Python 3 , 102 byte

lambda s:' '.join(i+j for i in[*'A23456789JQK','10']for j in'HDSC'if(i+j)not in s)or'No missing cards'

Hãy thử trực tuyến!