オフィスでのちょっとした冗談として、誰かが名前をランダムに選ぶスクリプトを望み、その人は飲み物を一杯飲むと言いました。

人々をジョン、ジェフ、エマ、スティーブ、ジュリーと呼びましょう。

一見ランダムに見えるスクリプトを作成するのは面白いと思いましたが、実際には常に出力と同じ人を指定します（選択したユーザー次第）。

1週間後の最高得票数

そして勝者は....

（現在）158票のポールR。

ここでの回答は素晴らしいものであり、まだ投稿されていない他のアイデアを他の誰かが持っている場合は、それらを追加してください、私はそれらを読むのが大好きです。

C

貴重な飲酒時間を無駄にしないために、誰ができるだけ早く購入するかを決定することが重要です。したがって、最大のパフォーマンスを得るためにはCが明らかな選択です。

#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;
}

説明：

break;switchステートメントに各ケースの後にある場合、これはうまく機能します。しかし現状では、各ケースは次のケースに「フォールスルー」するため、貧しいジュリーは常に飲み物を買うことになります。

PHP

これを手放すことができなかったので、ここに別のものがあります：

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

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

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

これは実際にジョンを生成することを保証していませんが、チャンスは非常に良いです。PHPは、/ dev / randomが（おそらく）解析できず、代わりに非常に合理的な数値0を見つけられることを確認するために、/ dev / randomが提供するものを喜んで使用します。結局のところ、潜在的なエラーについてプログラマーに警告することは、PHPでは致命的な罪と見なされます。

ハスケル

常に同じ名前が返される場合は透明すぎるので、次を試してください

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

ランダムにしたいときはいつでも：

[~]$ runghc prog.hs
Shuffling
Steve

[~]$ runghc prog.hs
Shuffling
Julie

そして、あなたの不幸な目標のために：

[~]$ runhugs prog.hs
Shuffling
John

[~]$ runhugs prog.hs
Shuffling
John

Hugsは協調マルチタスクのみを実装するため、rotateスレッドは実行されません

Bash-最大のシンプルさ

非常に簡単な例-教科書の方法で問題を回避しましょう。良い結果を得るために、システムクロックからジェネレーターをシードすることを忘れないでください！

#!/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

これは、$SECONDS組み込み関数が実際に何をするのかをユーザーが知らないことに依存しています。現在のシェルが開始されてからの秒数を返します。スクリプトにあるように、シェルは常にゼロ秒前に開始されたため、ジェネレーターは常にシードされ0、ジュリーは常にビールを買います。

ボーナス：

これは非常に精査されています。スクリプトではなくコマンドラインで同じコードを入力すると$SECONDS、ユーザーの対話型シェルが実行されている時間の長さが返されるため、ランダムな結果が得られます。

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]);
        }
    }
}

これは、.Net APIに精通している人をだますことはないかもしれませんが、それを知らない人OrderByは、あなたがそれを呼び出すオブジェクトを変更すると信じるかもしれません。

パワーシェル

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

これは常に出力されますJohn。

$namesにはプロパティSystem.Collections.HashtableがありませんLength。PowerShell v3以降Length（およびCount）は、任意のオブジェクトのプロパティとして使用できます。オブジェクトにプロパティ1がない場合は、オブジェクトがnullでないときに返され、そうでない場合はを返し0ます。したがって、私の答えで$names.Lengthは、1と評価されrandom -maximum 1、最大値は排他的であるため、常に0を返します。

Q

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

Qは常に同じ値で乱数シードを初期化します。

Perl

use strict;

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

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

プリント：Person X is buying: Jeff（Xは

0 から4まで）スカラーコンテキストを少し乱用します。リストの@index = int(rand() * 5)0番目の位置に0〜4のランダムな整数を配置し@indexます。配列を印刷するとき、@ indexにランダムな整数を適切に印刷しますが、配列インデックスとして使用する場合$people[@index]、@ indexはスカラーコンテキストを使用して、リストサイズの値を与えます。1ます。

大変興味深いことに、 @people[@index]適切にインデックス付けします。

興味深いことに@people[@index]、Perlのハッシュスライスで十分なので@index、リストコンテキストで評価されます。この場合、それは単一のエントリリストであり、それが正しく動作する理由です

ECMAScript

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

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

それは常にジュリーを選びます。

角括弧内に角括弧があり、コンマ演算子はその右オペランドの値を返します。
見逃すことも非常に簡単です。以前、実際のコードでは見逃していました。

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]);
        }
    }
}

秘Theは、メソッドnew Random().NextDouble()が0〜1のdoubleを返すことです。Math.Floor()この値を適用すると、常に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]);

ヒント：

GUIDからシードを生成します。ガイドには、4×10-10の衝突の可能性があります。超ランダム。

回答：

少なくともを使用する場合はGuid.NewGuid()、（シードを常に0にする巧妙な方法）。また、方向を間違えるための無意味な（int）。

bash / coreutils

これは、私が同様の目的で書いたスクリプトからほとんど逐語的に取られています。

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

大文字のRを使用することを忘れても、実際のスクリプトで私がときどき犯した間違いです。

ルビー

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

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

これはで正しく動作しますがsort_by、のsortように動作する比較関数が必要<=>です。rand（）の結果は常に正であるため、Ruby実装のsortアルゴリズムが決定論的であれば、常に同等の結果が生成されます。Ruby 1.9.3は常にJulieを出力します。

