ডেকে কার্ড তৈরি করুন

32

এখানে দুটি জোকার সহ কার্ডের একটি স্ট্যান্ডার্ড ডেক উপস্থাপন করে এমন একটি অ্যারে রয়েছে।

[
  "AS", "2S", "3S", "4S", "5S", "6S", "7S", "8S", "9S", "10S", "JS", "QS", "KS", 
  "AD", "2D", "3D", "4D", "5D", "6D", "7D", "8D", "9D", "10D", "JD", "QD", "KD", 
  "AH", "2H", "3H", "4H", "5H", "6H", "7H", "8H", "9H", "10H", "JH", "QH", "KH", 
  "AC", "2C", "3C", "4C", "5C", "6C", "7C", "8C", "9C", "10C", "JC", "QC", "KC", 
  "J", "J"
]

এটি এই পদ্ধতিতে রচিত:

  • চারটি মামলা রয়েছে; হৃদয়, কোদাল, হীরা এবং ক্লাবগুলি (এইচ, এস, ডি, সি)।
  • প্রতিটি স্যুটটিতে 2 থেকে 10 সংখ্যার জন্য একটি করে কার্ড, প্লাস 4 'ছবি' কার্ড, এস, জ্যাক, কুইন এবং কিং (এ, জে, কিউ, কে) রয়েছে।
  • স্যুট এবং মানটির প্রতিটি সংমিশ্রণের জন্য অ্যারেতে একটি আইটেম থাকা উচিত, এটি একটি স্ট্রিং এবং স্যুট অনুসারে মান দিয়ে তৈরি করা হয় (এর মধ্যে সাদা স্থান অনুমোদিত)।
  • তার উপরে, দুটি জোকার কার্ড ('জে') রয়েছে।
  • আপনি দয়া করে কোন ভাষায় লিখুন।
  • গল্ফ এটি! এই আউটপুটটি স্বল্প সংখ্যক বাইটে উত্পাদনের চেষ্টা করুন।
  • আউটপুটটি কী অর্ডারে রয়েছে তা বিবেচ্য নয়।
code-golf  kolmogorov-complexity 
— AJFaraday
সূত্র
2
@ কেভিন ক্রুজসেন এটি সঠিক। প্রাথমিক প্রশ্নটি 2 থেকে 10 নম্বর এবং আউটপুট হিসাবে স্ট্রিংগুলির একটি অ্যারে নির্দিষ্ট করে।
— এজেফারাডে
15
আমি কেবল ভাবছিলাম যে আপনি 2 টি ছোট সংখ্যার গুণ করে 23456789 পেতে পারেন ... কেবলমাত্র এটির প্রধান আবিষ্কার করতে!
— ম্যাচ করুন
4
@ ম্যাচ যেহেতু আউটপুটটির ক্রমটি বিবেচনা করে না, তাই আপনি এখনও এটি সংখ্যার সাথে 2বা 4অন্য কিছু দিয়ে শেষ করে এটিকে তৈরি করতে পারেন যাতে এটি আর প্রধান হয় না।
— কেভিন ক্রুইজসেন
5
মন্তব্যে বিধিগুলি গণনা করা হয় না। যদি আমরা ফলাফলটি স্টডআউটে মুদ্রণ করতে না পারি (এবং এটি একটি বড় বিষয় তবে এটি আই / ও-র জন্য আমাদের ডিফল্টগুলিকে ওভাররাইড করে এবং ফাংশন এবং স্ট্রিং অ্যারে ব্যতীত ভাষাগুলিকে অংশ নিতে বাধা দেয়), সেই নিয়মটি চ্যালেঞ্জের স্পষ্টে স্পষ্ট করে বিবরণ দিতে হবে।
— ডেনিস
7
এটি এমন অ্যারের স্ট্রিং প্রতিনিধিত্বের বিষয়টি অস্বীকার করে না, যা STDOUT এ মুদ্রিত হতে পারে। মন্তব্য বিভাগের জন্য না হলে, আমি কখনই অনুমান করতে পারতাম এটি অনুমোদিত নয়।
— ডেনিস

উত্তর:

24

বাশ 43 34 বাইট

d=({A,J,Q,K,{2..10}}{H,S,D,C} J J)

এটি অনলাইন চেষ্টা করুন!

— গ্লেন জ্যাকম্যান
সূত্র
1
— ডিজিটাল ট্রমা
আমি মনে করি না বন্ধনীগুলি বাসা বাঁধে। ধন্যবাদ।
— গ্লেন জ্যাকম্যান
এবং এখানে আমি ভাবছিলাম "কোন ভাষাটি আমি জানি যে স্ট্রিংগুলির তালিকায় সুবিধামত সরাসরি পণ্য থাকে?" আমি এমনকি ভাল পুরানো গ্লোব সম্পর্কে ভাবেন না!
— aschepler
1
প্রযুক্তিগতভাবে ব্রেস সম্প্রসারণ কোনও গ্লোব প্যাটার্ন নয়, এটি নিজস্ব বিশেষ বাক্য গঠন
— গ্লেন জ্যাকম্যান
13

brainfuck , 200 197 বাইট

+[[<+>->++<]>]+<++++<<+++[->+++>+++++>+>+<<<<]>+.<<.>>.--<<<[->>+++<<]>>+>[<<.>.-.+>.<<.<<[>>>+.>.<<.<+<-]>[-<+>>>+<<]>>.>.<<.>+++++++++.>.<<.>+.>.<<.>++++++.>.,++++[-<-------->]>[[-<+>]>]<<[<]>>>]

এটি অনলাইন চেষ্টা করুন!

