เกี่ยวกับซีรี่ส์

ฉันจะใช้ชุดเล็ก ๆ ของความท้าทายรหัสกอล์ฟหมุนรอบรูปแบบของการสุ่ม โดยทั่วไปจะเป็นสนามกอล์ฟ9-Hole แต่กระจายออกไปหลายคำถาม คุณสามารถเข้าร่วมการท้าทายใด ๆ เป็นรายบุคคลราวกับว่ามันเป็นคำถามปกติ

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

แม้ว่าฉันจะมีไอเดียมากมายสำหรับซีรีส์ แต่ความท้าทายในอนาคตยังไม่เกิดขึ้น หากคุณมีข้อเสนอแนะใด ๆ โปรดแจ้งให้เราทราบเกี่ยวกับการโพสต์ Sandbox ที่เกี่ยวข้อง

หลุมที่ 1: สุ่มอาเรย์

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

• การสับเปลี่ยนที่เป็นไปได้ทุกครั้งจะต้องส่งคืนด้วยความน่าจะเป็นแบบเดียวกัน (ดังนั้นการสับเปลี่ยนควรมีการแจกแจงแบบเดียวกัน) คุณสามารถตรวจสอบว่าอัลกอริทึมของคุณเป็นชุด / เป็นกลางโดยการใช้ใน JavaScript บนมันจะสลับซึ่งจะผลิตเมทริกซ์ของอคติที่ - ผลควรมีลักษณะเป็นเครื่องแบบเป็นของตัว ins Fisher-Yatesหรือเรียงลำดับ (ลำดับแบบสุ่ม)
• คุณต้องไม่ใช้วิธีการใด ๆ ในตัวหรือของบุคคลที่สามเพื่อสับเปลี่ยนอาร์เรย์หรือสร้างการเรียงสับเปลี่ยนแบบสุ่ม (หรือแจกแจงการเปลี่ยนลำดับทั้งหมด) โดยเฉพาะอย่างยิ่งในตัวฟังก์ชั่นแบบสุ่มคุณอาจจะใช้เพียง แต่จะได้รับจำนวนสุ่มเดียวในเวลา คุณอาจคิดว่าวิธีการสุ่มตัวเลขใด ๆ ในตัวทำงานใน O (1) และมีความสม่ำเสมออย่างสมบูรณ์แบบในช่วงเวลาที่ร้องขอ (ในแง่ทางคณิตศาสตร์ หากภาษาของคุณอนุญาตให้คุณรับรายการหมายเลขสุ่มm ได้ในครั้งเดียวคุณสามารถใช้สิ่งอำนวยความสะดวกนี้ได้หากตัวเลขmเป็นอิสระต่อกันและคุณนับเป็น O (m)
• การใช้งานของคุณต้องไม่ซับซ้อนเกินเวลาที่ O (N)โดยที่Nคือขนาดของอาเรย์ที่จะถูกสับ ตัวอย่างเช่นคุณไม่สามารถ "เรียงตามตัวเลขสุ่ม"
• คุณสามารถสับเปลี่ยนอาเรย์หรือสร้างอาเรย์ใหม่ (ซึ่งในกรณีนี้อาเรย์เก่าอาจถูกปรับเปลี่ยนตามที่คุณต้องการ)

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

เข้าและส่งออกอาจจะอยู่ในรายชื่อที่สะดวกใด ๆ หรือรูปแบบสตริง แต่ต้องสนับสนุนจำนวนเต็มโดยพลการในช่วง-2 ³¹ ≤ x <2วันที่ 31 โดยหลักการแล้วรหัสของคุณควรใช้กับอาร์เรย์ที่มีความยาวสูงสุด2 ³¹แม้ว่าจะไม่จำเป็นต้องใส่ในหน่วยความจำของคุณหรือทำให้เสร็จภายในระยะเวลาที่เหมาะสม (ฉันแค่ไม่ต้องการเห็นการ จำกัด ขนาดโดยพลการของลูปฮาร์โค้ดหรือบางอย่าง)

นี่คือรหัสกอล์ฟดังนั้นการส่งที่สั้นที่สุด (เป็นไบต์) ชนะ

ลีดเดอร์บอร์ด

ตัวอย่างต่อไปนี้จะสร้างกระดานผู้นำสำหรับทุกความท้าทายของซีรี่ส์

เพื่อให้แน่ใจว่าคำตอบของคุณปรากฏขึ้นโปรดเริ่มต้นทุกคำตอบด้วยพาดหัวโดยใช้เทมเพลต Markdown ต่อไปนี้:

# Language Name, N bytes

ที่Nมีขนาดของส่งของคุณ หากคุณปรับปรุงคะแนนของคุณคุณสามารถเก็บคะแนนเก่าไว้ในพาดหัวโดยการตีพวกเขาผ่าน ตัวอย่างเช่น

# Ruby, <s>104</s> <s>101</s> 96 bytes

(ภาษาไม่ปรากฏขึ้นในปัจจุบัน แต่ตัวอย่างข้อมูลต้องการและแยกวิเคราะห์และฉันอาจเพิ่มกระดานผู้นำแบบแยกภาษาในอนาคต)

/* Configuration */

var QUESTION_IDs = [45302, 45447, 46991, 49394, 51222, 66319, 89621, 120472]; // Obtain this from the url
// It will be like http://XYZ.stackexchange.com/questions/QUESTION_ID/... on any question page
var ANSWER_FILTER = "!.FjwQBrX2KXuFkv6p2lChi_RjzM19";

/* App */

var answers = [], page = 1, currentQ = -1;

function answersUrl(index) {
  return "https://api.stackexchange.com/2.2/questions/" +  QUESTION_IDs.join(";") + "/answers?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + ANSWER_FILTER;
}


function getAnswers() {
  $.ajax({
    url: answersUrl(page++),
    method: "get",
    dataType: "jsonp",
    crossDomain: true,
    success: function (data) {
      answers.push.apply(answers, data.items);
      if (data.has_more) getAnswers();
      else process();
    }
  });
}

getAnswers();

var SIZE_REG = /\d+(?=[^\d&]*(?:<(?:s>((?!>).)*<\/s>|((?!>).)+>)[^\d&]*)*$)/;
var NUMBER_REG = /\d+/;
var LANGUAGE_REG = /^#*\s*([^\n,]+)(?=,)/;//

function shouldHaveHeading(a) {
  var pass = false;
  var lines = a.body_markdown.split("\n");
  try {
    pass |= /^#/.test(a.body_markdown);
    pass |= ["-", "="]
              .indexOf(lines[1][0]) > -1;
    pass &= LANGUAGE_REG.test(a.body_markdown);
  } catch (ex) {}
  return pass;
}

function shouldHaveScore(a) {
  var pass = false;
  try {
    pass |= SIZE_REG.test(a.body_markdown.split("\n")[0]);
  } catch (ex) {}
  if (!pass) console.log(a);
  return pass;
}

function getAuthorName(a) {
  return a.owner.display_name;
}

function getAuthorId(a) {
  return a.owner.user_id;
}

function process() {
  answers = answers.filter(shouldHaveScore)
                   .filter(shouldHaveHeading);
  answers.sort(function (a, b) {
    var aB = +(a.body_markdown.split("\n")[0].match(SIZE_REG) || [Infinity])[0],
        bB = +(b.body_markdown.split("\n")[0].match(SIZE_REG) || [Infinity])[0];
    return aB - bB
  });

  var users = {};
  answers.forEach(function (a) {
    var headline = a.body_markdown.split("\n")[0];
    var question = QUESTION_IDs.indexOf(a.question_id);
    var size = parseInt((headline.match(SIZE_REG)||[0])[0]);
    var language = headline.match(LANGUAGE_REG)[1];
    var user = getAuthorName(a);
    var userId = getAuthorId(a);
    if (!users[userId]) users[userId] = {name: user, nAnswer: 0, answers: []};
    if (!users[userId].answers[question]) {
      users[userId].answers[question] = {size: Infinity};
      users[userId].nAnswer++;
    }
    if (users[userId].answers[question].size > size) {
      users[userId].answers[question] = {size: size, link: a.share_link}
    }
  });
  
  
  var sortedUsers = [];
  for (var userId in users)
    if (users.hasOwnProperty(userId)) {
      var user = users[userId];
      user.score = 0;
      user.completedAll = true;
      for (var i = 0; i < QUESTION_IDs.length; ++i) {
        if (user.answers[i])
          user.score += user.answers[i].size;
        else
          user.completedAll = false;
      }
      sortedUsers.push(user);
    }  
  
  sortedUsers.sort(function (a, b) {
    if (a.nAnswer > b.nAnswer) return -1;
    if (b.nAnswer > a.nAnswer) return 1;
    return a.score - b.score;
  });
  
  var place = 1;
  for (var i = 0; i < sortedUsers.length; ++i) {
    var user = sortedUsers[i];
    var row = '<tr><td>'+ place++ +'.</td><td>'+user.name+'</td>';
    for (var j = 0; j < QUESTION_IDs.length; ++j) {
      var answer = user.answers[j];
      if (answer)
        row += '<td><a href="'+answer.link+'">'+answer.size+'</a></td>';
      else
        row += '<td class="missing"></td>';
    }
    row += '<td></td>';
    if (user.completedAll)
      row += '<td class="total">'+user.score+'</td>';
    else
      row += '<td class="total missing">'+user.score+'</td>';
    row += '</tr>';
    $("#users").append(row);
  }
}

body { text-align: left !important}

#leaderboard {
  width: 500px; 
}

