Sebagai lelucon kecil di kantor seseorang menginginkan sebuah skrip yang secara acak mengambil nama, dan mengatakan orang itu akan membuat minuman.

Sebut saja orang-orang seperti John, Jeff, Emma, ​​Steve dan Julie.

Saya pikir itu akan lucu untuk membuat skrip yang tampak acak secara sekilas, tetapi sebenarnya selalu memberikan orang yang sama sebagai output (Terserah Anda yang Anda pilih).

Jawaban dengan suara terbanyak menang setelah seminggu

Dan pemenangnya adalah....

Paul R dengan (saat ini) 158 suara.

Jawabannya sangat bagus, dan jika ada orang lain yang memiliki ide lain yang belum diposting, silakan tambahkan, saya suka membacanya.

C

Sangat penting untuk memutuskan siapa yang membeli secepat mungkin, agar tidak membuang waktu minum yang berharga - maka C adalah pilihan yang jelas untuk mendapatkan kinerja maksimal:

#include <stdio.h>
#include <stdlib.h>
#include <time.h>

int main(void)
{
    const char *buyer;
    int n;

    srand(time(NULL)); // make sure we get a good random seed to make things fair !
    n = rand();
    switch (n % 5)
    {
        case 0: buyer = "John";
        case 1: buyer = "Jeff";
        case 2: buyer = "Emma";
        case 3: buyer = "Steve";
        case 4: buyer = "Julie";
    }
    printf("The person who is buying the drinks today is: %s !!!\n", buyer);
    return 0;
}

Penjelasan:

Ini akan bekerja dengan baik jika ada break;setelah setiap kasus dalam pernyataan switch. Namun demikian, setiap kasing "jatuh" ke yang berikutnya, sehingga Julie yang malang selalu membeli minuman.

PHP

Tidak bisa melepaskan ini, jadi ini yang lain:

$f = fopen('/dev/random','r');
$s = fread($f, 4);
fclose($f);

$names = ['John', 'Jeff', 'Emma', 'Steve', 'Julie'];

echo $names[$s % count($names)];

Ini sebenarnya tidak dijamin untuk menghasilkan john, tetapi kemungkinannya sangat bagus. PHP akan dengan senang hati mengambil apa pun yang ditawarkan oleh / dev / random untuk melihat bahwa itu (mungkin) tidak dapat menguraikannya dan menghasilkan angka 0 yang sangat masuk akal. Setelah semua, mengingatkan programmer untuk kesalahan potensial dianggap dosa mematikan di PHP.

Haskell

Terlalu transparan jika selalu mengembalikan nama yang sama jadi coba yang berikut ini

import Control.Monad
import System.Exit
import Control.Concurrent
import Control.Concurrent.MVar


data Person = John | Jeff | Emma | Steve | Julie deriving (Show, Enum)

next Julie = John
next p = succ p

rotate :: MVar Person -> IO ()
rotate mp = modifyMVar_ mp (return . next) >> rotate mp

main :: IO ()
main = do
    mp <- newMVar John
    forkIO $ rotate mp
    putStrLn "Shuffling"
    readMVar mp >>= print
    exitWith ExitSuccess

Setiap kali Anda menginginkannya acak:

[~]$ runghc prog.hs
Shuffling
Steve

[~]$ runghc prog.hs
Shuffling
Julie

Dan untuk target malang Anda:

[~]$ runhugs prog.hs
Shuffling
John

[~]$ runhugs prog.hs
Shuffling
John

Pelukan hanya menerapkan multitasking kooperatif, sehingga rotateutas tidak akan pernah berjalan

Bash - kesederhanaan maksimum

Contoh yang sangat sederhana - mari kita hindari masalah dengan melakukannya dengan cara buku teks. Jangan lupa untuk menyemai generator dari jam sistem untuk hasil yang bagus!

#!/bin/bash

names=(John Jeff Emma Steve Julie)   # Create an array with the list of names
RANDOM=$SECONDS                      # Seed the random generator with seconds since epoch
number=$((RANDOM % 5))               # Pick a number from 0 to 4
echo ${names[number]}                # Pick a name

Ini bergantung pada pengguna yang tidak tahu apa $SECONDSsebenarnya yang dibangun; ia mengembalikan jumlah detik sejak shell saat ini dimulai. Seperti dalam skrip, shell selalu dimulai nol detik yang lalu, jadi generator selalu diunggulkan 0dan Julie selalu membeli bir.

Bonus:

Yang ini bertahan dengan cukup cermat; Jika Anda memasukkan kode yang sama pada commandline alih-alih dalam skrip, itu akan memberikan hasil acak, karena $SECONDSakan mengembalikan lama waktu shell interaktif pengguna telah berjalan.

C #

using System;
using System.Linq;

namespace PCCG {
    class PCCG31836 {
        public static void Main() {
            var names = new string[]{ "John", "Jeff", "Emma", "Steve", "Julie" };
            var rng = new Random();
            names.OrderBy(name => rng.Next());
            Console.WriteLine(names[0]);
        }
    }
}

Ini mungkin tidak menipu orang-orang yang terbiasa dengan .Net API, tetapi orang-orang yang tidak mengetahuinya mungkin percaya bahwa OrderBymemodifikasi objek yang Anda panggil, dan itu adalah kesalahan yang masuk akal untuk dibuat oleh pemula.

PowerShell

$names = @{0='John'; 1='Jeff'; 2='Emma'; 3='Steve'; 4='Julie'}
$id = random -maximum $names.Length
$names[$id]

Ini akan selalu ditampilkan John.

$namesadalah System.Collections.Hashtableyang tidak memiliki Lengthproperti. Dimulai dengan PowerShell v3, Length(dan juga Count) dapat digunakan sebagai properti pada objek apa pun. Jika suatu objek tidak memiliki properti, itu akan kembali 1ketika objek itu tidak nol, kalau tidak itu akan kembali 0. Jadi dalam jawaban saya, $names.Lengthevaluasi sebagai 1, dan random -maximum 1selalu mengembalikan 0 karena maksimum eksklusif.

Q