একটি নেতিবাচক ঘর (ফিক্স করতে +1 বাইট), মোড়ক ঘরগুলি (ফিক্স করতে লট ও 'বাইট) এবং 0 ইওএফ (নির্ভরতা অপসারণের জন্য +2 বাইট) ব্যবহার করে।

আউটপুট 

J J 10H 2H 3H 4H 5H 6H 7H 8H 9H AH JH KH QH 10S 2S 3S 4S 5S 6S 7S 8S 9S AS JS KS QS 10D 2D 3D 4D 5D 6D 7D 8D 9D AD JD KD QD 10C 2C 3C 4C 5C 6C 7C 8C 9C AC JC KC QC

ব্যাখ্যা:

+[[<+>->++<]>]  Sets the tape to powers of 2 
          TAPE: 1 2 4 8 16 32 64 128 0 0'
+<++++<<+++[->+++>+++++>+>+<<<<]   Uses the 64 and the 128 to generate the suit letters
          TAPE: 1 2 4 8 16 32 0' 73 83 68 67
                                 I  S  D  C
>+.<<.>>.--<<     Prints the Jokers
<[->>+++<<]>>+>   Uses the 16 to create 49
          TAPE: 1 2 4 8 0 32 49 72' 83 68 67
                                 H   S  D  C
[  Loop over the suits
   <<.>.-.+>.<<.<<      Print the 10 card with a leading space
          TAPE: 1 2 4 8' 0 32 49 Suit
   [>>>+.>.<<.<+<-]  Use the 8 to print the other 8 number cards
          TAPE: 1 2 4 0' 8 32 57 Suit
   >[-<+>>>+<<]      Move the 8 back into place while also adding it to the 57
          TAPE: 1 2 4 8 0' 32 65 Suit

   >>.>.<<.         Print the Ace
   >+++++++++.>.<<. Print the Jack
   >+.>.<<.         Print the King
   >++++++.>.<<.    Print the Queen
          TAPE: 1 2 4 8 0 32 81' Suit
   >>,    Clear the current suit
   ++++[-<-------->]    Subtract 32 to get back to 49 (reusing the space is longer than just subtracting 32)
          TAPE: 1 2 4 8 0 32 49 0' MoreSuits?
   >[[-<+>]>]<<[<]>>>   Shift all the remaining suits over one
          TAPE: 1 2 4 8 0 32 49 Suit?'
] End on the character of the next suit and repeat
— জো কিং
সূত্র
আমার সমাধানের তুলনায় এটি 2.5 বছরেরও বেশি কম। সাবাশ.
— এলোমেলো লোক
11

05 এ বি 1 ই , 28 27 25 24 23 বাইট

2TŸ.•-Ÿ•S«.•ôì•âJ„jjS«u

এটি অনলাইনে চেষ্টা করুন।

-1 বাইট ধন্যবাদ ইমেনারS পরে মুছে ফেলার জন্য "HSDC", কারণâ করে।

ব্যাখ্যা:

2TŸ           # Push list in the range [2,10]: [2,3,4,5,6,7,8,9,10]
   .•-Ÿ•      # Push compressed string "ajqk"
        S     # Convert it to a list of characters: ["a","j","q","k"]
         «    # Merge the two lists together: [2,3,4,5,6,7,8,9,10,"a","j","q","k"]
.•ôì•         # Push compressed string "cdhs"
â             # Cartesian product of each (pair each character of both lists):
              #  [[2,"a"],[2,"d"],[2,"h"],...,["k","d"],["k","h"],["k","s"]]
J             # Join each pair together to a single string:
              #  ["2a","2d","2h",...,"kd","kh","ks"]
„jjS          # Push string "jj", and convert it to a list of characters: ["j","j"]
    «         # Merge both lists together:
              #  ["2a","2d","2h",...,"kd","kh","ks","j","j"]
     u        # Convert everything to uppercase:
              #  ["2A","2D","2H",...,"KD","KH","KS","J","J"]
              # (and output the result implicitly)

আমার এই 05AB1E ডগা দেখুন (অধ্যায় কম্প্রেস স্ট্রিং অভিধান অংশ নয় কিভাবে? ) কেন বুঝতে .•-Ÿ•হয় "ajqk"এবং .•ôì•হয় "cdhs"।

— কেভিন ক্রুইজসেন
সূত্র
9

ব্রেনফাক , 550 504 বাইট

++++++++++[>+++>+++++>+++++++<<<-]>++>->[>+>+>+>+<<<<-]>----->++++.<<<<.>>>>.<<<<.>>>>>--->+++++++++++++<<<<<.-.+>>>>.<<<<<.>.-.+>>>>+.<<<<<.>.-.+>>>>++++.-----<<<<<.>.-.+>>>>>.<<<<<<.>>++++++++[-<+.>>>>.<<<<<.>.>>>>+.<<<<<.>.>>>>++++.-----<<<<<.>.>>>>>.<<<<<<.>>]>.>>.<<<<<.>>>>.>.<<<<<.>>>>+.>.<<<<<.>>>>++++++.>.<<<<<.>>>.>>+.<<<<<.>>>>.>.<<<<<.>>>>------.>.<<<<<.>>>>-.>.<<<<<.>>>.>>++++.<<<<<.>>>>.>.<<<<<.>>>>+.>.<<<<<.>>>>++++++.>.<<<<<.>>>.>>>.<<<<<<.>>>>.>>.<<<<<<.>>>>------.>>.<<<<<<.>>>>-.>>.

এটি অনলাইন চেষ্টা করুন!

পুরানো উত্তর, অনলাইনও!

— এলোমেলো লোক
সূত্র
8

জাভা 10, 153 151 125 77 75 বাইট

v->("AJQK2345678910".replaceAll("1?.","$0H,$0S,$0D,$0C,")+"J,J").split(",")

-২৮ বাইট @ অলিভিগ্রগ্রোয়ারকে ধন্যবাদ ।
-50 বাইট @ মাইজে ধন্যবাদ ।

এটি অনলাইনে চেষ্টা করুন।

ব্যাখ্যা:

v->                      // Method with empty unused parameter and String-array return-type
  "AJQK2345678910"
   .replaceAll("1?.",    //  Replace every loose character (or "10" as single char)
     "$0H,$0S,$0D,$0C,") //  with "cH,cS,cD,cC,", where c is the character
   +"J,J")               //  Append "J,J"
  .split(",")            //  And split everything by commas
— কেভিন ক্রুইজসেন
সূত্র
2
— অলিভিয়ার গ্রাগোয়ার
3
চেষ্টা করুন "AJQK2345678910".replace("1?.","$0H,$0S,$0D,$0C,")+"J,J"এবং এটি বিভক্ত।
— মজজি
1
স্মার্ট @mazy ধন্যবাদ এবং ইতিমধ্যে এটি সম্পাদনা করছিলেন, অলিভিয়ার :)
— কেভিন ক্রুইজসেন
2
শান্ত! আমি বিশ্বাস করি যে আরও 2 বাইট অপসারণ করা সম্ভব - প্যাটার্নে বন্ধনীগুলি। দেখতে regex101.com/r/aDbz9C/1
— mazzy
1
@ মমজি ওহ, $0জাভাতে সম্ভব ছিল তাও জানতেন না । TIL, ধন্যবাদ :)
— কেভিন ক্রুইজসেন
7

এপিএল (ডায়ালগ ইউনিকোড) , 29 বাইট

