Angka yang mudah diingat namun ^{secara teoritis} tidak mudah dibuat

Tantangan Anda adalah membuat program / fungsi dalam bahasa apa pun yang menghasilkan angka acak seragam yang sesuai dengan kriteria ini:

1. Panjangnya adalah 5 digit

2. Ada dua pasangan digit berulang yang terpisah

3. Satu set angka berulang adalah di awal atau akhir dan digit di sebelah satu sama lain

4. Angka ganjil keluar dikelilingi oleh pasangan digit lainnya

5. Pasangan dua digit dan angka lainnya semuanya harus unik

6. Program Anda dapat mendukung angka dengan angka nol di depan atau tidak, sesuai kebijakan Anda. Jika nol terdepan didukung, mereka harus dimasukkan dalam output: 06088, bukan 6088. Jika nol terkemuka tidak didukung, maka angka-angka seperti 06088 tidak boleh dihasilkan sama sekali.

Uji Kasus

Output yang Diterima:

55373
55494
67611
61633
09033
99757
95944
22808
65622
22161

Output tidak diterima:

55555
77787
85855
12345
99233
12131
abcde
5033

Kasus uji yang lebih dapat diterima dapat ditemukan di tautan pastebin ini .

Ini dibuat dengan program python ini:

impor acak
untuk saya dalam kisaran (100):

    if random.randint (0,100)> = 50: #Pasangan menyentuh pada awalnya jika benar
        temp = [] # array pekerjaan
        temp.append (random.randint (0,9)) # tambahkan digit acak
        temp.append (temp [0]) # tambahkan digit yang sama lagi

        x = random.randint (0,9)
        sementara x == temp [0]:
            x = random.randint (0,9)
        temp.append (x) #append digit unik lainnya

        y = random.randint (0,9)
        sementara y == temp [0] atau y == temp [2]:
            y = random.randint (0,9)
        temp.append (y) # tambahkan digit unik lain, dan digit unik sebelumnya
        temp.append (x)

    lain: #Pas menyentuh pasangan di akhir
        temp = [] # array pekerjaan  
        temp.append (random.randint (0,9)) # tambahkan digit acak

        #Sementara tidak unik, coba lagi
        x = random.randint (0,9)
        sementara x == temp [0]:
            x = random.randint (0,9)
        temp.append (x) #append digit unik lainnya


        temp.append (temp [0]) # tambahkan digit ke-0 yang sama lagi


        y = random.randint (0,9)
        sementara y == temp [0] atau y == temp [1]:
            y = random.randint (0,9)
        temp.append (y) # tambahkan digit unik lain dua kali
        temp.append (y)

    tempstr = ""
    untuk saya dalam temp:
        tempstr + = str (i)
    cetak tempstr

Ini kode-golf , jadi jawaban tersingkat dalam byte menang!

05AB1E , 11 byte

žh.r3£ûÁÂ)Ω

Cobalah online!

Penjelasan

ž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 byte)

YmrG*98+ZbA,mrf=

Demo online

Catatan: Saya berasumsi bahwa dengan OP "unik" benar-benar berarti "berbeda".

Juga untuk 16 byte:

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

Pembedahan

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"

Varian lain menghasilkan penggunaan [1 0 1 2 2]dan kemudian memilih hasil atau kebalikannya.

Perl 5 , 81 63 56 byte

Potong 7 byte dengan inspirasi dari @DomHastings

Membangun nomor dari pola yang sesuai.

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

Cobalah online!

Perl 5 , 89 byte

Pilihan acak 5 angka angka sampai menemukan yang memenuhi kriteria.

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

Cobalah online!

Python 2 , 80 byte

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

Cobalah online!

Menghasilkan daftar digit.

Python 2 , 83 byte

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

Cobalah online!

Output adalah angka.

APL (Dyalog Unicode) , 22 21 20 18 17 byte

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

Cobalah online!

Jika dapat diterima untuk menampilkan angka selalu dalam format yang sama, ini dapat disingkat menjadi 12 byte, baik 1⌽1↓,∘⌽⍨3?10atau 3⌽1↓,∘⌽⍨3?10.

Menyimpan byte dengan menghapus yang tidak perlu ∘.

Menyimpan satu byte berkat H.PWiz, dan kemudian 2 byte lagi karena tip mereka.

Disimpan satu byte berkat ngn.

Fungsi ini mengasumsikan ⎕IO←0( I ndex O rigin).

Bagaimana?

