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

คุณสามารถอ่านข้อมูลเกี่ยวกับหมายเลขมายากลที่นี่

กฎ:

• 1 <= n <= 10
• ไม่สามารถใส่ตัวเลขซ้ำได้
• ต้องมี 0 นำหน้า (ถ้ามี)
• ครั้งที่ 1 ผ่านxหลักของจำนวนวันที่ (เริ่มต้นด้วยตัวอักษรตัวแรกเป็น 1) ต้องหารด้วยxเช่นใน30685, 3หารด้วย 1 30หารด้วย 2 306หารด้วย 3 3068หารด้วย 4 และ30685เป็น divislbe 5 .
• โปรแกรมจะต้องใช้จำนวนเต็มเป็นอินพุต (ผ่านบรรทัดคำสั่งเป็นอาร์กิวเมนต์ของฟังก์ชั่น ฯลฯ ) และพิมพ์พีชคณิตทั้งหมดที่เป็นไปตามกฎ
• เอาต์พุตต้องถูกคั่นด้วยอักขระเว้นวรรค 1 ตัวหรือมากกว่า
• การเรียงสับเปลี่ยนอาจเริ่มต้นและมีค่าเป็นศูนย์ (ดังนั้นจึงไม่ใช่ตัวเลขทางเทคนิค )
• ลำดับของเอาต์พุตไม่สำคัญ
• คุณไม่จำเป็นต้องจัดการกับอินพุตที่ไม่คาดคิด
• อักขระตัวน้อยเป็นไบต์ชนะ

ตัวอย่าง

ให้ 1:

0
1
2
3
4
5
6
7
8
9

ให้ 2:

02
04
06
08
10
12
14
16
18
20
24
26
28
30
32
34
36
38
40
42
46
48
50
52
54
56
58
60
62
64
68
70
72
74
76
78
80
82
84
86
90
92
94
96
98

ให้ 10:

3816547290

มอบเครดิตให้ Pizza Hut & John H. Conwayสำหรับปริศนาตัวต่อ (ตัวเลือก A) ขอขอบคุณที่ @Mego และ @ SP3000 สำหรับพวกเขาเชื่อมโยง

เยลลี่ , 20 17 16 ไบต์

QḣQV%S
ØDṗçÐḟRj⁷

นี่ช้ามากและใช้หน่วยความจำมาก ... ลองออนไลน์!

มันทำงานอย่างไร

ØDṗçÐḟRj⁷  Main link. Input: n (integer)

ØD         Yield d := '0123456789'.
  ṗ        Compute the nth Cartesian power of d.
      R    Range; yield [1, ..., n].
    Ðḟ     Filter false; keep strings of digits for which the following yields 0.
   ç         Apply the helper link to each digit string and the range to the right.
       j⁷  Join the kept strings, separating by linefeeds.


QḣQḌ%S     Helper link. Arguments: s (digit string), r (range from 1 to n)

Q          Unique; deduplicate s.
 ḣ         Head; get the prefixes of length 1, ..., n or less.
           If s had duplicates, the final prefixes fill be equal to each other.
  Q        Unique; deduplicate the array of prefixes.
   V       Eval all prefixes.
    %      Compute the residues of the kth prefixes modulo k.
           If s and the array of prefixes have different lengths (i.e., if the
           digits are not unique), some right arguments of % won't have corr. left
           arguments. In this case, % is not applied, and the unaltered right
           argument is the (positive) result.
     S     Add all residues/indices. This sum is zero iff all digits are unique
           and the kth prefixes are divisible by k.

JavaScript (Firefox 30-57), 77 ไบต์

f=n=>n?[for(s of f(n-1))for(c of"0123456789")if(s.search(c)+(s+c)%n<0)s+c]:[""]

แก้ไข: บันทึก 1 ไบต์ขอบคุณ @ edc65

Pyth, 19 ไบต์

jf!s%VsM._TS;.PjkUT

สาธิต

วิธีการแก้ปัญหากำลังดุร้าย คำอธิบายที่จะปฏิบัติตาม ขอบคุณแรงบันดาลใจจาก FryAmTheEggman

22 ไบต์

juf!%sThH{I#sm+LdTGQ]k

สาธิต

ตัวเลขถูกสร้างและจัดเก็บเป็นสตริงและแปลงเป็น ints เท่านั้นเพื่อตรวจสอบการหาร

คำอธิบาย:

juf!%sThH{I#sm+LdTGQ]k
 u                 Q]k    Apply the following input many times, starting with ['']
             m    G       For each string at the previous step,
              +LdT        Append each digit to it
            s             Concatenate
         {I#              Filter out strings with repeats
  f                       Filter on
     sT                   The integer
    %  hH                 Mod the 1 indexed iteration number
   !                      Is zero.
j                         Join on newlines.

MATL 30 ไบต์

4Y2Z^!"@Sd@!U10G:q^/kPG:\~h?@!

ลองออนไลน์!

มันช้ามาก เพราะinput 3มันใช้เวลาไม่กี่วินาทีในคอมไพเลอร์ออนไลน์ หากต้องการดูตัวเลขที่ปรากฏหนึ่งโดยหนึ่งรวมถึงDในตอนท้ายของรหัส

คำอธิบาย

4Y2       % predefined literal: string '0123456789'
Z^        % implicit input. Cartesian power: 2D char array. Each number is a row
!         % transpose
"         % for each column
  @       %   push current column
  Sd      %   sort and compute consecutive differences (*)
  @!U     %   push current column. Convert to number
  10G:q^  %   array [1 10 100 ... 10^(n-1)], where n is the input
  /k      %   divide element-wise. Round down
  P       %   reverse array
  G:      %   array [1 2 ... n]
  \~      %   modulo operation, element-wise. Negate: gives 1 if divisible (**)
  h       %   concatenate (*) and (**). Truthy if all elements are nonzero
  ?       %   if so
    @!    %     current number as a row array of char (string)
          %   implicitly end if
          % implicitly end if
          % implicitly display stack contents

ทับทิม 87 ไบต์

โซลูชันแบบเรียกซ้ำพื้นฐาน

f=->n,x="",j=1{j>n ?puts(x):([*?0..?9]-x.chars).map{|i|f[n,x+i,j+1]if((x+i).to_i)%j<1}}

หากคุณได้รับอนุญาตให้ส่งคืนรายการเรียงสับเปลี่ยนแทนที่จะพิมพ์ให้พิมพ์ 85 ไบต์:

f=->n,x="",j=1{j>n ?x:([*?0..?9]-x.chars).map{|i|f[n,x+i,j+1]if((x+i).to_i)%j<1}-[p]}

Python ขนาด 132 ไบต์

lambda n:[x for x in map(("{:0%s}"%n).format,(range(10**n)))if all(int(x[:i])%i<1and len(set(x))==len(x)for i in range(1,len(x)+1))]

ลดขนาด 26 ไบต์ด้วยการกำจัดitertoolsขอบคุณ Sp3000 ที่ทำให้ฉันรู้ว่าฉันไม่ควรใช้มัน

ลดขนาด 2 ไบต์โดยใช้รายการความเข้าใจมากกว่าfilterขอขอบคุณ Sp3000 อีกครั้งสำหรับคำแนะนำ

ลองออนไลน์: Python 2 , Python 3