1 বাইট 1+⍳9পরিবর্তে ব্যবহার করে প্রোবির ধন্যবাদ সংরক্ষণ করা1↓⍳10

'JJ',,'HCDS'∘.,⍨'AKJQ',⍕¨1+⍳9

এটি অনলাইন চেষ্টা করুন!

এটি একটি সম্পূর্ণ প্রোগ্রাম। টিআইও লিঙ্কে, আমি বক্সিং সক্ষম করেছি যাতে অ্যারের পৃথক উপাদানগুলি আলাদা করা যায়।

এখানে বক্সযুক্ত আউটপুট।

┌─┬─┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬───┬───┬───┬───┐
│J│J│AH│AC│AD│AS│KH│KC│KD│KS│JH│JC│JD│JS│QH│QC│QD│QS│2H│2C│2D│2S│3H│3C│3D│3S│4H│4C│4D│4S│5H│5C│5D│5S│6H│6C│6D│6S│7H│7C│7D│7S│8H│8C│8D│8S│9H│9C│9D│9S│10H│10C│10D│10S│
└─┴─┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴───┴───┴───┴───┘

'JJ', 2 জন জোকার সম্মতি জানায়

, এর raveled ফর্ম

∘.,⍨ ম্যাট্রিক্স প্রতিটি সংমিশ্রণ দ্বারা তৈরি করা

  • 'HCDS' এই স্ট্রিং বিরুদ্ধে

  • 'AKJQ', এই স্ট্রিং সঙ্গে

    • ⍕¨ প্রতিটি স্ট্রিংফাইড ফর্ম

      • 1+⍳9 সংখ্যাগুলি 2..10 (1 টির সাথে আরও 1.9)
— ক্রিটসি লিথোস
সূত্র
আমি ব্যাখ্যায় আপনার তালিকার ইন্ডেন্টেশন পরিবর্তন করেছি। এটি দুটি এবং তিনটি বিন্দুর সাথে কিছুটা অদ্ভুত লাগছিল .. যদি এটি কোনও কারণে তৈরি করা হয় তবে নির্দ্বিধায় রোলব্যাক করুন।
— কেভিন ক্রুইজসেন
@ কেভিন ক্রুইজসেন ধন্যবাদ, আমি কীভাবে এটি করব তা বুঝতে পারি না, তাই আমি একাধিক বুলেট পয়েন্ট হাহ ব্যবহার করেছি
— ক্রিটিক্সী লিথোস
হ্যাঁ, আমি তাই ভেবেছিলাম, এজন্যই আমি এটি পরিবর্তন করেছি। :) এটি যুক্ত -করার আগে আপনার চারটি শীর্ষস্থানীয় গুণমানের প্রয়োজন।
— কেভিন ক্রুইজসেন
7

বেফুঞ্জ -98 (এফবিবিআই) , 75 বাইট

j4d*1-2k:d%4+1g:'0-!#v_>,d/1g,' ,!#v_3
CHSDA234567890JQK@;1'< ^,;,k2"J J" <

এটি অনলাইন চেষ্টা করুন!

প্রোগ্রাম কাঠামো

এখানে চিত্র বর্ণনা লিখুন

প্রথমে, স্ট্যাকটি ভরপুর হয়ে যায় 0, এবং jআরম্ভের উপরে ঝাঁপ দেয় না। সূচনাটি ধাক্কা দেয় 4 * 13 = 52, যা প্রোগ্রামের কাউন্টার। নিম্নলিখিত পুনরাবৃত্তিতে পিছনের 3কারণে পয়েন্টারটি এই অংশে লাফিয়ে উঠতে পারে।

1-2k:d%4+1g,d/1g,' ,!#v_  Main loop

1-                        decrement counter
  2k:                     duplicate counter three times
     d%                   counter mod 13 ...
       4+                 ... + 4 is the position of the card in the Data section
         1g,              get the card from row 1 and print it
            d/            counter / 13 is the position of the suit in the Data section
              1g,         get the suit from row 1 and print it
                 ' ,      print a space as seperator
                    !     negate the counter (0 for non-zero, 1 for 0)
                       _  If the counter is 0, move West ...
                     #v   ... and move to the termination
                          otherwise, continue with the next iteration

10 যা প্রিন্ট করে কোড:

'0-!#v_>    Checks if Card is '0'

'0-         subtract the '0' from the card
   !        negate (1 for '0', 0 for all other cards)
      _     If card was '0', move West
    #v        and go South to print '10'
            Else continue to go East

  ;1'< ^,;  Prints '10'

     <      Go West
   1'       Push '1'
  ;         Jump to ...
         ;  ... the next semicolon
        ,   Print '1'
       ^    Go back to the main loop
            The '0' will be printed by the main loop

সমাপন:

@; ... ;,k2"J J" <

                 <  Go West
           "J J"    Push "J J"
        ,k2         Print it
       ;            Jump to ...
 ;                  ... the next semicolon
@                   terminate the program
— ovs
সূত্র
7

আর , 65 বাইট

c(outer(c('A',2:10,J<-'J','Q','K'),c('S','D','H','C'),paste),J,J)

এটি অনলাইন চেষ্টা করুন!

-২ বাইটস @ জিউসেপ এবং @ জাসি পরামর্শের জন্য ধন্যবাদ

— digEmAll
সূত্র
1
এটি আমার সঠিক উত্তর ছিল, যদিও আমি মনে করি আমি একক উদ্ধৃতির পরিবর্তে ডাবল উদ্ধৃতি ব্যবহার করেছি।
— জিউসেপ
দুঃখিত, আমি আপনার উত্তর ডাবল পোস্ট করেছি? আমি চেক করেছিলাম কিন্তু কোনও আর উত্তর খুঁজে পেলাম না ...
— ডিগইমএল
ওহ না, আমি আপনার নিজের দেখার আগে টিআইওতে নিজেই এটি লিখে ফেলেছিলাম :-)
— জিউসেপে
1
হ্যাঁ বাইরের অবশ্যই এখানে যাওয়ার উপায়! হোয়াইটস্পেস যদিও অনুমান অনুযায়ী প্রেরিত হয় তাই আপনি ব্যবহার করে একটি বাইট সংরক্ষণ করতে পারেন paste। @ জিউসেপ্পেও
— জেসি
আমি JayCe এর উত্তরে এই নির্দিষ্ট, কিন্তু আপনি সেট করতে পারেন x<-'J'ভিতরে outerএবং তারপর পুনরায় ব্যবহার xদূরতম একটি পরিবর্তনশীল হিসাবে c()শেভ করার জন্য একটি বাইট বন্ধ বিবৃতি: এটি অনলাইন ব্যবহার করে দেখুন!
— জিউসেপে
6

