Вхідні дані

Немає

Вихід

52 картки. Дублікатів немає. Картки представлені у вигляді символів унікоду, наприклад 🂹.

У кодові Unicode наступний формат:

• Перші три цифри є 1F0 .
• Наступна цифра A, B, CабоD для лопати, черви, бубни і клуби відповідно.
• Наступна цифра - 1через Cта Eдля різних номерів / лицьових карток. 1туз, 2- Aце кількість карт, і B, Dі Eє валет, дама і король відповідно. ( Cце лицар, якого немає в більшості колод.)

Приклад виводу:

🂶🃁🃛🃎🂧🂵🃗🂦🂽🂹🂣🃊🃚🂲🂡🂥🂷🃄🃃🃞🂺🂭🃑🃙🂪🃖🂳🃘🃒🂻🃆🂮🃍🂱🂴🃋🂸🃈🃅🃂🂨🃓🃉🂾🃇🂩🂢🂫🃔🃕 🂤🃝

Правила:

• Це код-гольф . Найкоротша відповідь виграє.
• Заборонені лазівки заборонені.
• Ваша колода повинна бути фактично рандомізованою. Якщо запустити 20 разів, необхідно генерувати 20 випадкових (і, швидше за все, унікальних) результатів.

Примітка

Якщо ви бачите лише вікна, встановіть шрифти DejaVu .

Желе ,  25 23  21 байт

62R%⁴g180<11T+“¢¬⁷’ẊỌ

Ніладичне посилання, що повертає список символів, або повну програму, яка друкує перетасовану колоду.

Спробуйте в Інтернеті!

Як?

62R%⁴g180<11T+“¢¬⁷’ẊỌ - Main link: no arguments
62                    - literal 62
  R                   - range(62) -> [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15, 16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31, 32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47, 48,49,50,51,52,53,54,55,56,57,58,59,60,61,62]
    ⁴                 - literal 16
   %                  - modulo    -> [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,  0, 1, 2, 3, 4, 5, 6, 7, 8, 9,10,11,12,13,14,15,  0, 1, 2, 3, 4, 5, 6, 7, 8, 9,10,11,12,13,14,15,  0, 1, 2, 3, 4, 5, 6, 7, 8, 9,10,11,12,13,14]
      180             - literal 180
     g                - G.C.D.    -> [1,2,3,4,5,6,1,4,9,10, 1,12, 1, 2,15,180, 1, 2, 3, 4, 5, 6, 1, 4, 9,10, 1,12, 1, 2,15,180, 1, 2, 3, 4, 5, 6, 1, 4, 9,10, 1,12, 1, 2,15,180, 1, 2, 3, 4, 5, 6, 1, 4, 9,10, 1,12, 1, 2]
          11          - literal 11
         <            - less than?-> [1,1,1,1,1,1,1,1,1, 1, 1, 0, 1, 1, 0,  0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0,  0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0,  0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1]
            T         - truthy    -> [1,2,3,4,5,6,7,8,9,10,11,   13,14,       17,18,19,20,21,22,23,24,25,26,27,   29,30,       33,34,35,36,37,38,39,40,41,42,43,   45,46,       49,50,51,52,53,54,55,56,57,58,59,   61,62]
              “¢¬⁷’   - base 250 number 127136
             +        - addition (vectorises) -> card character ordinals
                   Ẋ  - shuffle the list
                    Ọ - convert to characters
                      - full program has an implicit print

JavaScript (ES6), 107 106 108 байт

a=[]
for(S of'ABCD')for(N of'123456789ABDE')a.splice(Math.random()*-~a.length,0,eval(`'\\u\{1F0${S+N}}'`))
a

a=[]
for(S of'ABCD')for(N of'123456789ABDE')a.splice(Math.random()*-~a.length,0,eval(`'\\u\{1F0${S+N}}'`))
a

o.innerHTML = a.join``

<div id=o style="font-size:80px"></div>

_{-1 байт завдяки @nderscore}

JavaScript (ES6), 120 119 121 байт

Попередня версія.