#answer-list {
  padding: 10px;
  width: 290px;
  float: left;
}

#language-list {
  padding: 10px;
  width: 290px;
  float: left;
}

table thead {
  font-weight: bold;
}

table td {
  padding: 5px;
}

td.total {
  font-weight: bold;
  text-align: right;
}

td.missing {
  background: #bbbbbb;
}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
<link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b">
<div id="leaderboard">
  <h2>Leaderboard</h2>
  <p>
    Missing scores are shown as grey cells. A grey total indicates that the user has not participated in all challenges and is not eligible for the overall victory yet.
  </p>
  <table class="_user-list">
    <thead>
      <tr><td></td><td>User</td>
        <td><a href="https://codegolf.stackexchange.com/q/45302/8478">#1</a></td>
        <td><a href="https://codegolf.stackexchange.com/q/45447/8478">#2</a></td>
        <td><a href="https://codegolf.stackexchange.com/q/46991/8478">#3</a></td>
        <td><a href="https://codegolf.stackexchange.com/q/49394/8478">#4</a></td>
        <td><a href="https://codegolf.stackexchange.com/q/51222/8478">#5</a></td>
        <td><a href="https://codegolf.stackexchange.com/q/66319/8478">#6</a></td>
        <td><a href="https://codegolf.stackexchange.com/q/89621/8478">#7</a></td>
        <td><a href="https://codegolf.stackexchange.com/q/120472/8478">#8</a></td>
        <td></td><td>Total</td>
      </tr>
    </thead>
    <tbody id="users">

    </tbody>
  </table>
