Числа, которые легко запомнить, но ^{теоретически} нелегко

Ваша задача состоит в том, чтобы создать программу / функцию на любом языке, которая генерирует равномерно случайные числа, соответствующие этим критериям:

1. Длина составляет 5 цифр

2. Есть две отдельные пары повторяющихся цифр

3. Один набор повторяющихся цифр находится в начале или в конце, и цифры находятся рядом друг с другом

4. Нечетное число вне окружено другой парой цифр

5. Две пары цифр и другое число должны быть уникальными

6. Ваша программа может поддерживать числа с ведущими нулями или нет по вашему усмотрению. Если ведущие нули поддерживаются, они должны быть включены в выходные данные: 06088, а не 6088. Если начальные нули не поддерживаются, то числа, подобные 06088, вообще не должны генерироваться.

Тестовые случаи

Принятые выходы:

55373
55494
67611
61633
09033
99757
95944
22808
65622
22161

Не принятые результаты:

55555
77787
85855
12345
99233
12131
ABCDE
5033

Более приемлемые тестовые примеры можно найти по этой ссылке .

Они были сделаны с помощью этой программы Python:

импортировать случайный
для меня в диапазоне (100):

    if random.randint (0,100)> = 50: # Поместить пару в начало, если это правда
        temp = [] # рабочий массив
        temp.append (random.randint (0,9)) #append случайная цифра
        temp.append (temp [0]) # снова приложить ту же цифру

        x = random.randint (0,9)
        пока x == temp [0]:
            x = random.randint (0,9)
        temp.append (x) #append еще одна уникальная цифра

        y = random.randint (0,9)
        в то время как y == temp [0] или y == temp [2]:
            y = random.randint (0,9)
        temp.append (y) #append еще одна уникальная цифра и предыдущая уникальная цифра
        temp.append (х)

    еще: # Положите касающуюся пару в конце
        temp = [] # рабочий массив  
        temp.append (random.randint (0,9)) #append случайная цифра

        # Пока не уникально, попробуйте еще раз
        x = random.randint (0,9)
        пока x == temp [0]:
            x = random.randint (0,9)
        temp.append (x) #append еще одна уникальная цифра


        temp.append (temp [0]) # снова повторить ту же 0-ую цифру


        y = random.randint (0,9)
        в то время как y == temp [0] или y == temp [1]:
            y = random.randint (0,9)
        temp.append (y) #append еще одна уникальная цифра дважды
        temp.append (у)

    tempstr = ""
    для меня в темп:
        tempstr + = str (i)
    печать tempstr

Это код-гольф , поэтому выигрывает самый короткий ответ в байтах!

05AB1E , 11 байт

žh.r3£ûÁÂ)Ω

Попробуйте онлайн!

объяснение

žh            # push "0123456789"
  .r          # random shuffle
    3£        # take the first 3
              # EX: 152
      û       # palendromize
              # EX: 15251
       Á      # rotate right
              # EX: 11525
        Â)    # pair with its reverse
              # EX: [11525, 52511]
          Ω   # pick one at random

CJam (16 байт)

YmrG*98+ZbA,mrf=

Онлайн демо

Примечание: я предположил, что под «уникальным» ОП действительно подразумевается «отличный».

Также для 16 байтов:

98ZbA,mrf=W2mr#%
98ZbA,mrf=_W%]mR

рассечение

Ymr    e# Select a random number from [0 1]
G*98+  e# Multiply by 16 and add 98 to get 98 or 114
Zb     e# Base conversion in base 3 to get [1 0 1 2 2] or [1 1 0 2 0]
A,mr   e# Shuffle the numbers from 0 to 9
f=     e# Map "select the item at this index"

Другие варианты генерируются с использованием [1 0 1 2 2]и затем выбирают либо результат, либо его реверс.

Perl 5 , 81 63 56 байт

Вырезать 7 байтов с вдохновением от @DomHastings

Построение номера по соответствующей схеме.

@q{0..9}++;say+(keys%q)[.5>rand?(2,2,0,1,0):(0,1,0,2,2)]

Попробуйте онлайн!

Perl 5 , 89 байт

Выбирает случайные 5-значные числа, пока не найдет то, которое соответствует критериям.