পাওয়ারশেল, 63 61 59 56 বাইট

-3 বাইট: ধন্যবাদ কনারএলএসডাব্লু

2..10+'AJQK'[0..3]|%{"$_`H";"$_`S";"$_`D";"$_`C"};,'J'*2
— mazzy
সূত্র
1
-3 প্রথম অংশের জন্য অ্যারে স্ট্রিং ব্যবহার করে:2..10+'AJQK'[0..4]|%{"$_`H";"$_`S";"$_`D";"$_`C"};,'J'*2
— কলসডাব্লু
1
শান্ত! কীভাবে `` `` অপসারণ করবেন?
— mazzy
1
যতদূর আমি জানি যে স্ট্রিংয়ের মধ্যে কোনও ভেরিয়েবল ভেঙে দেওয়ার সবচেয়ে সহজ উপায়, আমি একটি লুপ দেখেছি তবে 2 অক্ষর দ্বারা এটি করা আরও ব্যয়বহুল।
— কলসডব
5

পাইথন 3 , 67 64 বাইট

print(*[a+b for a in['10',*'A23456789JQK']for b in'CHSD'],*'JJ')

এটি অনলাইন চেষ্টা করুন!

পাইথন 2 , 78 76 74 68 বাইট

print['1'*(a<'1')+a+b for a in'A234567890JQK'for b in'CHSD']+['J']*2

এটি অনলাইন চেষ্টা করুন!

অল্টার:

পাইথন 2 , 68 বাইট

print[a+b for a in['10']+list('A23456789JQK')for b in'CHSD']+['J']*2

print['1'[a>'0':]+a+b for a in'A234567890JQK'for b in'CHSD']+['J']*2

সংরক্ষিত

  • -৩ বাইট, ওভসকে ধন্যবাদ
— TFeld
সূত্র
এটি একটি সুন্দর পুরো উত্তর ...
— এজেফারাডে
— ovs
আমাদের যদি ব্যবহার printনা করতে হয় তবে আমরা [*[a+b for a in['10',*'A23456789JQK']for b in'CHSD'],*'JJ']59 বাইটে করতে পারি না । হাস্কেল সলিউশনটির স্টাডআউট করার দরকার নেই, পাইথন হবে কেন?
— এনরিকো বোরবা
5

কে (এনএনজি / কে) , 30 বাইট

"JJ",/("AKQJ",$2+!9),'/:"SHDC"

এটি অনলাইন চেষ্টা করুন!

!9 তালিকা হয় 0 1 ... 8

2+!9 তালিকা হয় 2 3 ... 10

$ স্ট্রিং

, CONCATENATE

,'/:প্রত্যেককে প্রতিটি অধিকারের সাথে যুক্ত করা, অর্থাৎ কার্টেসিয়ান পণ্য; সাধারণত এটি হয় ,/:\:বা ,\:/:ডানদিকে আমাদের কেবল স্কেলার ( "SHDC") থাকে, সুতরাং আমরা এর 'পরিবর্তে ব্যবহার করতে পারি\:

"JJ",/হ্রাসের "JJ"প্রাথমিক মান হিসাবে ডানদিকে তালিকায় যোগ দিন (কনটাক্ট হ্রাস)

— ngn
সূত্র
5

এমএস-এসকিউএল, 137 বাইট

SELECT v.value+s.value
FROM STRING_SPLIT('A-2-3-4-5-6-7-8-9-10-J-Q-K','-')v,STRING_SPLIT('H-S-D-C--','-')s
WHERE s.value>''OR v.value='J'

এসকিউএল এর মানগুলির একটি অ্যারে পৃথক ক্যোয়ারী সারি হিসাবে প্রত্যাবর্তিত হয়। STRING_SPLITফাংশন ব্যবহার করেএসকিউএল 2016 এ চালু ।

এটিতে জ্যাকের জন্য বিদ্যমান "জে" এর সুবিধা নেওয়ার জন্য দুটি "ফাঁকা স্ট্রিং" স্যুট যুক্ত করে জোকারদের অন্তর্ভুক্ত করা হয়েছে, তারপরে আমরা চাই না এমন সারিগুলি ফিল্টার করে। জোকারদের UNION ALLযুক্ত করতে বিবৃতি ব্যবহারের চেয়ে কম ।

— BradC
সূত্র
আপনি যদি STRING_SPLIT এর জন্য দ্বিতীয় যুক্তিটি খালি স্ট্রিং করেন তবে কি হবে? আমি এমএস-এসকিউএল ব্যবহার করি না, তবে অনেক ভাষায় এটি আপনাকে সমস্ত অ্যারেতে অক্ষর দেয়।
— এজেফারাডে
@ এজেফারাডে এটি কার্যকর হবে তবে এটি কার্যকর হয় না, আপনি পাবেন Procedure expects parameter 'separator' of type 'nchar(1)/nvarchar(1)'। যদি আপনি দ্বিতীয় প্যারামিটারটি ছেড়ে দেন তবে এটি কমাতে ডিফল্ট হলে গল্ফিংয়ের পক্ষেও কার্যকর হবে, তবে এটিও সমর্থন করে না। GolfSQLভাষার আর একটি আইটেম আমি সম্ভবত লেখার কাছাকাছি
— পাই
4

রুবি , 61 বাইট

->{[*0..52,52].map{|x|['JAKQ'[w=x%13]||w-2,'SDHC'[x/13]]*''}}

এটি অনলাইন চেষ্টা করুন!

— গিগাবাইট
সূত্র
জ্যাক এবং জোকার উভয়ের জন্য জে ব্যবহার করার দক্ষতা এটিই রয়েছে :-)
— মার্টি নিল
আপনি কি চারটি বাইট বাঁচাতে পারবেন না ->{... }? এটি নিজস্বভাবে চলে এবং প্যারামিটারগুলির প্রয়োজন নেই, সুতরাং এটি ল্যাম্বডা হওয়া উচিত নয়
— পিককোলো
4

সি #। নেট, 114 বাইট

o=>(new System.Text.RegularExpressions.Regex("1?.").Replace("AJQK2345678910","$0H,$0S,$0D,$0C,")+"J,J").Split(',')

আমার জাভা উত্তরের পোর্ট ( @ মাইজে ক্রেডিট ) ।

এটি অনলাইনে চেষ্টা করুন।

@ করাক দ্বারা ১১৯ বাইটের আকর্ষণীয় বিকল্প ।