a=[],[...'ABCD'].map(S=>[...'123456789ABCE'].map(N=>a.splice(Math.random()*-~a.length|0,0,eval("'\\u\{1F0"+S+N+"}'")))),a

Python 3 ,  106  94 байт

-5 байт завдяки musicman523 (1. використовувати sample(...,52)як вбудований еквівалент shuffle[завдяки абсолютно нелюдському]; 2. використовувати ~v&2замість v%4<2; плюс ще 1 байт, як наслідок, може бути видалено пробіл)

from random import*
print(*sample([chr(v+127137)for v in range(63)if~v&2or~v%16>4],52),sep='')

Спробуйте в Інтернеті!

05AB1E , 22 21 байт

Збережено 1 байт завдяки carusocomputing .

…1F0A4£14L13KhJâ«Hç.r

Спробуйте в Інтернеті!

Пояснення

…1F0                    # push the string "1F0"
    A4£                 # push the string "abcd"
       14L              # push range [1 ... 14]
          13K           # remove 13
             h          # convert to hexadecimal
              J         # join to string "123456789ABCE"
               â        # cartesian product
                «       # prepend the string to each char in the list
                 H      # convert to decimal
                  ç     # get the chars with those code points
                   .r   # randomize

Bash + coreutils, 56 байт

printf %b\\n \\U1F0{A..D}{{1..9},A,B,D,E}|shuf|tr -d \\n

Ми використовуємо printf для того, щоб писати кожну карту у своєму окремому рядку, перетасовувати лінії, а потім з'єднувати всі рядки, видаляючи символи нового рядка.

Зауважте, що хоча команда coreutils printfвимагає рівно 8 шістнадцяткових цифр після \U, вбудована Bash printfдозволяє нам опускати провідні нулі.

Python 3 , 112 байт

from random import*
*a,=map(chr,range(127136,127200))
del a[::16],a[::-15],a[11::14]
shuffle(a)
print(*a,sep='')

Спробуйте в Інтернеті!

Python 3 , 107 байт

Збережено 6 байт завдяки @totallyhuman та 3 подякам @ CCB60!

from random import*
print(*sample([chr(int('1F0'+a+b,16))for a in'ABCD'for b in'123456789ABDE'],52),sep='')

Спробуйте в Інтернеті!

PHP > = 7, 102 байти

for(;$i++<64;)in_array(($c=127136+$i)%16,[0,12,15])?:$q[]=IntlChar::chr($c);shuffle($q);echo join($q);

Немає доступних Інтернет-перекладачів для методу IntlChar :: chr

PHP , 112 байт

for(;$n++<4;shuffle($r))for($i=0;$i++<14;)$i==12?:$r[]=pack("c*",240,159,131-($n>2),$n*16+112+$i);echo join($r);

Спробуйте в Інтернеті!

PHP , 116 байт

for(;$c=ab89[$n++];shuffle($r))for($i=0;$i++<14;)$i==12?:$r[]=hex2bin(f09f8.(2+($n>2)).$c.dechex($i));echo join($r);

Спробуйте в Інтернеті!

PHP, 121 байт

for(;$c=ABCD[$n++];shuffle($r))for($i=0;$i++<14;)$i==12?:$r[]=json_decode('"\ud83c\udc'.$c.dechex($i).'"');echo join($r);

Спробуйте в Інтернеті!

APL (Діалог) , 40 38 байт

Метод Джонатана Аллана

⎕UCS((11>180∨16|⍳62)/127136+⍳62)[?⍨52]

(… )На наступному масиві

 ⍳62 перші 62 цілих числа

 127136+ додайте до цього 127136

 (... )/ фільтруйте це за допомогою булева

  ⍳62 перші 62 цілих числа

  16| модуль 16

  180∨ GCD 180 і те

  11> чи на 11 більше, ніж у тих

[… ]Виберіть наступні елементи

 ?⍨52 перетасувати перші 52 цілі числа (вибрати 52 випадкових цілих числа з мішка з перших 52 цілих чисел)

⎕UCS перетворити в відповідні символи в U nicode З haracter S і ін