$_=sprintf'%05d',0|rand 1E5until(/(.)\1(.)(.)\2/||/(.)(.)\1(.)\3/)&&$1-$2&$2-$3&$1-$3;say

Попробуйте онлайн!

Python 2 , 80 байт

from random import*
a,b,c=sample(range(10),3)
print[a,a,b,c,b][::choice((-1,1))]

Попробуйте онлайн!

Выводит список цифр.

Python 2 , 83 байта

from random import*
a,b,c=sample('0123456789',3)
print(a*2+b+c+b)[::choice((-1,1))]

Попробуйте онлайн!

Выход - это число.

APL (Dyalog Unicode) , 22 21 20 18 17 байт

(3∨?2)⌽1↓,∘⌽⍨3?10

Попробуйте онлайн!

Если это приемлемо для вывода цифры всегда в том же формате, это может быть сокращено до 12 байт, либо 1⌽1↓,∘⌽⍨3?10или 3⌽1↓,∘⌽⍨3?10.

Сохранил байт, удалив ненужное ∘.

Благодаря H.PWiz сохранен байт, а затем еще 2 байта благодаря их подсказке.

Сохраненный байт благодаря ngn.

Функция предполагает ⎕IO←0( I ndex O rigin).

Как?

(3∨?2)⌽1↓,∘⌽⍨3?10 ⍝ Anonymous function.
              3?10  ⍝ Deal 3 (distinct) random numbers from 0 to 9. (Assume 1 2 3)
             ⍨     ⍝ Use that as both arguments for:
          ,∘⌽      ⍝ Rotate (⌽), then concatenate (,).
                   ⍝ Yields 3 2 1 1 2 3.
        1↓         ⍝ Drop the first element. Our vector is now 2 1 1 2 3
      ⌽            ⍝ Rotate the vector to the left using as argument:
(  ?2)             ⍝ Roll 0 or 1 and...
 3∨                ⍝ Do the GCD between 3 and the result. (3∨0=3; 3∨1=1.)
                   ⍝ This yields either 1 1 2 3 2 or 2 3 2 1 1.

Ява 8, 145 136 125 119 байт

v->{String r;for(;!(r=(int)(Math.random()*1e5)+"").matches("((.).?\\2){2}")|r.chars().distinct().count()<3;);return r;}

-9 байт благодаря @ OlivierGrégoire.
-11 байт благодаря @RickHitchcock .
-6 байт благодаря @Nevay .

Объяснение:

Попробуйте онлайн.

v->{            // Method with empty unused parameter and String return-type
  String r;     //  Result-String
  for(;!(r=(int)(Math.random()*1e5)+"")
                //  Generate a random number in the range [0; 100000) and set it to `r`
        .matches("(.).*\\1(.).*\\2")
                //   And continue doing this as long as it doesn't match the regex above,
       |r.chars().distinct().count()<3;);
                //   or doesn't have three distinct digits
  return r;}    //  Return the result

Желе , 23 байта