using System.Linq;o=>new[]{"J","J"}.Concat(from s in"SDCH"from n in"A234567890JQK"select(n=='0'?"10":n+"")+s).ToArray()

এটি অনলাইনে চেষ্টা করুন।

এর System.Collections.Generic.IEnumerable<string>পরিবর্তে string[]যদি একটি গ্রহণযোগ্য আউটপুট হয়, তবে ট্রেলিংটি .ToArray()বাদ দেওয়া যেতে পারে তাই এটি 109 বাইট হয়ে যায় ।

ব্যাখ্যা:

using System.Linq;       // Required import for the `from .. in ..` and `select` parts
o=>                      // Method with empty unused parameter and string-array return-type
  new[]{"J","J"}         //  Return a string-array containing two times "J"
   .Concat(              //  And add:
     from s in"SDCH"     //   Loop over the suits
       from n in"A234567890JQK"
                         //    Inner loop over the cards
         select(n=='0'?  //     If the current card item is '0'
                 "10"    //      Use 10 instead
                :        //     Else:
                 n+"")   //      Simply use the card item as is
                      +s)//     And append the suit
   .ToArray()            //  Convert the IEnumerable to an array
— কেভিন ক্রুইজসেন
সূত্র
4

পিএইচপি, 108 99 97 বাইট

এটি অনলাইন চেষ্টা করুন!

এটি অনলাইন চেষ্টা করুন! (সম্পাদনা 1)

কোড

<?php $r=[J,J];foreach([A,J,Q,K,2,3,4,5,6,7,8,9,10]as$t)
$r=array_merge($r,[H.$t,S.$t,D.$t,C.$t]);

খাঁটি পিএইচপি ফানকিশন ব্যবহার করার চেষ্টা করা হয়েছিল, তবে লুপের সাহায্যে বাইটেক্যান্ট কম ছিল :(

আউটপুট (ব্যবহার করে print_r)

Array
(
[0] => J
[1] => J
[2] => HA
[3] => SA
[4] => DA
[5] => CA
[6] => HJ
[7] => SJ
[8] => DJ
[9] => CJ
[10] => HQ
[11] => SQ
[12] => DQ
[13] => CQ
[14] => HK
[15] => SK
[16] => DK
[17] => CK
[18] => H2
[19] => S2
[20] => D2
[21] => C2
[22] => H3
[23] => S3
[24] => D3
[25] => C3
[26] => H4
[27] => S4
[28] => D4
[29] => C4
[30] => H5
[31] => S5
[32] => D5
[33] => C5
[34] => H6
[35] => S6
[36] => D6
[37] => C6
[38] => H7
[39] => S7
[40] => D7
[41] => C7
[42] => H8
[43] => S8
[44] => D8
[45] => C8
[46] => H9
[47] => S9
[48] => D9
[49] => C9
[50] => H10
[51] => S10
[52] => D10
[53] => C10
)

সম্পাদন করা

পরিবর্তন প্রস্তাবনা করে @JoKing ধন্যবাদ explode(" ","H$t S$t D$t C$t")জন্য[H.$t,S.$t,D.$t,C.$t]

— ফ্রান্সিসকো হ্যান
সূত্র
[H.$t,S.$t,D.$t,C.$t]বিস্ফোরণ চেয়ে কম হবে না ?
— জো কিং
আপনি একেবারে ঠিক বলেছেন, আপনার পরামর্শ গ্রহণ করবে, আপনাকে ধন্যবাদ।
— ফ্রান্সিসকো হহন
1
— রাত
2
@ ফ্রেঞ্চিসকো হাহান, দুঃখিত, আমি এটি লক্ষ্য করিনি! এখানে একটি 87 বাইট সংস্করণ এখানে: এটি অনলাইন চেষ্টা করুন!
— রাত 2
1
@ নিগথ ২ আমার ধারণা ছিল না আপনি এর array_push($arr, $item1,$item2,$item3...$itemN)মতো ব্যবহার করতে পারবেন , দুর্দান্ত
— ফ্রান্সিসকো হ্যান
4

এসএমবিএফ , 169 বাইট

␀একটি আক্ষরিক NUL বাইট উপস্থাপন করে \x00।

<[.<]␀J J HA HK HQ HJ H01 H9 H8 H7 H6 H5 H4 H3 H2 SA SK SQ SJ S01 S9 S8 S7 S6 S5 S4 S3 S2 DA DK DQ DJ D01 D9 D8 D7 D6 D5 D4 D3 D2 CA CK CQ CJ C01 C9 C8 C7 C6 C5 C4 C3 C2

এই নিষ্পাপ সমাধান।

কারণ এই প্রোগ্রামটিতে একটি NUL বাইট রয়েছে, তাই টিআইও ব্যবহার করার কোনও সহজ উপায় নেই। পাইথন ইন্টারপ্রেটার ব্যবহার করে এটি চালান

data = bytearray(b'<[.<]\x00J J HA HK HQ HJ H01 H9 H8 H7 H6 H5 H4 H3 H2 SA SK SQ SJ S01 S9 S8 S7 S6 S5 S4 S3 S2 DA DK DQ DJ D01 D9 D8 D7 D6 D5 D4 D3 D2 CA CK CQ CJ C01 C9 C8 C7 C6 C5 C4 C3 C2')
— mbomb007
সূত্র
— এরিক দি আউটগল্ফার
@ এরিকথ আউটগল্ফার আপনি কীভাবে এটি তৈরি করেছেন?
— mbomb007
1
আমি F12 বিকাশকারী সরঞ্জামগুলি খুললাম, ঘোরাফেরা করে পাঠ্য বাক্সটি নির্বাচন করেছি, কনসোলে গিয়েছিলাম এবং নাল বাইটের আগে অংশটি অনুলিপি করে আটকানোর পরে, টাইপ করেছি $0.value+='\0'।
— এরিক আউটগল্ফার
4

জাপট, 32 30 26 বাইট

'J²¬c"JQKA"¬c9õÄ)ï+"CHSD"q

এটা পরীক্ষা করো

'J²¬c"JQKA"¬c9õÄ)ï+"CHSD"q
'J                             :Literal "J"
  ²                            :Repeat twice
   ¬                           :Split
    c                          :Concatenate
     "JQKA"¬                   :  Split "JQKA"
            c                  :  Concatenate
             9õ                :    Range [1,9]
               Ä               :    Add 1 to each
                )              :  End concatenation
                 ï             :  Cartesian Product
                   "CHSD"q     :    Split "CHSD"
                  +            :  Join each pair to a string