ルビー

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

puts names[rand() % 5]

rand() 引数を指定しないと、0〜1のランダムなフロートが生成されます。したがって、モジュロ5は何も行いません。

Perl

3 srand秒で3倍ランダムになります！

#!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!";

説明

perlには$ RANDOMはありません。これは未定義の変数です。コードは常にリストの最初の要素を返します-Johnを飲みます:)

編集：

コードを調べた後、5人のうちの1人が明らかなエラーを修正して、次のプログラムを作成することに決めました。

#!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!";

コードを見ただけで誰がそれをしたのかわかりますか？

説明：

Perlでは$#array、最後の要素のインデックスを返します。配列はゼロベースであるため、5つの要素を持つ配列への参照が与えられると、に$#$aref_peopleなります4。
randゼロ以上でそのパラメータより小さい乱数を返すので4、戻りません。事実上、ジュリーは飲み物を買わないことを意味します:)

Python

このような小さなサンプルスペースでは、ランダム性を信頼できないことは誰もが知っています。本当にランダムにするために、リストから名前を選択する古い方法を放棄し、代わりに私のプログラムは完全にランダムな名前を綴ります。オフィスのほとんどの名前には4文字が使用されていたため、これで解決します。

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)

当然、正しい種を選ぶために準備作業をしました。

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] );
}

すみません、ジェフ！

数回の反復の後、数学のため、r == 1 mod 5。道徳：数学が苦手なら、独自のPRNGを書かないでください。:)

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;
}

初期化リストで使用される括弧のため、ベクトルのサイズは実際には1です。コンマ演算子はすべての名前を破棄し、最後の名前を返すため、買い手は常にロイです。

スカラ

ユーザーが懐疑的であることは知っているので、私のランダム性が本当に公平であるという証拠を含めました！

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
  }

}

実行例：

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

他の誰かが非常に幸運にならなければ、ジョンはいつも飲み物を買います。

ランダム性の「証明」はrand(1, 4) * rand(1, 4) % 5、1から4までの間でまだ均等に分布しているという事実に依存しています。しかしrand(1, 5) * rand(1, 5) % 6、退化しています。0を取得する可能性があります。これにより、残りの「ランダム性」に関係なく最終結果が0になります。

Javascript（Underscore.jsを使用）

JavaScriptにはシャッフルが組み込まれていないため、Underscore.jsを使用します

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

_.shuffleはシャッフルされた配列を返します。Array.prototype.sort（）としてその場で変更しません、ごめんなさいJohn

JavaScript

第二の試み、これは少しトリッキーです：

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

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

arguments変数は、関数のためにローカルにアクセス可能で、関数に渡されるすべての引数の配列です。単純な名前付けを使用し、配列を関数自体に渡すことで、配列の長さではなく、実際には引数リストの長さ（1）を使用していると偽装できます。これは、特殊文字またはフォントタイプを使用することで、さらに適切に実行できます。

C ++

公平を期すために、多くのトライアルを実施し、最も頻繁に選択される人を選択する必要があります。

#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))]);
}

の価値は1<<31何ですか？すみません、ジョン。

T-SQL（2008以降）

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

説明：

MS SQL Serverでは、RAND()実行ごとに1回だけ評価します。すべての名前には常に同じ番号が割り当てられ、元の順序のままになります。ジョンが一番です。ジョンのために吸います。

推奨される改善：

T-SQLは、適切な品質の行ごとの乱数を生成できますRAND(CHECKSUM(NEWID()))。

ルア

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()タイミングの目的のためでos.time()ありmath.randomseed、良いRNGのために使用されるべきものです。悲しいことに、ジュリーは常に（少なくとも私のコンピューターで）購入しています。

慣用的なC ++ 11

飲み物が関係する場合、最新の標準とコーディングスタイルを最新に保つことが特に重要です。これは、非常に効率的でイディオムに準拠したC ++ 11ネームピッカーの優れた例です。

システムクロックからシードされ、毎回検証用の名前とともにシードを出力します。

#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
}

このライブを試してください：http : //ideone.com/KOet5H

わかりましたので、これは実際には全体的にかなり良いコードです。たくさんの赤いニシンがありますので、コードをじっくり見て、RNGが実際にシードされることはありません:)この場合seedは単なる整数でありengine、パラメータとして渡されるシード関数、実際には無視されます。シード変数は実際にはクロックから設定されるため、最後に負傷にinjury辱を加えるために名前とともに出力できますが、飲み物を購入するのは常にスティーブです。

JavaScript

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

さて、申し訳ありMath.randomませんが、パラメータを受け取らず、常に[0、1）から数値を返します。それでも、それは幸せな可変機能であり、引数について文句を言いません！

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（random）は定数文字列を提供します。ランダムな値ではありません

Perl

エマは財布を忘れてはいけません！strictおよびの下で実行され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.

ここで説明。

JavaScript

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

|00全ての時間で結果が、それは他のいくつかの丸めをやっているように見えます。

J

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

かわいそうなジュリー...雑学：これは私が今まで書いた中で最もクリーンなJだったかもしれない...

このコードは実際には正しいものですが、1つだけ例外があります。?.均一なrng：?.5は常に4 ?5を返します。