</div>
<table style="display: none">
  <tbody id="answer-template">
    <tr><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr>
  </tbody>
</table>
<table style="display: none">
  <tbody id="language-template">
    <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr>
  </tbody>
</table>

Dyalog APL, 25 24 ไบต์

ที่หนึ่งสำหรับโซลูชัน 25 ตัวอักษร: i{⊃a[⍺⍵]←a[⍵⍺]}¨?i←⌽⍳⍴a←⎕

                      a←⎕ ⍝ evaluated input, assign to "a"
                     ⍴a   ⍝ length
                    ⍳⍴a   ⍝ 1 2 .. length
                   ⌽⍳⍴a   ⍝ length .. 2 1
                 i←       ⍝ assign to "i"
                ?i        ⍝ random choices: (1..length)(1..length-1)..(1 2)(1)
i{            }¨?i        ⍝ for each index ⍺ and corresponding random choice ⍵
   a[⍺⍵]←a[⍵⍺]            ⍝ swap a[⍺] and a[⍵]
        ←                 ⍝ in Dyalog, assignment returns its right-hand side
  ⊃                       ⍝ first element, i.e. a[⍵]
                          ⍝ the result from {} is an array of all those a[⍵]

หลังจากการแปลงสมมูลบางอย่างข้างต้น:

i {}¨ ?i  ←→  i {}¨∘? i   ⍝ because A f∘g B ←→ A f g B
          ←→  {}¨∘?⍨ i    ⍝ because f⍨ B ←→ B f B

เราสามารถกำจัดการบ้านi←และบันทึกตัวละคร:

{⊃a[⍺⍵]←a[⍵⍺]}¨∘?⍨⌽⍳⍴a←⎕

รหัสเครื่อง 80386, 44 24 ไบต์

Hexdump ของรหัส:

60 8b fa 0f c7 f0 33 d2 f7 f1 49 8b 04 8f 87 04
97 89 04 8f 75 ed 61 c3

ขอบคุณ FUZxxl ใครแนะนำให้ใช้rdrandคำแนะนำ

นี่คือซอร์สโค้ด (สามารถคอมไพล์โดย Visual Studio):

__declspec(naked) void __fastcall shuffle(unsigned size, int array[])
{
    // fastcall convention:
    // ecx = size
    // edx = array
    _asm
    {
        pushad;             // save registers
        mov edi, edx;       // edi now points to the array

    myloop:
        rdrand eax;         // get a random number
        xor edx, edx;
        div ecx;            // edx = random index in the array

        dec ecx;            // count down
        mov eax, [edi + 4 * ecx];   // swap elements
        xchg eax, [edi + 4 * edx];  // swap elements
        mov [edi + 4 * ecx], eax;   // swap elements
        jnz myloop;

        popad;              // restore registers
        ret;
    }
}

อีกหนึ่งการดำเนินการของ Fisher-Yates การตีกอล์ฟส่วนใหญ่ทำได้โดยการส่งพารามิเตอร์ในการลงทะเบียน

Java, 88 101

การสับเปลี่ยนพื้นฐาน Fisher-Yates เป็นการหลอกลวง ฉันรู้สึกว่ามันจะใช้งานได้ทั่วไปที่นี่เนื่องจากมันใช้งานง่ายและรวดเร็ว มีวง / งานที่ได้รับการยัดเยียดที่นี่ แต่จริงๆแล้วก็ไม่ได้มากนักสำหรับเล่นกอล์ฟ มันสั้นโดยธรรมชาติ

void t(int[]s){for(int i=s.length,t,x;i>0;t=s[x*=Math.random()],s[x]=s[i],s[i]=t)x=i--;}

ด้วยการขึ้นบรรทัดใหม่:

void t(int[]s){
    for(int i=s.length,t,x;
        i>0;
        t=s[x*=Math.random()],
        s[x]=s[i],
        s[i]=t
    )
        x=i--;
}

s[]ฟืนี้ในสถานที่การปรับเปลี่ยนอาร์เรย์เดิม โปรแกรมทดสอบ:

public class Shuffle {
    public static void main(String[] args) {
        int[] a = {1,2,3,4,5,6,7,8,9};
        new Shuffle().t(a);
        for(int b:a)
            System.out.print(b+" ");
    }
    void t(int[]s){for(int i=s.length,t,x;i>0;t=s[x*=Math.random()],s[x]=s[i],s[i]=t)x=i--;}
}

Python 2, 86 ไบต์

from random import*
def S(L):i=len(L);exec"i-=1;j=randint(0,i);L[i],L[j]=L[j],L[i];"*i

นี่คือฟังก์ชั่นที่สับเปลี่ยนอาร์เรย์โดยไม่ส่งคืนโดยใช้การสับเปลี่ยน Fisher-Yatesโดยตรง รับตัวเลขสุ่มจาก Python แพง ...

ขอบคุณ @xnor และ @colevk สำหรับเคล็ดลับ

J, 45 44 ตัวอักษร

นี่เป็นเรื่องยุ่งยาก