— রোমশ
সূত্র
3

ব্যাচ, 118 বাইট

@for %%s in (C D H S)do @(for /l %%r in (2,1,10)do @echo %%r%%s)&for %%r in (J Q K A)do @echo %%r%%s
@echo J
@echo J
— নিল
সূত্র
3

জে , 41 বাইট

'J';^:2,'HCDS',&.>/~(":&.>2+i.9),;/'AJQK'

এটি অনলাইন চেষ্টা করুন!

— গ্যালেন ইভানভ
সূত্র
1
'J';^:2,;&.>{_13<\'10';;/'23456789AJKQHCDS'কিছুটা সরল তবে 43 এর জন্য। আমার মনে হয় এখানে শেভ করার মতো আরও কিছু আছে ... তবে আমি কীভাবে দেখতে পাচ্ছি না।
— জোনা
@ জোনাহ হ্যাঁ, আমিও অনুরূপ কিছু চেষ্টা করেছি এবং আমি নিশ্চিত যে আমার সমাধানটি আরও গল্ফ করা যেতে পারে, তবে সবসময়ই নতুন সমস্যাগুলি সমাধান করা যায় :)
— গ্যালেন ইভানভ
3

আর , 67 66 বাইট

c(paste(rep(c('A',2:10,J<-'J','Q','K'),4),c('S','D','H','C')),J,J)

এটি অনলাইন চেষ্টা করুন!

DigEmAll এর গল্ফিয়ার সমাধানের চেয়ে আরও একটি বাইট । এই সম্পর্কিত চ্যালেঞ্জের জন্য জিউসেপের সমাধান থেকে অনুপ্রাণিত - একই জিউস্পি যিনি উত্তর দিয়ে একটি বাইট গল্ফ করেছিলেন!

আমি পৃথকভাবে পোস্ট করছি যেহেতু 4 টি 13 এর বিভাজক নয় এবং আউটপুটটি কোনও নির্দিষ্ট ক্রমে থাকা প্রয়োজন হয় না এই বিষয়টি গ্রহণ করে এটি কিছুটা ভিন্ন পদ্ধতির taking

— JayCe
সূত্র
ওহ হা, আমি এটি লক্ষ্য করিনি, আমি অন্যটিতে এই সমাধানটির মন্তব্য করেছি
— জিউসেপ
@ জিউসপ্পে আমি নিজের পোস্ট দেওয়ার পরিবর্তে মন্তব্য করতে খুব কাছে এসেছি। আমি অনুমান করি যে আমি উত্তর দেওয়ার
— তাগিদটি
iiiit হ'ল ডিজিজমালের উত্তরের মতো গোল্ফ :-) অনলাইনে চেষ্টা করে দেখুন
— জিউসেপ
@ আমি কেবল এটি নিয়েই পরীক্ষা নিরীক্ষা করছিলাম :) তাই ডিজমমল এবং আমি উভয়ই আপনাকে এক বাইট ধন্যবাদ গল্ফ করতে পারি :)
— জয়সি
3

সি (জিসিসি) , 126 137 133 বাইট

#define S(X)"A"X,"2"X,"3"X,"4"X,"5"X,"6"X,"7"X,"8"X,"9"X,"10"X,"J"X,"Q"X,"K"X,
#define c (char*[54]){S("S")S("D")S("H")S("C")"J","J"}

এটি অনলাইন চেষ্টা করুন!

জ্যাকবকে আরও সম্পূর্ণ ধন্যবাদ জানাতে +11 বাইটস।

-4 বাইট জ্যাচারীকে ধন্যবাদ

স্যুটগুলিকে সংকুচিত করতে প্রিপ্রোসেসরকে বেশিরভাগ আপত্তি দেওয়া। সম্ভবত গল্ফ করা যেতে পারে, তবে বিবেচিত সমস্ত জিনিসই বেশ দক্ষ।

— LambdaBeta
সূত্র
1
আমি যুক্তি দিয়ে বলব যে cএটি "[...] অদ্ভুত 'ফাংশন' [...]" নয় বরং ম্যাক্রোতে সঞ্চিত অ্যারে ডিক্লারেশন। এই ধরনের আউটপুট আমার জ্ঞানের কাছে ডিফল্টরূপে অনুমোদিত নয়।
— জোনাথন ফ্রেচ
1
গ এর কোনও অ্যারে না বাদে এটি কোনও স্থানের আক্ষরিক হবে। উত্সটির প্রতিটি 'আহবান' ফলাফল নির্বাহী c(অপ্টিমাইজেশন ব্যতীত) এ অ্যারের একটি নতুন অনুলিপি তৈরি করবে। সুতরাং কোডটি char *a[] = c; char *b[] = c;সি এর দুটি গভীর অনুলিপি তৈরি করে। এই আচরণটি হ'ল আপনি কোনও ফাংশনটিও আশা করবেন।
— লাম্বদাবেতা
1
যদি পূর্ণসংখ্যা শূন্য আউটপুট করার জন্য কোনও চ্যালেঞ্জ ছিল, আপনি কি সি c=0;কোডটিকে cএকটি কার্যকারিতা হিসাবে দেখছেন, একটি বৈধ জমা হিসাবে বিবেচনা করবেন?
— জোনাথন ফ্রেচ
1
না, তবে আমি #define z 0বৈধ বিবেচনা করব । : যুক্তি যে c=0; c++; x=c;ফলাফল x == 1তাই cএকটি ফাংশন মত অনেক কাজ করে না। এদিকে #define z 0 c=z; c++; x=z;মধ্যে ফলাফলের করে x == 0তাই zএকটি ফাংশন মত কাজ করে।
— লাম্বদাবেতা
1
আপনি প্রথমে অনুমিত ফাংশনটি পরিবর্তন করার কারণে এটি একটি ন্যায্য তুলনা বলে আমি মনে করি না, তবে কেবলমাত্র অনুমিত ফাংশনটির ফেরতের মান পরিবর্তন করুন। z=0;/**/c=z;c++;x=z;ফলাফল x==0, এইভাবে zএকটি ফাংশন মত কাজ করে।
— জোনাথন ফ্রেচ
3

জাভাস্ক্রিপ্ট (ES6) 77 74 72 বাইট

এটি একটি সম্পূর্ণ প্রোগ্রাম।