show rand `John`Jeff`Emma`Steve`Julie;
exit 0;

Q selalu menginisialisasi seed number acaknya dengan nilai yang sama.

Perl

use strict;

my @people = qw/John Jeff Emma Steve Julie/;
my @index = int(rand() * 5);

print "Person @index is buying: $people[@index]\n";

Cetakan: Person X is buying: Jeff(di mana X adalah dari 0-4)

Menyalahgunakan konteks skalar sedikit. @index = int(rand() * 5)menempatkan integer acak dari 0 - 4 di posisi ke-0 dari @indexdaftar. Saat mencetak array, ia benar mencetak bilangan bulat acak di @index, tetapi ketika menggunakan sebagai indeks array $people[@index], @index menggunakan konteks skalar, memberikan nilai ukuran daftar, yaitu 1.

Cukup menarik, @people[@index]membuatnya indeks dengan benar.

Yang cukup menarik @people[@index]adalah potongan hash di Perl, jadi @indexdievaluasi dalam konteks daftar; dalam hal ini, ini adalah daftar entri tunggal dan itulah sebabnya ia bekerja dengan benar

ECMAScript

// Randomly pick a person on only one line!
var people = [('John', 'Jeff', 'Emma', 'Steve', 'Julie')];

console.log(people[new Date() % people.length | 0]);

Itu selalu memilih Julie.

Memiliki tanda kurung di dalam tanda kurung siku, dan operator koma mengembalikan nilai operan yang tepat.
Ini juga sangat mudah untuk dilewatkan. Saya telah melewatkannya sebelumnya dalam kode nyata .

C #

using System;

namespace LetsTroll {
    class Program {
        static void Main() {
            var names = new string[]{ "John", "Jeff", "Emma", "Steve", "Julie" };
            var random = new Random(5).NextDouble();
            var id = (int)Math.Floor(random);
            Console.WriteLine(names[id]);
        }
    }
}

Caranya adalah, metode ini new Random().NextDouble()mengembalikan dua kali lipat antara 0 dan 1. Dengan menerapkan Math.Floor()nilai ini, itu akan selalu menjadi 0.

C #

var names = new string[] {"John", "Jeff", "Emma", "Steve", "Julie"};
var guidBasedSeed = BitConverter.ToInt32(new Guid().ToByteArray(), 0);
var prng = new Random(guidBasedSeed);
var rn = (int)prng.Next(0, names.Length);
Console.WriteLine(names[rn]);

Petunjuk:

Hasilkan benih dari GUID. Panduan memiliki 4 × 10-10 kemungkinan tabrakan. Super acak.

Menjawab:

Setidaknya saat Anda menggunakan Guid.NewGuid(), whoops! (Cara licik untuk membuat benih selalu 0). Juga tidak berguna (int) untuk penyesatan.

bash / coreutils

Ini diambil hampir kata demi kata dari naskah yang saya tulis untuk tujuan yang sama.

#!/bin/bash
# Sort names in random order and print the first
printf '%s\n' John Jeff Emma Steve Julie | sort -r | head -1

Bahkan lupa menggunakan huruf besar R adalah kesalahan yang sesekali saya buat dalam skrip kehidupan nyata.

Rubi

names = ["John", "Jeff", "Emma", "Steve", "Julie"]

puts names.sort{|x| rand()}.first

Ini akan bekerja dengan benar sort_by, tetapi sortmengharapkan fungsi perbandingan yang berfungsi seperti <=>. rand () hasilnya akan selalu positif, sehingga akan selalu menghasilkan hasil yang setara asalkan sortalgoritma implementasi Ruby Anda bersifat deterministik. Ruby 1.9.3 saya selalu menampilkan Julie.

Rubi

names = ["John", "Jeff", "Emma", "Steve", "Julie"]

puts names[rand() % 5]

rand() tanpa argumen menghasilkan float acak antara 0 dan 1. Jadi modulo 5 tidak melakukan apa-apa, dan ketika mengiris menjadi array dengan argumen float, Ruby hanya membulatkannya ke bawah, jadi ini selalu mengembalikan John.

Perl

three srands akan membuatnya tiga kali lebih acak!

#!perl
use feature 'say';

sub random_person {
    my ($aref_people) = @_;
    srand; srand; srand;
    return $aref_people->[$RANDOM % scalar @$aref_people];
}

my @people = qw/John Jeff Emma Steve Julie/;
my $person = random_person(\@people);

say "$person makes next round of drinks!";

penjelasan

tidak ada $ ACAK di perl, ini adalah variabel yang tidak ditentukan. kode akan selalu mengembalikan elemen pertama dari daftar - minuman di John :)

sunting:

setelah melalui kode, salah satu dari lima orang telah memutuskan untuk memperbaiki kesalahan yang jelas, menghasilkan program berikut:

#!perl
use feature 'say';

sub random_person {
    my ($aref_people) = @_;
    return $aref_people->[rand $#$aref_people];
}

my @people = qw/John Jeff Emma Steve Julie/;
my $person = random_person(\@people);

say "$person buys next round of drinks!";

dapatkah Anda memberi tahu siapa yang melakukannya hanya dengan melihat kode?

penjelasan:

di Perl, $#arraymengembalikan indeks elemen terakhir; karena array berbasis nol, diberikan referensi ke array dengan lima elemen, $#$aref_peopleakan menjadi 4.
randmengembalikan angka acak lebih besar atau sama dengan nol dan kurang dari parameternya, sehingga tidak akan pernah kembali 4, yang secara efektif berarti Julie tidak akan pernah membeli minuman :)

Python

Semua orang tahu bahwa Anda tidak bisa mempercayai keacakan dalam ruang sampel sekecil ini; untuk membuatnya benar-benar acak, saya telah meninggalkan metode usang memilih nama dari daftar, dan sebaliknya program saya akan mengeja nama yang sepenuhnya acak. Karena sebagian besar nama di kantor memiliki 4 huruf, kami akan setuju untuk itu.

import random

def CHR (n):
    # Just easily convert a number between 0 and 25 into a corresponding letter
    return chr(n+ord('A'))

# Seed the RNG with a large prime number. And multiply it by 2 for good measure.
random.seed (86117*2)

# Now, let's see what COMPLETELY RANDOM name will be spelled out!
totallyRandomName = ''
for i in range(4) :
    totallyRandomName += CHR(int(random.random()*26))

print (totallyRandomName)

Secara alami, saya melakukan beberapa persiapan untuk memastikan saya memilih benih yang tepat.

C

#include <stdio.h>
#include <stdlib.h>
#include <time.h>

int main(void)
{
char *name[]={"John", "Jeff", "Emma", "Steeve", "Julie"};

int i;
int n=rand()%10000;
int r=3;

for (i=0; i<10000+n; i++) // random number of iteration
    {
    r=(r*r)%10000; // my own PRNG (square and mod)
    }

printf("%s", name[r%5] );
}

Maaf, Jeff!

Setelah beberapa iterasi r == 1 mod 5, karena matematika. Moralitas: jangan menulis PRNG Anda sendiri jika Anda buruk dalam matematika. :)

C ++ x11

#include <vector>
#include <iostream>

int main () {
  std::srand(time(NULL));
  std::vector<std::string> choice{("jen","moss","roy")};
  std::cout << choice[rand()%choice.size()] << std::endl;
}

Ukuran vektor sebenarnya 1 karena tanda kurung yang digunakan dalam daftar penginisialisasi. Operator koma akan membuang semua nama dan mengembalikan yang terakhir, maka pembeli selalu Roy.

Scala

Saya tahu pengguna saya akan skeptis, jadi saya telah menyertakan bukti bahwa keacakan saya benar-benar adil!

object DrinkChooser {

  def main(args: Array[String]): Unit = {
    proveRandomness()
    val names = List("John","Jeff","Emma","Steve","Julie")
    val buyer = names(randomChoice(names.size))
    println(s"$buyer will buy the drinks this time!")
  }

  def proveRandomness(): Unit = {
    val trials = 10000
    val n = 4
    val choices = for (_ <- 1 to 10000) yield randomChoice(n)
    (choices groupBy(identity)).toList.sortBy(_._1) foreach { case (a, x) =>
      println(a + " chosen " + (x.size * 100.0 / trials) + "%")
    }
  }

  def randomChoice(n: Int): Int = {
    var x = 1
    for (i <- 1 to 1000) { // don't trust random, add in more randomness!
      x = (x * randomInt(1, n)) % (n + 1)
    }
    x
  }

  // random int between min and max inclusive
  def randomInt(min: Int, max: Int) = {
    new scala.util.Random().nextInt(max - min + 1) + min
  }

}

Satu contoh dijalankan:

1 chosen 25.31%
2 chosen 24.46%
3 chosen 24.83%
4 chosen 25.4%
John will buy the drinks this time!

Kecuali orang lain sangat beruntung, John akan selalu membeli minuman.

"Bukti" keacakan bergantung pada fakta yang rand(1, 4) * rand(1, 4) % 5masih merata antara 1 dan 4, inklusif. Tapi rand(1, 5) * rand(1, 5) % 6merosot. Ada kemungkinan Anda mendapatkan 0, yang kemudian akan membuat hasil akhir 0 terlepas dari sisa "keacakan".

Javascript (dengan Underscore.js )

Karena javascript tidak memiliki shuffle bawaan, kami akan menggunakan Underscore.js

var people = ['John', 'Jeff', 'Emma', 'Steve', 'Julie'];
_.shuffle(people); // Shuffle the people array
console.log("Next round is on", people[0]);

_.shuffle mengembalikan array yang dikocok, itu tidak berubah di tempat sebagai Array.prototype.sort () , maaf John

JavaScript

Percobaan kedua, yang ini sedikit rumit:

var getRandomEntry = function(args){
    return args[Math.floor(Math.random() * arguments.length)]; 
}

alert(getRandomEntry(["peter","julie","samantha","eddie","mark"]));

The argumentsvariabel lokal dapat diakses untuk fungsi dan sebuah array dari semua argumen dilewatkan ke fungsi. Dengan menggunakan penamaan sederhana dan meneruskan dalam array ke fungsi itu sendiri, Anda dapat menipu bahwa kita tidak mengambil panjang array, tetapi pada kenyataannya panjang daftar argumen (yaitu 1). Ini bisa lebih baik dieksekusi dengan menggunakan karakter khusus atau jenis font.

C ++

Agar adil kita harus menjalankan banyak, banyak cobaan dan memilih siapa yang paling sering dipilih.

#include <stdio.h>
#include <stdlib.h>
#include <time.h>
#include <map>

static const char *names[] = { "John", "Jeff", "Emma", "Steve", "Julie" };

int main() {
    srand(time(NULL));
    std::map<int, int> counts;

    // run 2^31 trials to ensure we eliminate any biases in rand()
    for (int i = 0; i < (1<<31); i++) {
        counts[rand() % (sizeof(names)/sizeof(*names))]++;
    }

    // pick the winner by whomever has the most random votes
    int winner = 0;
    for (std::map<int, int>::const_iterator iter = counts.begin(); iter != counts.end(); ++iter) {
        if (iter->second > counts[winner]) {
            winner = iter->first;
        }
    }

    printf("%s\n", names[winner % (sizeof(names)/sizeof(*names))]);
}

Apa nilainya 1<<31? Maaf, John.

T-SQL (2008+)

SELECT TOP 1 name
FROM
 (VALUES('John'),('Jeff'),('Emma'),('Steve'),('Julie')) tbl(name)
ORDER BY RAND()

Penjelasan:

Di MS SQL Server, RAND()hanya mengevaluasi sekali per eksekusi. Setiap nama selalu mendapat nomor yang sama, meninggalkan pesanan awal. John yang pertama. Menyebalkan untuk John.

Perbaikan yang disarankan:

T-SQL dapat menghasilkan kualitas acak dengan angka acak per baris RAND(CHECKSUM(NEWID())).

Lua

buyer={'John', 'Jeff', 'Emma', 'Steve', 'Julie'}
   -- use clock to set random seed
math.randomseed(os.clock())
   -- pick a random number between 1 and 5
i=math.random(5)
io.write("Today's buyer is ",buyer[i],".\n")

os.clock()adalah untuk tujuan waktu, os.time()adalah apa yang harus digunakan math.randomseeduntuk RNG yang baik. Sayangnya, Julie selalu membeli (setidaknya di komputer saya).

Idiomatik C ++ 11

Ketika minuman terlibat, sangat penting untuk mendapatkan informasi terbaru tentang standar dan gaya pengkodean terbaru; ini adalah contoh yang bagus dari pemilih nama C ++ 11 yang sangat efisien dan sesuai idiom.

Ini diunggulkan dari sistem jam, dan output benih bersama dengan nama untuk verifikasi setiap kali.

#include <vector>
#include <chrono>
#include <random>
#include <iostream>

auto main()->int {
  std::vector<std::string> names;           // storage for the names
  names.reserve(5);                         // always reserve ahead, for top performance
  names.emplace_back("John");               // emplace instead of push to avoid copies
  names.emplace_back("Jeff");
  names.emplace_back("Emma");
  names.emplace_back("Steve");
  names.emplace_back("Julie");

  std::mt19937_64 engine;                   // make sure we use a high quality RNG engine
  auto seed((engine, std::chrono::system_clock::now().time_since_epoch().count()));  // seed from clock
  std::uniform_int_distribution<unsigned> dist(0, names.size() - 1);     // distribute linearly
  auto number(dist(engine));                // pick a number corresponding to a name
  std::string name(names.at(number));       // look up the name by number
  std::cout << "Seed: " << seed << ", name: " << name << std::endl;  // output the name & seed
  return EXIT_SUCCESS;                      // don't forget to exit politely
}

Coba ini langsung: http://ideone.com/KOet5H

Ok jadi ini sebenarnya kode yang cukup bagus secara keseluruhan; ada banyak ikan haring merah untuk membuat Anda melihat terlalu dekat pada kode untuk melihat yang jelas - bahwa RNG tidak pernah benar-benar diunggulkan :) Dalam hal seedini hanyalah bilangan bulat, dan sementara itu sepertinya enginedilewatkan sebagai parameter ke fungsi seeding, itu sebenarnya hanya diabaikan. Variabel seed benar-benar diatur dari waktu, jadi itu bisa menjadi output di akhir bersama dengan nama untuk menambah penghinaan pada cedera, tetapi itu akan selalu menjadi Steve yang membeli minuman.

JavaScript

console.log(["Jeff", "Emma", "Steve", "Julie"][Math.floor(Math.random(5))]);

Maaf, Math.randomtidak mengambil parameter, dan akan selalu mengembalikan angka dari [0, 1). Namun, itu adalah fungsi variadic yang menyenangkan dan tidak mengeluh tentang argumen!

Python

names=["John", "Jeff", "Emma", "Steve", "Julie"]
import random # Import random module
random.seed(str(random)) # Choose strictly random seed
print(random.choice(names)) # Print random choice

str (acak) memberikan string konstan; bukan nilai acak

Perl

Sebaiknya Emma tidak melupakan dompetnya! Berjalan di bawah strictdan warnings.

use strict;
use warnings;

# Use a hash to store names since they're more extendible

my %people;
$people{$_}++ for qw/John Jeff Emma Steve Julie/;

print +(@_=%people)[rand@_];  # 'cos (keys %people)[rand( keys %people )]
                              # is just too long-winded.

Penjelasan di sini .

JavaScript

function getDrinksBuyer(){ 
    var people = ["Jeff", "Emma", "Steve", "Julie"];
    var rand = Math.random(0,4)|0;
    return people[rand];
}

The |0hasil 0 sepanjang waktu tapi terlihat seperti itu melakukan beberapa pembulatan lainnya.

J

;(?.5) { 'John'; 'Jeff'; 'Emma'; 'Steve'; 'Julie'

Kasihan Julie ... Trivia: ini mungkin J terbersih yang pernah saya tulis ...

Kode ini sebenarnya benar, kecuali untuk satu hal. ?.adalah rng seragam: ?.5akan selalu kembali 4. ?5sudah benar.