Рішення версії 16.0 (наразі знаходиться у бета-версії) (33 символи)

⎕UCS(127136+⍸11>180∨16|⍳62)[?⍨52]

(… )На наступному масиві

 ⍳62 перші 62 цілих числа

 16| модуль 16

 180∨ GCD 180 і те

 11> чи на 11 більше, ніж у тих

 ⍸ індекси, де True

 127136+ додайте до цього 127136

[… ]Виберіть наступні елементи

 ?⍨52 перетасувати перші 52 цілі числа (вибрати 52 випадкових цілих числа з мішка з перших 52 цілих чисел)

⎕UCS перетворити в відповідні символи в U nicode З haracter S і ін

Старе рішення

⎕UCS(126976+16⊥¨,(9+⍳4)∘.,12~⍨⍳14)[?⍨52]

(… )На наступному масиві

 ⍳14 перші 14 цілих чисел

 12~⍨ крім 12

 (... )∘., декартові приєдналися до

  ⍳4 перші 4 цілих числа

  9+ додано до 9

 , реве (згладити) те

 16⊥¨ оцінюйте кожен у базі 16

 126976+ додати 126976 до цього

[… ]Виберіть наступні елементи

 ?⍨52 перетасувати перші 52 цілі числа (вибрати 52 випадкових цілих числа з мішка з перших 52 цілих чисел)

⎕UCS перетворити в відповідні символи в U nicode З haracter S і ін

Вугілля деревне , 50 байт

Ａ¹²⁷¹³⁶χＡ⪫Ｅ…χ⁺⁶⁴χ℅ιωσＷσ«Ａ‽σχＡ⪫⪪σχωσ¿﹪﹪﹪℅χ¹⁶¦¹⁵¦¹³χ

Спробуйте в Інтернеті! Посилання на багатослівну версію коду. Створює рядок з усіх 64 символів у блоці, але фільтрує недійсні картки, оскільки вони вибрані випадковим чином. (Якщо говорити про це, випадковий вибір без заміни рядка становить лише 11 байт, порівняно з 17 для масиву.)

Редагувати: віднімання з масиву та інші удосконалення деревного вугілля зменшили розмір до 41 байт: Спробуйте в Інтернеті!

Аліса , 34 байти

'?rwd.n$@U,!6?44*%a7+-F$K?'🂡+OK

Спробуйте в Інтернеті!

Пояснення

'?r                               push numbers 0-63 onto stack
   w                              store return address (start main loop)
    d                             get stack depth
     .n$@                         if zero, terminate
         U                        random number in [0, depth)
          ,                       move corresponding stack element to top
           !                      store on tape
             ?                    copy back from tape
              44*%                mod 16
                  a7+-            subtract 17
            6         F           does the result divide 6?
                       $K         if so, return to start of main loop
                         ?        copy card number from tape again
                          '🂡+     add 0x1F0A1
                             O    output
                              K   return to start of main loop

> <> , 49 50 49 байт