`J,J,${[..."A23456789JQK",10].map(c=>[..."SDHC"].map(s=>c+s))}`.split`,`
— MattH
সূত্র
1
খুশী হলাম। আপনি কমেটানেট করার পরিবর্তে কমাতে বিভক্ত হয়ে কয়েকটি বাইট সংরক্ষণ করতে পারেন: BTJ,J,${[..."A23456789JQK","10"].map(c=>[..."SDHC"].map(s=>c+s))}BT.splitBT,BT (যেখানে বিটি ব্যাকটিক হয়)।
— রিক হিচকক
অসাধারণ পরামর্শ! ধন্যবাদ।
— ম্যাথএইচ
3

সি (জিসিসি, বিড়ম্বনা), 138 বাইট

#define p(c)putchar(c)
int main(){for(char*q,*r="CDHS";*r;r++)for(q="A234567890JQK";*q;q++)(48==*q)&&p(49),p(*q),p(*r),p(32);puts("J J");}

পদ্ধতির অক্ষর অ্যারেতে ক্রমগুলি এনকোড করা।

নমুনা আউটপুট

AC AD AH AS 2C 2D 2H 2S 3C 3D 3H 3S 4C 4D 4H 4S 5C 5D 5H 5S 6C 6D 6H 6S 7C 7D 7H 7S 8C 8D 8H 8S 9C 9D 9H 9S 10C 10D 10H 10S JC JD JH JS QC QD QH QS KC KD KH KS J J

এটি অনলাইন চেষ্টা করুন!

— ব্রুস লুয়েকেনহফ
সূত্র
ইঙ্গিত: আপনি সমস্ত ব্যবহার printfথেকে মুক্তি পেতে একটি একক ব্যবহার করতে পারেন putchar।
— ডেনিস
1
— জোনাথন ফ্রেচ
1
আপনার আউটপুট পদ্ধতি সম্পর্কে, ওপি মুদ্রণের অনুমতি দেয় না ।
— জোনাথন ফ্রেচ
জোনাথন ফ্রেচ এবং ডেনিস 113 বাইটে
— সিলিংক্যাট
3

ওরাকল এসকিউএল, 164 বাইট

গল্ফের ভাষা নয় তবে ...

SELECT CASE WHEN LEVEL>52THEN'J'ELSE DECODE(MOD(LEVEL,13),1,'A',11,'J',12,'Q',0,'K',MOD(LEVEL,13))||SUBSTR('HDSC',CEIL(LEVEL/13),1)END FROM DUAL CONNECT BY LEVEL<55

এটি অনলাইনে ব্যবহার করে দেখুন - এসকিউএল ফিডল

— MT0
সূত্র
2
আমি ভালবাসি যে কেউ ওরাকল এসকিউএল
— এজেফারাডে
পোস্টগ্র্রেস এটি কেবল মাত্র একটি স্ট্রিং 172 বাইট দিয়ে প্রহার করে, 'এএস, 2 এস, 3 এস, 4 এস, 5 এস, 6 এস, 7 এস, 8 এস, 9 এস, 10 এস, জেএস, কিউএস, কেএস, এডি, 2 ডি, 3 ডি, 4 ডি, 5 ডি, 6D, 7D, 8D, 9D, 10D, জেডি, QD, ডি, অই, 2h, 3H, 4H, 5H, 6H, 7H, 8H, 9H, 10H, জেএইচ, QH, কে এইচ, এসি, 2C, 3C, 4C, 5 সি, 6 সি, 7 সি, 8 সি, 9 সি, 10 সি, জেসি, কিউসি, কেসি, জে, জে ''
— দেওয়ানা
@ ডওয়ানা এটি স্ট্রিংগুলির একটি অ্যারে নয় (বা এটি যেহেতু এটি এসকিউএল, সারিগুলির একটি সেট)। প্রশ্নের স্পেসিফিকেশনগুলি পূরণ করতে আপনাকে স্ট্রিংকে সারিগুলিতে (বা কলামগুলি) বিভক্ত করতে হবে। যদি আপনি এটি আলাদা পোস্টগ্রিসএসকিউএল সমাধান হিসাবে করতে চান তবে আমি এটি দেখতে চাই।
— এমটি0
দুঃখিত, অ্যারে প্রয়োজনীয়তাটি
— দেখেনি
3

অ্যাপ্লিকেশন Lua ,156 127 138 129 বাইট

loadstring'r={"J","J"}for x=1,52 do p=x%4+1r[#r+1]=({"A",2,3,4,5,6,7,8,9,10,"J","Q","K"})[x%13+1]..("SDHC"):sub(p,p)end return r'

এটি অনলাইন চেষ্টা করুন!

জো কিং এর কোডের ভিত্তিতে। তিনি মন্তব্যে যেমন পরামর্শ দিয়েছিলেন, আমার মূল উত্তরটি বৈধ ছিল না (আমি এখনও কোড গল্ফ কীভাবে কাজ করে তা শিখছি 😬), এবং আরও ভাল এবং বৈধ উত্তরের সাথে সংযুক্ত করেছি। তারপরে আমি এটিকে আরও ছোট করে দিয়েছি।

আসল সমাধান (156 বাইট):

r = {} s = "SDHC" c = {"J", "Q", "K"} t = table.insert for x in s: gmatch "।" y = 1,13 do t (r, (y == 1 এবং "A" বা y> 10 এবং c [y-10] বা y) .. x) শেষ প্রান্ত _ = 1,2 do t (r, "J") এর শেষ
r={} -- initializes the result table
s="SDHC" -- initializes the suits' string, it's better to be a string because we're just looping through it
c={"J","Q","K"} -- initializes some of the special cards

t=table.insert -- stores the table.insert call inside the 't' variable

for x in s:gmatch"."do -- loops through the suits, calling each one 'x'
  for y=1,13 do -- 'y' is the current card

    t(r,(y==1 and"A"or y>10 and c[y-10]or y)..x) -- adds the card accompanied by the suit to the result ('r') table
      -- y==1 and"A"or y>10 and c[y-10]or y  means if we're at the first card, it's an "A", else if we're past the 10th card, it's a special card, else, it's the number itself

  end
end
for _=1,2 do t(r, "J")end -- loop 2 times, adding a "J" to the result table

আমি কেবল বলতে চাই যে আমি এই কোড গল্ফ স্টাফের জন্য নতুন, তাই যদি আমি কিছু ভুল করছি তবে নির্দ্বিধায় আমাকে বলুন। আমি জানি এই উত্তরটি সবচেয়ে ছোট নয়, আমি কেবল নিজেকে চ্যালেঞ্জ জানাতে চেয়েছিলাম।

আমার কোড হ্রাস করার জন্য আপনার কাছে পরামর্শ থাকলে আপনিও বলতে পারেন। :)