<@({.,?@#@}.({,<^:3@[{])}.)&>/@(<"0@i.@#,<)

นี่คือคำอธิบาย:

1. # yการนับของy, ที่อยู่, yจำนวนขององค์ประกอบใน
2. ?@# y: จำนวนสุ่มกระจายอย่างสม่ำเสมอในช่วงจากไป1(#y)-1
3. x { y: รายการจาก ที่ดัชนีyx
4. (<<<x) { y: รายการทั้งหมดยกเว้นรายการที่ดัชนีในxy
5. x , y: y ต่อท้ายxไป
6. x ({ , <^:3@[ { ]) y: รายการที่ดัชนีxในyจากนั้นรายการอื่น ๆ ทั้งหมด
7. (?@# ({ , <^:3@[ { ]) ]) yสุ่มจากyนั้นรายการอื่น ๆ ทั้งหมด
8. x {. y: ครั้งแรกที่xรายการนำมาyจาก
9. x }. y: ครั้งแรกxรายการปรับตัวลดลงyจาก
10. x ({. , }.) y: xรายการแรกที่นำมาจากyนั้นxรายการแรกที่ส่งมาจากy
11. x ({. , (?@# ({ , <^:3@[ { ]) ])@}.) y: xรายการแรกที่นำมาจากyนั้นxรายการแรกจากการyประมวลผลเช่นเดียวกับในหมายเลข 7
12. x ({. , ?@#@}. ({ , <^:3@[ { ]) }.) y: สิ่งเดียวกันที่มีการดึงลงเพื่อบันทึกอักขระหนึ่งตัว
13. u/ y: u แทรกyระหว่างรายการของ
14. < y: บรรจุกล่องy
15. <"0 y: รายการของแต่ละชนิดบรรจุกล่องy
16. i. y: จำนวนเต็มจากไป0y - 1
17. i.@# y: จำนวนเต็มจากไป0(#y) - 1
18. (<"0@i.@# , <) y: จำนวนเต็มจาก0ถึง(#y) - 1แต่ละกล่องแล้วyในกล่องเดียว นี่เป็นสิ่งจำเป็นเนื่องจากอาร์เรย์ใน J มีลักษณะเหมือนกัน กล่องจะซ่อนรูปร่างของเนื้อหา
19. x u&v y: (v x) u (v y)เหมือน
20. > y: y เปิดนั่นคือไม่มีกล่อง
21. x ({. , ?@#@}. ({ , <^:3@[ { ]) }.)&> y วลีจากหมายเลข 12 ถูกนำไปใช้กับอาร์กิวเมนต์ที่ไม่มีกล่อง
22. ({. , ?@#@}. ({ , <^:3@[ { ]) }.)&>/ yวลีจากหมายเลข 21 แทรกyระหว่างรายการ
23. ({. , ?@#@}. ({ , <^:3@[ { ]) }.)&>/@(<"0@i.@# , <) yวลีจากหมายเลข 22 นำไปใช้กับผลของวลีจากหมายเลข 18 yหรือมีการเปลี่ยนแปลงเครื่องแบบของรายการของ

Pyth, 25 ไบต์

ทดสอบที่นี่

อีกหนึ่งการดำเนินการของ Fisher-Yates โดยพื้นฐานแล้วเป็นเช่นเดียวกับโซลูชั่น Python ของ @ Sp3000 ซึ่งมีหน่วยเป็น pyth

FNrlQ1KONJ@QN XXQN@QKKJ)Q

ขอบคุณ @Jakube สำหรับเคล็ดลับการแลกเปลี่ยน

<implicit>    Q=input()
FNrlQ1        For N in len(Q) to 1, only goes len Q-1 because how range implemented in pyth
 KON          K = random int 0-N
 J@QN         J=Q[N]
 <space>      Suppress print
 XXQN@QKKJ    Swap K and J
)             End for
Q             Print Q

Perl, 68 56 44

เช่นเดียวกับโซลูชันอื่น ๆ นี้ใช้อัลกอริทึมFisher-Yates

ใช้ความคิดเห็นของnutki , 12 ตัวอักษรจะถูกบันทึกโดยใช้$_แทน$iและดำเนินการในดัชนีอาร์เรย์

44:

sub f{@_[$_,$j]=@_[$j=rand$_,--$_]for 1..@_}

56:

sub f{$i=@_;$j=int(rand$i),@_[$i,$j]=@_[$j,$i]while$i--}

นี่คือ codegolf ตัวแรกของฉัน

C, 63 61 60 ไบต์

i,t;s(a,m)int*a;{for(;m;a[m]=t)t=a[i=rand()%m--],a[i]=a[m];}

Fischer-Yates ที่นำอาร์เรย์ที่ได้รับมาจัดเรียงให้ตรง รวบรวมและเชื่อมโยงได้อย่างสมบูรณ์แบบด้วยคอมไพเลอร์ visual Studio (vs2013, ยังไม่ได้ทดสอบเวอร์ชันอื่น) และ Intel Compiler s(int array[], int length)ดีมองลายเซ็นของฟังก์ชั่น ฉันประทับใจอย่างแท้จริงฉันเอาชนะ Python และ Ruby

สิ่งนี้ถือว่าsrand()มีการเรียกและใช้แรนด์ () อย่างถูกต้อง แต่ฉันเชื่อว่ากฎนี้อนุญาตให้:

You may assume that any built-in random number method runs in O(1) and is perfectly uniform over the requested interval

เวอร์ชันที่มีรูปแบบสวยงาม:

index, temp;
shuffle(array, length) int* array;  {
    for(;length; array[index] = temp)
        index = rand() % length--,
        temp = array[length],
        array[length] = array[index];
}

อ็อกเทฟ, 88 77 ไบต์

function s=r(s)for(i=length(s):-1:1)t=s(x=randi(i));s(x)=s(i);s(i)=t;end;end

การใช้งาน Fisher-Yates อื่น ... ควรตรงไปตรงมามากถ้าฉันเพิ่มการขึ้นบรรทัดใหม่และการเว้นวรรคบรรทัดปกติ:

function s=r(s)
  for(i=length(s):-1:1) # Counting down from i to 1
    t=s(x=randi(i));    # randi is builtin number generator for an int from 0 to i
    s(x)=s(i);
    s(i)=t;
  end
end

คำหลัก "สิ้นสุด" ฆ่าคะแนนกอล์ฟที่นี่อย่างน่าเสียดาย เฮ้ฉันสามารถใช้ "สิ้นสุด" แทน "endfor" และ "endfunction"!

Java 8, 77

(x)->{for(int i=x.length,j,t;;t=x[j*=Math.random()],x[j]=x[i],x[i]=t)j=i--;};

มันเป็นการสละแลมบ์ดาint[]และการคืนโมฆะ ความพยายามครั้งแรกของฉันดูเหมือนจะไม่น่าสนใจมากฉันจึงตัดสินใจออกโดยโยนข้อยกเว้น

โปรแกรมทดสอบ:

interface shuff {
    void shuff(int[] x);
}
class Ideone
{
    public static void main (String[] args) throws java.lang.Exception
    {
        shuff s = (x)->{for(int i=x.length,j,t;;t=x[j*=Math.random()],x[j]=x[i],x[i]=t)j=i--;};
        int[] x = {3, 9, 2, 93, 32, 39, 4, 5, 5, 5, 6, 0};
        try {
            s.shuff(x);
        } catch(ArrayIndexOutOfBoundsException _) {}
        for(int a:x) System.out.println(a);
    }
}

Golflua, 37

จะรัน Golflua ได้อย่างไร?

~@i=1,#X`r=M.r(i)X[i],X[r]=X[r],X[i]$

อินพุตถูกจัดเตรียมเป็นตารางในตัวแปร X ตารางถูกสับเปลี่ยน

ตัวอย่างการใช้งาน:

> X={0,-45,8,11,2}
> ~@i=1,#X`r=M.r(i)X[i],X[r]=X[r],X[i]$
> w(T.u(X))
-45 0 8 11 2

R, 79 ไบต์

f=function(x){n=length(x);for(i in 1:n){j=sample(i:n,1);x[c(i,j)]=x[c(j,i)]};x}

นี่เป็นการดำเนินการที่ตรงไปตรงมาของการสับเปลี่ยน Fisher-Yates ฟังก์ชัน R sampleดึงตัวอย่างสุ่มอย่างง่ายของขนาดที่กำหนดจากเวกเตอร์ที่กำหนดด้วยความน่าจะเป็นที่เท่ากัน นี่เรากำลังวาดภาพตัวอย่างที่สุ่มจากขนาด 1 ที่ซ้ำกันจากจำนวนเต็มi, ... n, ตามที่ระบุไว้ในคำถามนี้สามารถสันนิษฐานได้ว่าเป็น O (1) ดังนั้นในการดำเนินการทั้งหมดนี้ควรเป็น O (N)

Matlab, 67

ยังดำเนินการ Fisher-Yates

a=input('');n=numel(a);for i=1:n;k=randi(i);a([i,k])=a([k,i]);end;a

ฉันคิดว่ามันแย่เกินไปที่ฉันไม่สามารถใช้randpermฟังก์ชันของ Matlab ได้ แต่หลังจากที่เล่นซอไปรอบ ๆ ฉันคิดว่าฉันอาจจะดูที่มาของrandpermการดูว่ามันทำออกมาได้อย่างไรและฉันรู้สึกประหลาดใจเมื่อเห็นว่ามีเพียงหนึ่งบรรทัด: [~,p] = sort(rand(1,n))=)

Perl, 44

sub f{($_[$x],$_)=($_,$_[$x=rand++$i])for@_}

อีก Perl ใน 44 ตัวอักษร ตัวอย่างการใช้:

@x=(1..9);f(@x);print@x

Mathematica, 82 90 83 93 ไบต์

หมายเหตุ: รูปแบบนี้การสับเปลี่ยน Fisher-Yates เป็นวิธีการแก้ปัญหาจริงของ Martin Büttnerโดยมีการตัดโค้ดบางส่วนโดย alephalpha sเป็นอาร์เรย์อินพุต ไม่มีอะไรแฟนซี - สดใส แต่บางครั้งสิ่งที่ง่ายที่สุดที่เข้าใจยาก

f@s_:=(a=s;m=Length@a;Do[t=a[[r=RandomInteger@{1,m-1}]];a[[r]]=a[[m]]; a[[m]]=t,{n,1,m-1}];a)

Ruby, 57 ไบต์

->a{a.size.times{|i|j=rand(i+1);a[i],a[j]=a[j],a[i]};p a}

อินพุต (เป็นฟังก์ชั่นแลมบ์ดา):

f.([1,2,3,4,5])

เอาท์พุท:

[2, 1, 4, 3, 5]

TI-BASIC, 46 ไบต์

For(X,dim(L1),2,-1:randInt(1,X→Y:L1(X→Z:L1(Y→L1(X:Z→L1(Y:L1

1   111   2  1111112       1111112 111112 1112 111112 1112

แหล่งที่มาสำหรับจำนวนไบต์

K, 31 ตัวอักษร

f:{{l[i:x,1?x]:l@|i}'|!#l::x;l}

ไม่สั้นพอ ๆ กับที่ฉันใส่ก่อนหน้านี้ (ซึ่งถูกตัดสิทธิ์) ... โอ้ดี

มันเป็นพื้นฐานการสับเปลี่ยน Fisher-Yates นี้ถูกสร้างขึ้นมีจำนวนมากของความช่วยเหลือจากโคนารายชื่อผู้รับจดหมาย

JavaScript (ES6), 66

ฟังก์ชันนี้สลับอาร์เรย์ในตำแหน่ง นอกจากนี้ยังส่งกลับอาร์เรย์ผลพลอยได้ที่ไม่ได้เป็นเอาท์พุทสับและไม่ต้องพิจารณา

F=a=>a.map((v,i)=>a[a[i]=a[j=0|i+Math.random()*(a.length-i)],j]=v)

MATL , 16 ไบต์

XH`HnYr&)XHxvHHn

ลองออนไลน์!

Fisher-Yates ใน MATL เกือบหนึ่งในสามของโปรแกรมนี้อุทิศให้กับจดหมายHซึ่งสอดคล้องกับฟังก์ชั่นคลิปบอร์ดใน MATL

โดยทั่วไปจะจัดHเก็บรายการที่ไม่ได้ใช้งานจากอินพุตในขณะที่สแต็คคอยติดตามรายการที่สับ

Japt 12

rÈiMqZÄ Y}[]

ลองมัน!

-10 (ประมาณครึ่งหนึ่ง) ขอบคุณ @Shaggy!

ฉันอยากลองเล่นกอล์ฟภาษาและล่าม Japt มีเอกสารที่ดีและวิธีการทดลองใช้ในเบราว์เซอร์

ด้านล่างเป็นกลยุทธ์ที่ฉันทำ:

• ลดการป้อนข้อมูลด้วยอาร์เรย์ว่าง
• ในแต่ละขั้นตอนให้ค้นหาช่องสุ่มเพื่อแทรกองค์ประกอบปัจจุบัน

Javascript ES6, 69

a=>{m=a.length;while(m)[a[m],a[i]]=[a[i=~~(Math.random()*m--)],a[m]]}

มันคือ Fisher-Yates

PS: สามารถทดสอบได้ใน Firefox

Pyth, 27 ไบต์

ทดสอบที่นี่

FkQJOhlYaY?@YtJJkIJ XYtJk;Y

นี่คือการดำเนินการที่เพิ่มขึ้น Fisher-Yates สับเปลี่ยนกล่าวถึงสองที่นี่

Haskell, 170

import System.Random
import Data.Array.IO
s a=do(_,n)<-getBounds a;sequence$map(\i->do j<-randomRIO(i,n);p<-a%i;q<-a%j;writeArray a j p;return q)[1..n]where(%)=readArray

อีกวิธี Fisher-Yates แรงบันดาลใจจากอัลกอริทึมที่https://wiki.haskell.org/Random_shuffle

s เป็นฟังก์ชั่นที่มีลายเซ็นต์: IOArray Int a -> IO [a]

CJam - 30

q~_,,W%{_I=I)mr:J2$=@I@tJ@t}fI

ลองที่http://cjam.aditsu.net/

อินพุตตัวอย่าง: [10 20 30 40 50]
ตัวอย่างผลลัพธ์: 3020401050(เพิ่ม a pท้ายรหัสเพื่อพิมพ์สวย)

หากรหัสได้รับอนุญาตให้นำเข้าจากสแต็ค (เช่นฟังก์ชั่น) แล้วตัวละคร 2 ตัวแรกสามารถลบออกได้ลดขนาดถึง 28

คำอธิบาย:

รหัสยาวเกินกว่าที่ฉันคาดไว้เนื่องจากไม่มีตัวดำเนินการ "swap" สำหรับอาร์เรย์
(จะนำมาใช้ในภายหลัง: p)

q~            read and evaluate the input (let's call the array "A")
_,,           make an array [0 1 2 ... N-1] where N is the size of A
W%            reverse the array, obtaining [N-1 ... 2 1 0]
{…}fI         for I in this array
    _I=       push A[I]
    I)mr:J    push a random number from 0 to I (inclusive) and store it in J
              stack: A, A[I], J
    2$=       get A[J]
    @I@t      set A[I] = A[J]
              stack: former A[I], A
    J@t       set A[J] = former A[I]

JavaScript (ES 6), 61

S=a=>(a.map((c,i)=>(a[i]=a[j=Math.random()*++i|0],a[j]=c)),a)

คุณสามารถทดสอบได้ที่นี่เพียงเพิ่มบรรทัดที่ระบุshuffle = S(Firefox เท่านั้น)

STATA, 161

di _r(s)
set ob wordcount($s)
token $s
g a=0
foreach x in $s{
gl j=floor(runiform()*_n)+1
replace a=`$j' if word($s,_n)=`x'
replace a=`x' if word($s,_n)=`$j'
}
l

ต้องการอินพุตเป็นตัวเลขคั่นด้วยช่องว่าง ฉันสามารถลบส่วนหัวและหมายเลขการสังเกตออกจากผลลัพธ์ได้หากคุณต้องการ แต่ไม่เช่นนั้นจะสั้นกว่า

Java, 93 ไบต์

a->{for(int b=0,c,d=0,e=a.length;b<e;c=a[b],a[b]=a[d],a[d]=c,b++,d=b)d+=Math.random()*(e-b);}

ตัวอย่างการใช้งาน: http://ideone.com/RqSMnZ

SQF, 91 ไบต์

params["i"];{n=floor random count i;i set[_forEachIndex,i select n];i set[n,_x]}forEach i;i

Perl, 41 ไบต์

sub f{push@b,splice@_,rand@_,1while@_;@b}

ลองออนไลน์!