(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.

Java 8, 145 136 125 119 byte

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

-9 byte terima kasih kepada @ OlivierGrégoire.
-11 byte terima kasih kepada @RickHitchcock .
-6 byte terima kasih kepada @Nevay .

Penjelasan:

Cobalah online.

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

Jelly , 23 byte

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

Cobalah online!

Jelly , 12 11 byte

ØDẊ⁽0yṃ,U$X

Cobalah online!

Penjelasan

Ø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.

^(*) Argumen yang tepat ṃadalah daftar ['0','1','2',...,'9'], acak, memiliki 10 elemen. Jadi nomor 13122tersebut akan dikonversi menjadi basis bijektif 10 ( [1,3,1,2,2]) dan indeks ke dalam daftar (jadi jika daftar adalah l, nilai pengembalian atom adalah [l[1],l[3],l[1],l[2],l[2]], di mana Jelly menggunakan pengindeksan berbasis 1)

JavaScript (ES6), 79 byte

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

Cobalah online!

Bagaimana?

Math.random()memberikan float acak dalam [0..1) . Kami menggunakan +funtuk memaksa paksaan ke string. Kami mengabaikan nol awal dan titik desimal dengan melakukan [,,( menghancurkan penugasan dua karakter pertama menjadi nol) dan mengumpulkan 4 digit desimal pertama menjadi d , a , b , dan c .

Jika a , b dan c adalah 3 bilangan bulat yang berbeda, kami membangun hasil akhir dalam format AABCB atau BCBAA (menggunakan paritas d untuk memutuskan). Kalau tidak, kami coba lagi sampai tiba.

Dalam hal yang sangat mustahil untuk Math.random()mengembalikan nilai tanpa tempat desimal yang cukup, setidaknya c akan ditetapkan ke karakter non-digit, memaksa tes gagal dan panggilan rekursif terjadi. Jika a , b dan c adalah bilangan bulat yang valid maka d dijamin juga bilangan bulat yang valid, jadi yang ini tidak perlu diuji.

Perl 6 , 42 byte

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

Cobalah online!

Kotor , 33 byte

Menggunakan --numeric-outputbendera sehingga dapat dibaca, jika tidak akan menghasilkan serangkaian karakter kontrol dengan titik kode yang sesuai dengan digit.

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

Cobalah online!

Dijelaskan:

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

Arang , 34 byte

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

Cobalah online! Tautan adalah untuk mengucapkan versi kode. Penjelasan:

  χ                                 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

Retina , 40 byte

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

Cobalah online!

Dapat mencetak string dengan nol di depan.

Penjelasan

10*

Menginisialisasi string menjadi 10 garis bawah.

Y`w`d

Transliterasi karakter kata secara siklis ke digit. Ini agak aneh. The wdan dpendek untuk string berikut, masing-masing:

w: _0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
d: 0123456789

Transliterasi siklik berarti bahwa pertama, kedua string diulangi dengan panjang LCM mereka:

_0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_012345...
0123456789012345678901234567890123456789012345678901234567890123456789...

Karena panjang string 53 dan 10 adalah koprime, setiap salinan _dipasangkan dengan digit yang berbeda. Dan sekarang transliterasi siklik akan menggantikan saya th menyalin dari _dengan i pasangan th dalam daftar diperluas. Jadi kita berakhir dengan string berikut:

0369258147

Semua itu untuk menghemat satu byte lebih dari string literal 0369258147, jadi ya saya kira? : D

Ngomong-ngomong, kami punya string semua 10 digit sekarang.

V?`

Ini mengocok digit. Jadi tiga digit pertama akan menjadi pilihan acak yang seragam dari tiga digit yang berbeda.

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

Kami mencocokkan string ...ABCdan mengubahnya menjadi BABCC. Cara kami melakukan ini agak gila meskipun dan sekali lagi hanya menghemat satu byte dibandingkan dengan pendekatan yang lebih mudah. Kami pertama-tama mencocokkan semua pasangan karakter yang tumpang tindih ( v), mengambil yang kedua ( .(.)). Kemudian kami hanya mempertahankan pertandingan ke-8 ( 7, berbasis nol) yang ada ABdi ...ABC. Kemudian kita ganti ( $) dengan: B( $1), ABC( $<'yang merupakan akhiran dari sisa pemisah pertandingan), C( $'yang merupakan akhiran dari pertandingan itu sendiri).

O?`...?

Akhirnya, kami mencocokkan 3 atau 2 karakter dan mengocok pertandingan, memberi kami baik BABCCatau CCBABsecara acak.

R , 78 byte

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

Cobalah online!

samplemengambil 3 nilai acak dari 0:9, yang ditempatkan di vektor seperti: a b a c c. Sekarang kita memiliki peluang 50/50 untuk membalikkan vektor ini, lalu menggabungkan dan mencetak.

PHP, 73 72 66 byte

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

Sunting: 66 bytes berkat saran @David.

Cobalah online!

Merah , 147, 146 125 byte

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

Cobalah online!

Tidak Disatukan:

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 
]

Bahasa Wolfram (Mathematica) , 59 byte

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

Cobalah online!

Ruby , 60 59 byte

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

Cobalah online!

Ini mengembalikan daftar digit.

Python 3 + numpy, 69 byte

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

Penjelasan

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 byte

-6 byte dari @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);}

Cobalah online!

J , 35 byte

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

Cobalah online!

Saya yakin itu bisa bermain golf lebih jauh.

Penjelasan:

  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