ดีลเลอร์เลอะเทอะและหลงทางว่ามีการ์ดในเด็คของเขาอยู่และการ์ดใดหายไปคุณสามารถช่วยเขา / เธอได้หรือไม่?

สำรับสมบูรณ์ประกอบด้วยไพ่ 52 ใบ ได้แก่ :

แต่ละสีในเด็ค (หัวใจ, เพชร, โพดำ, คลับ) ประกอบด้วย:

• ตัวเลข [2 - 10]
• แจ็ค
• ราชินี
• กษัตริย์
• เอซ

งาน

โปรแกรมของคุณจะอ่านเนื้อหาของสำรับจาก STDIN จนกว่าจะมีการอ่านบรรทัดใหม่ คุณสามารถสันนิษฐานได้ว่าอินพุตจะอยู่ในรูปของ "nX nX nX nX" ฯลฯ โดยที่:

• n - ตัวเลขใด ๆ ระหว่าง [2 - 10] หรือ 'J', 'Q', 'K' หรือ 'A' (คุณสามารถใช้ตัวอักษรพิมพ์ใหญ่สำหรับอักขระที่ไม่ใช่ตัวเลขเท่านั้น)
• X - ใด ๆ ต่อไปนี้: 'H', 'D', 'S', 'C' (คุณสามารถใช้ตัวพิมพ์ใหญ่เท่านั้น)

ที่ไหน:

• 'J' = แจ็ค
• 'Q' = ราชินี
• 'K' = ราชา
• 'A' = Ace

และ

• 'H' = หัวใจ
• 'D' = เพชร
• 'S' = Spades
• 'C' = สโมสร

คุณสามารถสันนิษฐานได้ว่าจะไม่มีการซ้ำซ้อนในอินพุต

โปรแกรมของคุณจะต้องพิมพ์ไพ่ที่หายไปในสำรับไปที่ STDOUT ในแบบเดียวกับอินพุท ("nX nX nX") หรือพิมพ์ 'ไม่มีบัตรหายไป' ถ้ามีการ์ดทั้งหมด 52 ใบ ไม่มีข้อ จำกัด ในลำดับของเอาต์พุตของการ์ด

อินพุตตัวอย่าง:

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

เอาท์พุท:

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

มีความสุขในการเล่นกอล์ฟ!

Windows Batch (CMD), 205 204 ไบต์

@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%

วนซ้ำชุดสูทและจัดอันดับการสร้างเด็คที่สมบูรณ์จากนั้นลบการ์ดอินพุต บันทึก 1 ไบต์ถ้าได้รับอนุญาตแทนT 10บันทึก 11 ไบต์หากอาร์กิวเมนต์บรรทัดรับคำสั่งเป็นอินพุตที่ยอมรับได้ แก้ไข: บันทึก 1 ไบต์ต้องขอบคุณ @ user202729

Python, 147 146 145 138 131 129 127 125 120 ไบต์

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')

รับการ์ดที่เป็นไปได้ทั้งหมดตามชุดและลบการ์ดอินพุต

-1 ไบต์ขอบคุณ mbomb007 ชี้ให้เห็นช่องว่างเพิ่มเติมในรหัสของฉัน
-1 ไบต์ขอบคุณ mbomb007 สำหรับการชี้ให้เห็นการเล่นกอล์ฟที่สามารถทำได้ด้วย Python 2 (-5 ไบต์และ +4 ไบต์สำหรับraw_ในraw_input)
-7 ไบต์โดยสลับไปใช้การตั้งค่าและการลบการแทนรายการ comprehensions
-7 ไบต์ขอบคุณ ValueInk สำหรับการชี้ให้เห็นว่าฉันไม่จำเป็นต้องไปlistที่ห้องสวีท
-2 ไบต์ต้องขอบคุณ Datastream สำหรับการชี้ให้เห็นว่าการเขียนค่าทั้งหมดนั้นมีประสิทธิภาพมากกว่าไบต์กว่าสิ่งแปลก ๆ ที่ฉันมีก่อนหน้านี้
-2 ไบต์ขอบคุณ ValueInk สำหรับการชี้ให้เห็น ชุดนั้นสามารถรับกำเนิดได้ดังนั้นฉันไม่จำเป็นต้องใส่มันลงในรายการความเข้าใจ
ขอบคุณ 2 bytes สำหรับสตรีมที่ชี้ให้เห็นว่าฉันสามารถเล่นกอล์ฟได้มากขึ้นถ้าฉันเปลี่ยนไปใช้ Python 3 อีกครั้ง ... (+2 สำหรับ parens หลังจากการพิมพ์, -4 สำหรับraw_)
-5 ไบต์ขอบคุณ Lulhum และตัวฉันสำหรับการชี้ โดยการเปลี่ยนกลับเป็น Python 2 (!!!) สามารถช่วยฉันบันทึกไบต์ (ใช้ช่วงอีกครั้งใช้ backticks แทนstr(และ +4 เนื่องจากraw_)

05AB1E , 39 ไบต์

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

ลองออนไลน์!

คำอธิบาย

ð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 ไบต์

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

ลองออนไลน์!

คำอธิบาย

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)