— Visckmart
সূত্র
1
সাইটে স্বাগতম!
— গম উইজার্ড
@WW ধন্যবাদ!
— হাহাহা
টেবিল দিয়ে কি হয় r? হয় আপনাকে এটি প্রথা মুদ্রণ করতে হবে, বা এটি একটি ফাংশনে পরিবর্তন করে ফিরে যেতে হবেr
— জো কিং
আমি লুয়ার সাথে কোনও বিশেষজ্ঞ নই, তবে এখানে একটি বৈধ 142 বাইট বেনামি ফাংশন রয়েছে
— জো কিং
— জো কিং
3

পার্ল 6 ,  43  42 বাইট

{|(|(2..10),|<A J Q K>X~ <S D H C>),|<J J>}

চেষ্টা করে দেখুন

{|(|(^9+2),|<A J Q K>X~ <S D H C>),|<J J>}

জো কিং থেকে এটি চেষ্টা করুন

সম্প্রসারিত:

{  # bare block lambda

    |(  # flatten into outer list

        |(  # flatten into left-side list for X~
          ^9 + 2
          # 0+2 ..^ 9+2
          #   2 ..^ 11
          #   2 ..  10
        ),
        |   # flatten into left-side list for X~

          < A J Q K >

      X~    # cross using &infix:« ~ » (string concatenation)

        <S D H C>

    ),
    |< J J > # flatten two `J`s into outer list
}
— ব্র্যাড গিলবার্ট বি 2 গিলস
সূত্র
— জো কিং
3

কিউব্যাসিক 4.5, 114 142 127 বাইট

dim r$(54)
FOR i=1TO 52
m=i MOD 13
r$(i)=MID$("JQKA2345678910",1+m,1-(m=12))+MID$("CDHS",(i-1)\13+1,1)
NEXT
r$(53)="J
r$(54)="J

অব্যাহতি পত্র:

  • ভি 1.0 প্রাথমিক মোতায়েন
  • ভি 1.1 চ্যালেঞ্জের প্রয়োজনীয়তাগুলি মুছে ফেলুন, তাই আরও ব্যয়বহুল অ্যারেতে পরিবর্তন করুন r$ । কোডের বাকী সমস্ত অংশগুলি বেশ একই রকম।
  • @ টেলরস্কট থেকে প্রাপ্ত পরামর্শের ফলে 15 বাইট সংরক্ষণের একটি সম্পূর্ণ পুনর্লিখনের দিকে নিয়ে যায়!

নমুনা আউটপুট

আমরা যদি আমাদের কোডে এই স্নিপেট যুক্ত করি, তবে আমরা কী দেখতে পেলাম তা দেখতে পাচ্ছি r$:

for i = 1 to ubound(r$)
?r$(i)
next

QC
KC
AC
2C
3C
4C
5C
6C
7C
8C
9C
10C
JC
QD
KD
AD
[... snip ...]
6S
7S
8S
9S
10S
JS
J
J

কিন্তু কিভাবে? ভাল, আমি আপনাকে বলতে দিন:

dim r$(54)          ' create a 54-slot array for our results
FOR i=1TO 52        ' Loop through the numbers 1-52 in var i
m=i MOD 13          ' Take i mod 13 to select a value (saved as m)
                    ' , and (not saved) i intdiv 13 to get a suit
r$(i)=              ' assigns to slot i in the result array
  MID$("JQKA2345678910"  ' a substring from the string with all the values
  ,1+m                   ' from position 1-13 (13 % 13 = 0, but QBasic strings are 1-based.
                         ' Hence the + 1)
  ,1-(m=12))             ' taking 1 char by default, and 2 for the Ten
                         ' Note that m=12 evaluates to 0 for 0-11, and to -1 for 12
  + MID$("CDHS",(i-1)\13+1,1)  ' and take 1 char from the suits-string
NEXT
r$(53)="J           ' Then append 2 jokers
r$(54)="J           ' These strings are auto-closed by the QBasic compiler.
— steenbergh
সূত্র
এটি স্ট্রিংয়ের প্রয়োজনীয়তার অ্যারে পূরণ করে না এবং প্রিন্ট করা STDOUTসুস্পষ্টভাবে নিষিদ্ধ
— টেলর স্কট
@ টেলরস্কট দেখার জন্য ধন্যবাদ এখনই ঠিক করা হয়েছে, @ 30 বাইট অতিরিক্ত।
— স্টেইনবার্গ
1
আমি মনে করি যে আপনি এবং বারগুলি ফেলে দিয়ে a$এবং b$এমন কোনও লাইন ব্যবহার করে বাইট কাউন্টটি নামাতে সক্ষম হবেনr$(i)=MID$("JQKA2345678910",1+m,1-(m=12))+MID$("CDHS",(i-1)\13+1,1)
— টেলর স্কট
1
@ টেলরস্কট ধন্যবাদ! মান-স্ট্রিং-এ পরিবর্তিত হওয়া বিশেষত চতুর। নিস!
— স্টেইনবার্গ
এটি কেবলমাত্রের চেয়ে দীর্ঘPRINT "<output>"
— টর্নেডো 547
3

পাইথ, 26 25 বাইট

+ B\JsM*+tSTc"JQKA"1"CDHS

Hakr14 ধন্যবাদ একটি বাইট সংরক্ষণ করা।
এখানে চেষ্টা করুন

ব্যাখ্যা

+ B\JsM*+tSTc"JQKA"1"CDHS
         tST                Get the range from 2 to 10...
        +   c"JQKA"1        ... plus the list ['J', 'Q', 'K', 'A'].
       *            "CDHS   Take the Cartesian product with the suits.
     sM                     Stick the ranks and suits together.
+ B\J                       Add the jokers.
+\J+\J এবং +*2]\J সমতুল্য এবং উভয় 6 বাইট, তবে পরবর্তীগুলি আরও ভাল ফর্ম হিসাবে বিবেচিত হয়, কারণ এটি কোনও অতিরিক্ত বাইটের প্রয়োজন হওয়ার আগে 10 টি অনুলিপি যুক্ত করার অনুমতি দেয়।
— hakr14
@ হ্যাকআর 14 সত্য, তবে আমি সবচেয়ে পরিষ্কার বা সাধারণকরণযোগ্য কোডটি লেখার জন্য কোড গল্ফের মধ্যে নেই not
+\J+\J+ B\Jএকটি বাইট সংরক্ষণ করার জন্য প্রতিস্থাপন করা যেতে পারে।
— hakr14
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.