⁵Ḷṗ3⁼Q$ÐfXµḢ;`;ŒBW;U$µX

Попробуйте онлайн!

Желе , 12 11 байт

ØDẊ⁽0yṃ,U$X

Попробуйте онлайн!

объяснение

ØDẊ⁽0yṃ,U$X    Niladic link, generate a random string.
ØD             List of digits, ['0','1','2',...,'9'].
  Ẋ            Random shuffle.
   ⁽0y         Number 13122.
      ṃ        Base decompression. (*)
       ,U$     Pair with its upend (reverse).
          X    Choose one (it or its reversed) randomly.

^(*) Правильный аргумент ṃ- ['0','1','2',...,'9']случайный список , состоящий из 10 элементов. Таким образом, число 13122будет преобразовано в биективное основание 10 ( [1,3,1,2,2]) и индекс в список (так что если список есть l, возвращаемое значение атома [l[1],l[3],l[1],l[2],l[2]], где Jelly использует индексирование на основе 1)

JavaScript (ES6), 79 байт

f=([,,d,a,b,c]=[...Math.random()+f])=>a-b&&a-c&&b-c?d&1?a+a+b+c+b:b+c+b+a+a:f()

Попробуйте онлайн!

Как?

Math.random()дает случайное плавание в [0..1) . Мы используем +fдля принуждения к строке. Мы игнорируем ведущий ноль и десятичную точку, выполняя [,,( деструктурируя присвоение первых двух символов нулю ), и собираем первые 4 десятичных знака в d , a , b и c .

Если , b и c представляют собой 3 разных целых числа, мы создаем окончательный вывод в формате AABCB или BCBAA (используя четность d для принятия решения). В противном случае мы попробуем еще раз, пока они не будут.

В крайне маловероятном случае Math.random()возврата значения без достаточного количества десятичных разрядов, по крайней мере, c будет установлен в нецифровый символ, что приведет к сбою теста и выполнению рекурсивного вызова. Если а , б и c являются действительными целыми числами, то d также гарантированно является действительным целым числом, так что это не нужно проверять.

Perl 6 , 42 байта

[~] (^10).pick(3)[0,|(<0 2 1>,<1 0 2>).pick,2]

Попробуйте онлайн!

Грязный , 33 байта

Использует --numeric-output флаг, чтобы он был читаемым, иначе он выведет строку управляющих символов с кодовыми точками, соответствующими цифрам.

10⭧[1w#%D⅋№3⤱≠1ẅ&]1wẂ⭿⭣1u∅#1∧◌ŪW‼

Попробуйте онлайн!

Разъяснение:

10⭧              put 10 on the right stack
[1w#%D⅋№3⤱≠1ẅ&] loop until there are 3 distinct positive numbers below 10 in the top stack
1wẂ              clean-up the right and top stacks
⭿               copy the top and bottom of the top stack to each-other
⭣                swap the first two elements of the top stack
1u               rotate the top stack by 1
∅#1∧◌ŪW          reverse the top stack half of the time
‼                print the top stack

Древесный уголь , 34 байта

≔‽χθ≔‽Φχ⁻ιθη↑Ｉ⟦θθη‽Φχ×⁻ιθ⁻ιηη⟧¿‽²‖

Попробуйте онлайн! Ссылка на подробную версию кода. Объяснение:

  χ                                 Predefined variable 10
 ‽                                  Random element from implicit range
≔  θ                                Assign to variable `q`
       χ                            Predefined variable 10
      Φ                             Filter on implicit range
         ι                          Current value
          θ                         Variable `q`
        ⁻                           Subtract
     ‽                              Random element
    ≔      η                        Assign to variable `h`
                    χ               Predefined variable 10
                   Φ                Filter on implicit range
                       ι  ι         Current value
                        θ           Variable `q`
                           η        Variable `h`
                      ⁻  ⁻          Subtract
                     ×              Multiply
                  ‽                 Random element
               θθ                   Variable `q`
                 η          η       Variable `h`
              ⟦              ⟧      Wrap 5 values into array
             Ｉ                      Cast array elements to string
            ↑                       Make array print horizontally
                                ²   Literal 2
                               ‽    Random element from implicit range
                              ¿     If
                                 ‖  Reflect

Сетчатка , 40 байт

10*
Y`w`d
V?`
Lv$7`.(.)
$1$<'$'
O?`...?

Попробуйте онлайн!

Может печатать строки с ведущими нулями.

объяснение

10*

Инициализируйте строку до 10 подчеркиваний.

Y`w`d

Циклически транслитерируйте символы слова в цифры. Это немного странно. Символы wи dявляются короткими для следующих строк соответственно:

w: _0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
d: 0123456789

Циклическая транслитерация означает, что сначала обе строки повторяются до длины их LCM:

_0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_012345...
0123456789012345678901234567890123456789012345678901234567890123456789...

Поскольку длины строк 53 и 10 взаимно просты, каждая копия _соединяется с другой цифрой. И теперь циклическая транслитерация заменит i- ую копию _с i- й парой в этом расширенном списке. Таким образом, мы получаем следующую строку:

0369258147

Все это, чтобы сохранить один байт над литеральной строкой 0369258147 , так что, да, я думаю? : D

В любом случае, у нас есть строка из 10 цифр.