เยลลี่ขนาด 39 ไบต์

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

ลองออนไลน์!

อย่างไร?

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 ไบต์

ครั้งแรกที่โพสต์หนึ่งในสนามกอล์ฟของฉันไม่ใช่คู่แข่งที่ดีมาก ฉันแน่ใจว่าฉันสามารถลดสิ่งนี้ได้อีก

แนวคิดเบื้องหลังคือการจัดเก็บข้อมูลแบบกระจัดกระจายซึ่งมีดัชนีที่คำนวณโดยค่า ASCII ของค่าที่แตกต่างกันและเหมาะสมกับการคูณซึ่งกันและกัน (เช่น Ace of Spades (AS) จะถูกเก็บไว้ในพื้นที่ที่ดัชนี (65 * 83 = 5395)) วิธีนี้การ์ดแต่ละประเภทจะได้รับดัชนีที่ไม่ซ้ำกันซึ่งสามารถตรวจสอบได้ในภายหลังเพื่ออยู่ในอาร์เรย์ "แผนที่"

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 ไบต์

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

ลองออนไลน์!

รับอินพุต$nเป็นสตริงที่คั่นด้วยช่องว่างหรือขึ้นบรรทัดใหม่ สร้างอาร์เรย์จากช่วงที่2..10ต่อกับJQKA(ทำดัชนีด้วย[0..3]เพื่อให้เป็นcharอาร์เรย์) อาร์เรย์ที่จะถูกป้อนเข้าห่วง|%{}ว่าชุด Helper $iแล้ว loops กว่าชุดเพื่อ concatenate $i$_ผลร่วมกับ ("2C", "2S", "2H", ... "AH", "AD")ในตอนท้ายของวงนี้เรามีอาร์เรย์ของสตริงเช่น อาร์เรย์ที่ถูกป้อนเข้าWhere-Object( |?{}) ที่มีตัวกรองเป็นองค์ประกอบเหล่านั้น$_ว่า regex การป้อนข้อมูล-notmatch ผลของการกรองที่จะถูกเก็บไว้ใน$n$a

จากนั้นเราจะใช้หลอก ternary ( , )[]เพื่อเลือกว่าเราจะส่งออก'No missing cards'หรือ$aขึ้นอยู่กับว่าจะ!!$aหันไปบูลีนหรือ$false $trueถ้า$aเป็นที่ว่างเปล่า (หมายถึงบัตรทุกในสำรับเป็นในการป้อนข้อมูล) แล้ว!!$aคือ0เพื่อให้"No missing cards"มีการเลือก ในทางกลับกันสำหรับ$aการเลือก ไม่ว่าในกรณีใดก็ตามที่เหลืออยู่บนไพพ์ไลน์และเอาต์พุตนั้นเป็นนัย

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 เป็นรายการที่คั่นด้วย newline

คำอธิบาย

• sort อ่านอินพุตที่คั่นด้วย newline จาก STDIN และเรียงลำดับ
• สิ่งนี้ถูกส่งไปยัง comm
• printf %s\\n {10,{2..9},A,J,K,Q}{C,D,H,S}เป็นการขยายแบบรั้งเพื่อสร้างไพ่เต็มใบ printfพิมพ์บัตรในบรรทัดของตัวเองในแต่ละ คำสั่งซื้อจะได้รับเช่นเดียวกับการส่งออกเช่นเดียวกับถ้ามันได้ถูกส่งไปยังsort
• commเปรียบเทียบเด็คเต็มรูปแบบกับอินพุตที่เรียงลำดับแล้วเอาความแตกต่างออกมา -3ไม่แสดงเอาต์พุตของคอลัมน์ 3 (รายการทั่วไป)
• การส่งออกทั้งหมดจากการมีประปาcomm grep .หากไม่มีเอาต์พุตจากcomm(เช่นการ์ดทั้งหมดอยู่ในอินพุต) ดังนั้น||ประโยค "หรือ" จะแสดงข้อความที่ต้องการ มิฉะนั้นตรงกับทุกสายออกจากgrep .comm

ลองมันออนไลน์

Python 2 , 104,93,130 , 114 ไบต์

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'

ลองออนไลน์!