"🂡"v
=?v>:1+}:88+%:c-:3-**?!~{l4d*
{>x
o^>l?!;

Спробуйте в Інтернеті!

(+1 байт, щоб покращити випадковість)

Я трактую "випадковий", щоб означати, "кожен можливий результат має ненульову ймовірність". Це не є рівномірним розподілом.

До цього коду є два етапи. Спочатку риба кладе всі картки на стек, використовуючи перші два рядки. Починаючи з туза лопат, риба дублює та збільшує її, потім перевіряє, чи закінчується шістнадцятковий код попередньої картки на 0, С або F шляхом множення разом x  ( x -12) ( x -15), де x - мод charcode 16, і перевірити, чи не дорівнює нулю. Якщо це так, він видаляє карту порушника зі стека. Він повторюється, поки стек не має 52 картки, а потім переходить на другий етап:

  v
{>x
o^>l?!;

Цей біт коду переміщується та друкує стек. Встановлює xнапрямок риби випадковим чином:

• Якщо риба підпливає, вона б'є vі повертається до місця, xне роблячи нічого. Лівий напрямок схожий.
• Якщо риба плаває вправо, вона загортається і б'є {, обертаючи всю стечку вліво, а потім повертається доx .
• Якщо риба пливе вниз, вона роздруковує карту в передній частині стека, а потім повертається до x.

Зрозуміло, що будь-яке можливе замовлення карт може бути вироблено: у будь-який момент 2-ї стадії кожна картка, яка ще не була надрукована, може бути надрукована наступним, якщо риба плаває достатньо праворуч. Ця техніка переміщення зазвичай не розсуває картки дуже далеко один від одного, якщо вони вже були поруч, але знову ж таки, і перемішування не вручну .

R, 61 байт

cat(intToUtf8(sample(c(127137:127198)[-c(12,28,44,47,60)])))

Випадково відбирайте вектор цілих представлень значень унікоду карт (які можна отримати з utf8ToInt()фукціону) та видаліть небажані картки лицаря / джокера.

C # ( 146 141 байт)

using System.Linq;()=>Enumerable.Range(0,52).OrderBy(i=>System.Guid.NewGuid()).Aggregate("",(s,i)=>s+"\uD83C"+(char)(56481+i+i/13*3+i%13/12))

Демонстрація в Інтернеті

Це використовує вкрай поганий стиль при переміщенні Guid.NewGuid(), але це код-гольф. Потім він будує сурогатні пари вручну.

Perl 5, 75 байт

@c=map{7946+$_%4+$_/64}4..51,56..59;print chr(16*splice@c,@c*rand,1)while@c

Зауважте, що для цього використовуються кодові точки для маток, як зазначено у питанні (тобто остання цифра C). Для фактичних кодів (остання цифра D) замініть 51,56на 47,52.

Java 8, 216 байт

import java.util.*;()->{List<Long>l=new ArrayList();for(long i=52;i-->0;l.add(i));Collections.shuffle(l);for(Long x:l)System.out.print((char)(x.parseLong("1F0"+(char)(65+x/12)+((x%=4)>9?(char)(x>2?69:65+x):x),16)));}

Пояснення:

Спробуйте тут.

ПРИМІТКА: Неперевірений, оскільки, хоч я встановив пов'язаний шрифт, я все ще бачу вікна. Можливо, доведеться перезапустити комп'ютер чи щось ..

import java.util.*;               // Required import for List, ArrayList and Collections
()->{                             // Method without parameter nor return-type
  List<Long>l=new ArrayList();    //  List
  for(long i=52;i-->0;l.add(i));  //  Fill the list with 1 through 52
  Collections.shuffle(l);         //  Randomly shuffle the list
  for(Long x:l)                   //  Loop over the shuffled list
    System.out.print(             //   Print the following character:
      (char)(x.parseLong(         //    Convert the following String to a character:
        "1F0"+                    //     The literal String "1F0" +
         (char)(65+x/12)+         //     either A, B, C or D by using x/12, adding 65,
                                  //      and casting it to a char +
         ((x%=4)>9?               //     If the current item mod-4 is 10 or higher:
            (char)(x>2?69:65+x)   //      Convert it to A, B, C or E
           :                      //     Else (1 through 9):
            x)                    //      Simply add this digit
      ,16))
    );
}                                 // End of method

Діалог APL, 35 байт

⎕ucs(∊127150+(16×⍳4)-⊂2~⍨⍳14)[?⍨52]

на основі відповіді Адама

використовує ⎕io←0

Japt , 51 41 39 22 байт

З деяким натхненням від рішення Джонатана Джеле .

#?ö¬k@B§XuG y#´Ãmd##

Спробуйте (або переглянути вихід із збільшеннямfont-size )

Пояснення

#?                         :63
  ö¬                       :Random permutation of range [0,63)
    k                      :Remove elements that return true
     @                     :When passed through this function
      B                    :  11
       §                   :  Less than or equal to
        X                  :  Current element
         u                 :  Modulo
          G                :  16
            y              :  GCD
             #´            :  180
               Ã           :End function
                m          :Map
                  ##       :  Add 127136
                 d         :  Get character at that codepoint