ท้าทาย

รับจำนวนเต็มn ≥ 4เอาท์พุทการเปลี่ยนแปลงของจำนวนเต็ม[0, n-1]ด้วยคุณสมบัติที่ไม่มีจำนวนเต็มต่อเนื่องสองตัว (จำนวนเต็มที่มีผลต่างแน่นอน 1) อยู่ติดกัน

ตัวอย่าง

• 4 → [1, 3, 0, 2]
• 5 → [0, 2, 4, 1, 3]
• 6 → [0, 2, 4, 1, 3, 5]
• 7 → [0, 2, 4, 1, 5, 3, 6]

คุณสามารถใช้การจัดทำดัชนี 1 แบบแทน (ใช้จำนวนเต็ม[1, n]แทน[0, n-1] )

รหัสของคุณจะต้องทำงานในเวลาพหุนามในnดังนั้นคุณจึงไม่สามารถลองเปลี่ยนลำดับและทดสอบแต่ละอันได้

เจลลี่ , 3 2 ไบต์

ḂÞ

จัดเรียงจำนวนเต็มใน[1, ... , n]โดย LSB

ลองออนไลน์!

Python 2 , 32 ไบต์

lambda n:(range(n|1)*2)[1:n*2:2]

ลองออนไลน์!

Python 3 , 40 , 38 ไบต์

lambda n:[*range(1,n,2),*range(0,n,2)]

ลองออนไลน์!

มันทำงานได้O(n)ทันเวลา

ขอบคุณเดนนิสที่ช่วยประหยัด 2 ไบต์!

Python 2 , 34 ไบต์

lambda n:range(1,n,2)+range(0,n,2)

ลองออนไลน์!

Python 2 , 40 ไบต์

lambda n:[(k-~k)%(n|1)for k in range(n)]

ลองออนไลน์!

Haskell, 22 ไบต์

f คือฟังก์ชันของ n ที่ส่งคืนรายการที่เรียงลำดับอย่างเหมาะสม ฉันใช้ตัวเลือกการจัดทำดัชนี 1 ตัว

f n=[2,4..n]++[1,3..n]

อ็อกเทฟ 17 ไบต์

@(x)[2:2:x,1:2:x]

ลองออนไลน์!

วิธีนี้ใช้วิธีเดียวกับวิธีอื่น ๆ Concatenate สองเวกเตอร์หนึ่งที่มีทั้งหมดจำนวนแม้จะอยู่ในช่วงที่รวม2 ... xและทุกเลขคี่รวมในช่วง1 ... x ไวยากรณ์ควรจะค่อนข้างชัดเจนดังนั้นฉันจะไม่อธิบาย

JavaScript (ES6), 40 ไบต์

f=
n=>[...Array(i=n)].map(_=>(i+--i)%(n|1))

<input type=number min=4 oninput=o.textContent=f(+this.value).join`\n`><pre id=o>

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

Gaia 2 ไบต์

r∫

ลองออนไลน์!

เพียงแค่นี้ (มั่นคง) ∫ Orts จำนวนเต็มในช่วง[1, การป้อนข้อมูล]โดยปีของพวกเขาR ity

R , 39 36 35 ไบต์

function(x)c(seq(2,x,2),seq(1,x,2))

ลองออนไลน์!

05AB1E , 3 ไบต์

พอร์ตของคำตอบ Python ของ DJMcMayhemและคำตอบ Jelly ของ Dennis

ÝΣÉ

ลองออนไลน์!

อย่างไร?

ÝΣÉ - implicitly take input onto stack  e.g. 7
Ý   - pop a and push range(a)               [0,1,2,3,4,5,6]
 Σ  - sort by (stable):
  É -   is even? (x%2==0 ?)                 [1,3,5,0,2,4,6]
    - implicit print of top of stack

Japt, 4 ไบต์

คุณสามารถแทนที่uด้วยvเพื่อรับใบสั่งซื้ออื่น

õ ñu

ลองมัน

หรือถ้าเราสามารถใช้อาร์เรย์ 2 อาร์เรย์ได้:

õ ó

ลองมัน

Mathematica, 50 -> 47 -> 42 ไบต์