V?`

Это перемешивает цифры. Таким образом, первые три цифры будут равномерно случайным выбором трех различных цифр.

Lv$7`.(.)
$1$<'$'

Мы сопоставляем строку ...ABCи превращаем ее в BABCC. То, как мы это делаем, довольно безумно, и опять же экономит только один байт по сравнению с более простым подходом. Сначала мы сопоставляем все пары символов перекрытия ( v), захватывая вторую ( .(.)). Тогда мы сохраняем только восьмой матч (с 7нуля), который находится ABв ...ABC. Затем мы заменяем ( $) на: B( $1), ABC( $<'который является суффиксом разделителя совпадений слева от совпадения) C( $'который является суффиксом самого совпадения).

O?`...?

Наконец, мы сопоставляем либо 3 или 2 символа и перетасовать спички, давая нам либо BABCCили CCBABв случайном порядке.

R , 78 байт

z=sample(0:9,3)[c(2,1:3,3)];cat(paste(`if`(runif(1)>.5,z,rev(z)),collapse=''))

Попробуйте онлайн!

sample3 выбирает случайные значения из 0:9, которые расположены в векторе таким образом: a b a c c. Теперь у нас есть 50/50 шанс изменить этот вектор, а затем объединить и напечатать.

PHP, 73 72 66 байт

<?=strtr(rand()%2?AABCB:BCBAA,ABC,join(array_rand(range(0,9),3)));

Редактировать: 66 байт благодаря предложению @David.

Попробуйте онлайн!

Красный , 147, 146 125 байт

func[][b: copy[]d:[1 1 2 3 2]if 1 = random 2[d: reverse d]while[4 > length? b][alter b(random 10)- 1]foreach a d[prin b/(a)]]

Попробуйте онлайн!

Ungolfed:

f: func[] [                       function with no arguments
    b: copy []                    an empty list
    d: [1 1 2 3 2]                preset digits at positons
    if 1 = random 2 [             generate 1 or 2 
        d: reverse d]             based on this choose to reverse the positions list
    while [4 > length? b] [       while we haven't chosen 3 different digits
        alter b (random 10) - 1   pick a random digit, if it's not in the list already
                                  append it to the list, otherwise remove it
    ]
    foreach a d [                 for each position
       prin b/(a)]                print the corresponding digit 
]

Wolfram Language (Mathematica) , 59 байт

{{#,##,#2},{#2,##,#3}}~r~1&@@(r=RandomSample)[0~Range~9,3]&

Попробуйте онлайн!

Рубин , 60 59 байт

->{a,b,c=[*0..9].sample 3;[[a,a,b,c,b],[b,c,b,a,a]].sample}

Попробуйте онлайн!

Возвращает список цифр.

Python 3 + NumPy, 69 байт

from pylab import*
r=choice
i=r(2)
print(r(10,3,0)[[1-i,0,1,2,-1-i]])

объяснение

from pylab import*     
r=choice               # `choice` takes a range, number of samples, and wether repetition is allowed
i=r(2)                 # Single value in [0,1] to specify if repeated digits come on right or left
print(r(10,3,0)[[1-i,0,1,2,-1-i]])    # Construct output using index list and 3 random integers

C (gcc) , 126 119 байтов

-6 байт от @ceilingcat

#define R time(0)%10
b,n,m,k;f(){b=R^8;for(n=R;m==n|k==m|k==n;m=R,k=R);printf("%d%d%d%d%d",b?n:m,b?n:k,m,b?k:n,b?m:n);}

Попробуйте онлайн!

J 35 байт

[:u:48+[:|.^:(?&2:)2 2 1 0 1{3?10"_

Попробуйте онлайн!

Я уверен, что это может быть гораздо дальше.

Объяснение:

  3?10             - generates 3 different digits
7 0 3

  2 2 1 0 1{       - constructs a list using digits positions 0, 1 and 2

  2 2 1 0 1{3?10   
3 3 0 7 0

  |.^:(?&2:)       - generates 0 or 1 and if 1, reverses the list 

  |.^:(?&2:)2 2 1 0 1{3?10
0 7 0 3 3

   u:48+              - converts to char by adding 48 to each digit
   u:48+|.^:(?&2:)2 2 1 0 1{3?10
07033