• -10 ไบต์ด้วย hardcoding รายการแทนที่จะใช้ range!
• +37 ไบต์ - การพิมพ์ที่ไม่ได้รับ 'ไม่มีบัตรหายไป' หากการ์ดทั้งหมดมีอยู่ในอินพุต!
• -16 ไบต์โดยการแก้ไขโค้ดให้เป็นรายการความเข้าใจ!

ทับทิม, 108 + 1 = 109 ไบต์

ใช้-pธง

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 ไบต์

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 ( -rตั้งค่าสถานะ) = 170 158 bytes

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.+//

ลองออนไลน์!

สิ่งนี้จะสร้างการ์ดที่เป็นไปได้ทั้งหมดแล้วนำการ์ดแต่ละอันออกจากอินพุตจากการ์ดที่สร้างขึ้น

C # , 282 ไบต์

แข็งแรงเล่นกอล์ฟ

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

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";
};

อ่านได้ไม่ดี

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";
};

รหัสเต็ม

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();
      }
   }
}

ข่าว

• v1.0 - 282 bytes- โซลูชั่นเริ่มต้น

หมายเหตุ

ไม่มีอะไรให้เพิ่ม

JavaScript (ES6), 117 114 111 ไบต์

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

สิ่งนี้ใช้ประโยชน์จากข้อเท็จจริงที่ว่ารายการที่ไม่ได้กำหนดในอาเรย์ที่สร้างโดยmap()ถูกบังคับให้เป็นสตริงว่างเมื่อjoin() 'd

การสาธิต

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'))

เรติน่า 76 ไบต์

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

อินพุต / เอาต์พุตเป็นรายการของการ์ดที่คั่นด้วยช่องว่าง ผลผลิตมีพื้นที่ชั้นนำ

ลองออนไลน์!

คำอธิบาย

รหัสส่วนใหญ่เกี่ยวข้องกับการสร้างรายชื่อการ์ดทั้งหมดที่ควรอยู่ในสำรับ:

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

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

Dr` \S+

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

G1`

เราเก็บเฉพาะบรรทัดแรกเท่านั้นซึ่งขณะนี้มีบัตรหายไป

^$
No missing cards

หากผลลัพธ์ว่างเปล่าเราจะแทนที่ด้วย "ไม่มีบัตรหาย"

Python 3, 106 ไบต์

การรวมกันของคำตอบหลามสองตัวก่อนหน้านี้ผสมกับสายอักขระที่ไม่มีการบรรจุ

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

Julia , 116 ไบต์

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

ลองออนไลน์!

คล้ายกับโซลูชัน Python ของ Kyle Gullions มาก Setdiff แทน - และแลมบ์ดาเพื่อทดสอบสตริงว่างทำให้มันแย่ลง

Japt, 39 ไบต์

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

ลองมัน

Tcl , 270 228 ตัวอักษร

(ย่อด้วยความช่วยเหลือจาก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

ลองออนไลน์!

คำอธิบาย:

การใช้งานนี้สร้างพจนานุกรมที่ประกอบด้วยธงบูลีนสำหรับการ์ดแต่ละใบที่แสดงโดยผลิตภัณฑ์คาร์ทีเซียนของ HDSC และ 2-through-A มันอ่านบรรทัดจาก stdin ซึ่งถ้าให้เป็นข้อมูลจำเพาะที่เรียกว่าเป็นจริงรายการ Tcl ที่มีรูปแบบที่ดี เมื่ออ่านการ์ดแต่ละใบบูลีนจริงจะถูกป้อนเข้าในพจนานุกรมสำหรับการ์ดนั้น

ในตอนท้ายตัวแยกวิเคราะห์วนรอบพจนานุกรมและเพิ่มการ์ดใด ๆ ที่ไม่มีจริงในพจนานุกรมลงในรายการการ์ดที่หายไป หากความยาวของรายการบัตรที่หายไปเป็นศูนย์เอาท์พุท "ไม่มีบัตรหายไป" มิฉะนั้นส่งออกรายการบัตรที่ขาดหายไป

PHP , 138 ไบต์

วิ่งไปด้วย -nและ-d error_reporting=0

ฉันใช้รหัสซ้ำจาก เก่าฉันทำซึ่งขอให้สร้างการ์ด

รหัส

<?$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])));

ลองออนไลน์!

คำอธิบาย

<?$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 # (.NET Core) , 197 ไบต์

ไม่มี 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;};

ลองออนไลน์!

Perl 6 , 73 ไบต์

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

ลองออนไลน์!

การลบการตั้งค่าแบบง่ายๆระหว่างสำรับไพ่และอินพุต

Python 3 , 102 ไบต์

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

ลองออนไลน์!