p = Join[Range[2, #, 2], Range[1, #, 2]] &

ลองออนไลน์!

ขอบคุณ user202729 สำหรับการชี้ให้เห็นถึงศักยภาพการเพิ่มประสิทธิภาพสองเท่าเข้าร่วม [] ติดตั้ง Flatten [] และใช้ฟังก์ชันบริสุทธิ์

ฉันต้องการเพิ่มข้อสังเกตสองข้อ

1) มันค่อนข้างตรงไปตรงมาที่จะสร้างการเปลี่ยนแปลงที่เฉพาะเจาะจงโดยไม่ล้มหรือเพิ่มขึ้นอย่างต่อเนื่องสำหรับ n> = 4 ตามที่ร้องขอใน OP

ประกอบด้วยสองรายการต่อเนื่อง

สำหรับแม้แต่ n คือ:
list1 = (2,4, ... , n / 2)
list2 = (1,3, ... , n / 2-1)

สำหรับคี่เรามี:
list1 = (2,4, ... , ชั้น [n / 2])
list2 = (1,3, ... , ชั้น [n / 2])

สำหรับ "อัลกอริทึม" นี้ต้องทำการตัดสินใจเพียงครั้งเดียว (n เสมอหรือคี่) ที่เหลือก็แค่เขียนตัวเลข n

โซลูชัน Mathematica ที่เป็นไปได้นั้นมีให้ที่ด้านบน

2) คำถามที่เกี่ยวข้องคือจำนวนการเปลี่ยนแปลงดังกล่าวมีอยู่เป็นฟังก์ชันของ n

Mathematica, 124 ไบต์

a[0] = a[1] = 1; a[2] = a[3] = 0;
a[n_] := a[n] = (n + 1)*a[n - 1] - (n - 2)*a[n - 2] - (n - 5)*a[n - 3] + (n - 3)*a[n - 4]

ลองออนไลน์!

ตัวอย่าง:

a[#] & /@ Range[4, 12]

{2, 14, 90, 646, 5242, 47622, ​​479306, 5296790, 63779034}

การนับจำนวนการเปลี่ยนลำดับดังกล่าวเป็นปัญหามาตรฐาน

สำหรับ n = 4 มี 2: {{2,4,1,3}, {3,1,4,2}}

สำหรับ n = 5 มี 14: {{1,3,5,2,4}, {1,4,2,5,3}, {2,4,1,3,5}, {2,4, 1,5,3}, {2,5,3,1,4}, {3,1,4,2,5}, {3,1,5,2,4}, {3,5,1, 4,2}, {3,5,2,4,1}, {4,1,3,5,2}, {4,2,5,1,3}, {4,2,5,3, 1}, {5,2,4,1,3}, {5,3,1,4,2}}

จำนวน (n) ของพีชคณิตเหล่านี้เพิ่มขึ้นอย่างรวดเร็ว: 2, 14, 90, 646, 5242, 47622, ​​479306, 5296790, 63779034, ...

สำหรับขนาดใหญ่ n อัตราส่วน a (n) / n! ดูเหมือนว่าจะถึงขีด จำกัด 1 / e ^ 2 = 0.135335 ... ฉันไม่มีข้อพิสูจน์ที่เข้มงวด แต่มันเป็นเพียงการคาดเดาจากหลักฐานเชิงตัวเลข คุณสามารถทดสอบสิ่งนี้ได้โดยพยายามเรียกใช้โปรแกรมออนไลน์

โปรแกรมด้านบน (อ้างอิงจากที่ระบุด้านล่าง) คำนวณตัวเลขเหล่านี้

ท่านสามารถหาข้อมูลเพิ่มเติมได้ในลำดับที่เกี่ยวข้องใน OEIS: A002464 ปัญหาของ Hertzsprung: วิธีการจัดการราชาที่ไม่ถูกโจมตีบนกระดาน n X n โดยมี 1 ในแต่ละแถวและคอลัมน์ จำนวนการเรียงสับเปลี่ยนของความยาว n โดยไม่เพิ่มขึ้นหรือลดลงอย่างต่อเนื่อง

JavaScript (Node.js)ขนาด 42 ไบต์

n=>(f=i=>i<n?[i,...f(i+2)]:i&1?[]:f(1))(0)

ลองออนไลน์!

JavaScript (Node.js)ขนาด 47 ไบต์

n=>(f=i=>i--?[n--*2%(N|1)+N%2,...f(i)]:[])(N=n)

ลองออนไลน์!

Ruby , 27 ไบต์

->n{[*2.step(n,2)]|[*1..n]}

ลองออนไลน์!

ใช้การจัดทำดัชนี 1 รายการ

ช่องว่าง 161 ไบต์

นี่คือการส่งอย่างเป็นทางการที่ไม่ใส่เครื่องหมาย: ลองออนไลน์!

push_0   
read_n	
		push_0   
retreive_n			push_1  		
subtract	   dup_and_out[ 
 	
 	]label_s'
   
'push_2  		 
subtract	   dup[ 
 ]jump_next_if_neg:
		  
:dup_and_out[ 
 	
 	]else_jump_back:
 
 
:label_ss'
    
'push_0   
retreive_n			push_2  		 
subtract	   dup_and_out[ 
 	
 	]dup[ 
 ]jump_next:
 
    
:label_ssss'
      
'push_2  		 
subtract	   dup[ 
 ]jump_end_if_neg:
		   
:dup_and_out[ 
 	
 	]else_jump_back:
 
    
:label_sss'
     
'end

ลองออนไลน์!

ฉันเสียสละสักสองสามไบต์เพื่อให้โปรแกรมทำงานได้โดยไม่มีข้อผิดพลาดฉันเชื่อว่าฉันอาจเสียประมาณ 7-8 ไบท์และมันก็จะออกอย่างถูกต้อง แต่มันก็จะส่งข้อความผิดพลาดและไม่มีใครต้องการ

คำอธิบายแบบเต็มไบต์:

[Space][Space][Space][N]                   Push a 0 on the stack
[Tab][Tab][N][Tab][Tab][Tab][Tab]          Read input value and store in heap
[Space][Space][Space][N]                   Push a 0 on the stack again
[Tab][Tab][Tab]                            Retrieve the value from the heap
[Space][Space][Tab][Tab][N]                Push a -1 on the stack
[Tab][Space][Space][Space]                 Add -1 to value
[Space][N][Space]                          Duplicate 
[Tab][N][Space][Tab]                       Output
[N][Space][Space][Space][N]                Set First Label
[Space][Space][Tab][Tab][Space][N]         Push a -2 on the stack
[Tab][Space][Space][Space]                 Subtract 2 from value
[Space][N][Space]                          Duplicate
[N][Tab][Tab][Space][Space][N]             If negative, jump to second label
[Space][N][Space]                          Duplicate
[Tab][N][Space][Tab]                       Output
[N][Space][N][Space][N]                    Jump back to first label
[N][Space][Space][Space][Space][N]         Set Second Label
[Space][Space][Space][N]                   Push a 0 on the stack
[Tab][Tab][Tab]                            Retrieve input value from heap again
[Space][Space][Tab][Tab][Space][N]         Push a -2 on the stack
[Tab][Space][Space][Space]                 This time, Add a -2 to the value
[Space][N][Space]                          Duplicate
[Tab][N][Space][Tab]                       Output
[Space][N][Space]                          Duplicate
[N][Space][N][Space][Tab][N]               Jump to third label
[N][Space][Space][Space][Tab][N]           Set third label
[Space][Space][Tab][Tab][Space][N]         Push a -2 on the stack
[Tab][Space][Space][Space]                 Subtract 2 from value
[Space][N][Space]                          Duplicate
[N][Tab][Tab][Space][Space][Space][N]      Jump to end if negative
[Space][N][Space]                          Duplicate
[Tab][N][Space][Tab]                       Output
[N][Space][N][Space][Tab][N]               Jump back to third label
[N][Space][Space][Space][Space][Space][N]  Set fourth label/end
[N][N][N]                                  Terminate

F # (โมโน) 27 ไบต์

let f n=[2..2..n]@[1..2..n]

ลองออนไลน์!

Gol> <> , 14 ไบต์

FL:2%Z}:3=?$|B

