ตัวเลขที่จดจำได้ง่าย แต่ใน^{ทางทฤษฎี}ไม่สามารถทำได้ง่าย

ความท้าทายของคุณคือการสร้างโปรแกรม / ฟังก์ชั่นในภาษาใด ๆ ที่สร้างตัวเลขสุ่มอย่างสม่ำเสมอซึ่งตรงกับเกณฑ์เหล่านี้:

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

กรณีทดสอบที่ยอมรับได้มากขึ้นสามารถดูได้ที่ลิงค์ pastebinนี้

สิ่งเหล่านี้สร้างขึ้นด้วยโปรแกรมไพ ธ อนนี้:

นำเข้าแบบสุ่ม
สำหรับฉันอยู่ในช่วง (100):

    ถ้า random.randint (0,100)> = 50: # ใส่คู่ที่จุดเริ่มต้นหากเป็นจริง
        temp = [] #working array
        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) # ผนวกตัวเลขที่ไม่ซ้ำอื่น ๆ

        y = random.randint (0,9)
        ในขณะที่ y == temp [0] หรือ y == temp [2]:
            y = random.randint (0,9)
        temp.append (y) # ผนวกตัวเลขที่ไม่ซ้ำกันอื่น ๆ และตัวเลขที่ไม่ซ้ำกันก่อนหน้านี้
        temp.append (x)

    อื่น: #Put แตะคู่ที่สิ้นสุด
        temp = [] #working array  
        temp.append (random.randint (0,9)) #append เลขสุ่ม

        # ในขณะที่ไม่ซ้ำกันลองอีกครั้ง
        x = random.randint (0,9)
        ในขณะที่ x == temp [0]:
            x = random.randint (0,9)
        temp.append (x) # ผนวกตัวเลขที่ไม่ซ้ำอื่น ๆ


        temp.append (temp [0]) # ผนวกตัวเลข 0th เดิมอีกครั้ง


        y = random.randint (0,9)
        ในขณะที่ y == temp [0] หรือ y == temp [1]:
            y = random.randint (0,9)
        temp.append (y) # ผนวกตัวเลขที่ไม่ซ้ำกันอีกสองครั้ง
        temp.append (y)

    tempstr = ""
    สำหรับฉันในอุณหภูมิ:
        tempstr + = str (i)
    พิมพ์ชั่วคราว

นี่คือcode-golfดังนั้นคำตอบที่สั้นที่สุดในจำนวนไบต์ชนะ!

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=

การสาธิตออนไลน์

หมายเหตุ: ฉันสันนิษฐานว่าโดย OP "เฉพาะ" จริงๆหมายถึง "ชัดเจน"

นอกจากนี้สำหรับ 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?103⌽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.

Java 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จะถูกแปลงเป็นฐาน bijective 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เพื่อบังคับขู่เข็ญให้เป็นสตริง เราไม่สนใจศูนย์นำและจุดทศนิยมโดยการทำ[,,( destructuring มอบหมายของตัวละครสองตัวแรกที่จะไม่มีอะไร) และเก็บครั้งแรก 4 หลักทศนิยมเข้าไปd , , ขและค

หาก, ขและค 3 เลขที่แตกต่างกันเราสร้างผลลัพธ์สุดท้ายในAABCBหรือBCBAAรูปแบบ (ใช้ความเท่าเทียมกันของdในการตัดสินใจ) มิฉะนั้นเราจะลองอีกครั้งจนกว่าจะหมด

ในเหตุการณ์ที่ไม่น่าจะเป็นไปได้สูงในการMath.random()คืนค่าโดยไม่มีตำแหน่งทศนิยมเพียงพออย่างน้อยcจะถูกตั้งค่าเป็นอักขระที่ไม่ใช่ตัวเลขบังคับให้การทดสอบล้มเหลวและการเรียกซ้ำเกิดขึ้น หากa , bและcเป็นจำนวนเต็มที่ถูกต้องดังนั้นdจะรับประกันว่าเป็นจำนวนเต็มที่ถูกต้องเช่นกันดังนั้นจึงไม่จำเป็นต้องทดสอบ

Perl 6 , 42 ไบต์

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

ลองออนไลน์!

Dirty , 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 เป็น coprime สำเนาแต่ละชุด_จึงถูกจับคู่กับตัวเลขที่แตกต่างกัน และตอนนี้วงจรทับศัพท์จะเข้ามาแทนที่ฉัน TH คัดลอกของ_กับฉันจับคู่ TH ในรายการที่ขยายตัว ดังนั้นเราจึงลงท้ายด้วยสตริงต่อไปนี้:

0369258147

ทั้งหมดนี้เพื่อบันทึกไบต์เดียวบนสตริงตัวอักษร0369258147ดังนั้นฉันเดาเลยเหรอ? : D

อย่างไรก็ตามตอนนี้เรามีตัวเลขทั้งหมด 10 หลักแล้ว

V?`

นี่เป็นการสับตัวเลข ดังนั้นตัวเลขสามหลักแรกจะเป็นการสุ่มเลือกตัวเลขสามหลักที่แตกต่างกันอย่างสม่ำเสมอ

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

เราตรงกับสตริงและทำให้มันกลายเป็น...ABC BABCCวิธีที่เราทำมันค่อนข้างบ้าและประหยัดได้เพียงหนึ่งไบต์เมื่อเปรียบเทียบกับวิธีที่ตรงไปตรงมามากขึ้น อันดับแรกเราจับคู่อักขระที่ทับซ้อนกันทั้งหมด( v) จับภาพตัวที่สอง ( .(.)) จากนั้นเราก็เก็บเฉพาะการจับคู่ที่ 8 ( 7, zero-based) ซึ่งเป็นใน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=''))

ลองออนไลน์!

sampleเลือก 3 ค่าสุ่มจาก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 (Mathematica) , 59 ไบต์

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

ลองออนไลน์!

Ruby , 60 59 ไบต์

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

ลองออนไลน์!

มันจะส่งคืนรายการตัวเลข

Python 3 + จำนวน, 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