ลองออนไลน์!

ตัวอย่างโปรแกรมเต็มรูปแบบและวิธีการทำงาน

1AGIE;GDlR~
FL:2%Z}:3=?$|B

1AG          Register row 1 as function G
   IE;       Take number input; halt on EOF
      GD     Call G and print the stack
        lR~  Empty the stack
             Repeat indefinitely

F           |   Repeat n times...
 L              Push loop counter (0..n-1)
  :2%Z}         If even, move to bottom of the stack
       :3=?$    If top == 3, swap top two
                  This is activated only once to make [2 0 3 1]
             B  Return

J , 10 ไบต์

i./:2|1+i.

ลองออนไลน์!

คำอธิบาย:

  /:          sort
i.            the numbers in the range 0..n-1 
    2|        according the remainder mod 2 of 
      1+i.    the numbers in the range 1..n   

Java 8, 56 ไบต์

n->{for(int i=n;i>0;)System.out.println((i+--i)%(n|1));}

ท่าเรือ@Neil JavaScript (ES6) คำตอบของ

ลองออนไลน์

คำตอบ 66 ไบต์เก่า:

n->{String[]r={"",""};for(;n-->0;)r[n%2]+=n+" ";return r[0]+r[1];}

ลองออนไลน์

คำอธิบาย:

n->{                  // Method with integer parameter and String return-type
  String[]r={"",""};  //  Result-Strings, both starting empty
  for(;n-->0;)        //  Loop in the range (n, 0]
    r[i%2]+=i+" ";    //   Append `i` and a space to one of the two result-Strings,
                      //   depending on if it is even (first) or odd (second)
  return r[0]+r[1];}  //  Return the two result-Strings appended to each other

Ruby, 27 ไบต์

->n{(1..n).sort_by{|i|i&1}}

ในขณะนี้คำตอบ , nจำนวนเต็มแรกจะเรียงตามบิตสำคัญน้อยที่สุดของพวกเขา

ลองออนไลน์!