問題

n=2サイコロから開始：

• ロールnそれぞれ数1〜6も同様に可能性の高い各ダイ上でサイコロ、。
• それらの合計がnサイコロの最も可能性の高い合計に等しいかどうかを確認し3.5*nます。
  • それらが等しい場合、終了します。
  • それ以外の場合は、印刷しn、n+2サイコロで最初から繰り返します

コードはこの手順を正確に行う必要はありませんが、randomnessの定義に基づいて、確率的にそれと同等のランダム出力を与える必要があります。

プログラムは、すべての数値を独自の行に出力する必要があります。たとえば、プログラムが最大8個のサイコロを取得し、8個のサイコロで最も可能性の高い数を転がした場合、出力は次のようになります。

2
4
6

実行例

2つのサイコロで7、最も可能性の高い合計です。ロールされた数字が2とであったとしましょう3。次に、印刷します2。

4つのサイコロで14、最も可能性の高い合計です。のは、出目がいたとしましょう3、4、2、と5。そして、合計は14なので、プログラムはここで終了します。

この場合の最終出力は"2"です。

ルール

• code-golfのバイト単位の最短ソリューション
• 標準的な抜け穴が適用されます
• ランダム性のメタ定義が適用されます
• プログラムだけでなく機能も使用できます

Python 2、70バイト

from random import*
n=2
while eval("+randrange(6)-2.5"*n):print n;n+=2

オンラインでお試しください！

トリックはeval、次のような文字列を入力して合計を計算することです

'+randrange(6)-2.5+randrange(6)-2.5'

n表現のコピーを連結。randrange(6)乱数を出力[0,1,2,3,4,5]することによりシフトダウンされ、2.5の平均を持っています0。合計ifの場合0、while条件は失敗し、ループは終了します。

別の使用方法mapは4バイト長くなりました。

from random import*
n=2
while sum(map(randrange,[6]*n))-2.5*n:print n;n+=2

私は、ゼロを意味するようにシフトされたダイスの長さが等しい式の束を見つけましたが、どれも短くありません

randrange(6)-2.5
randint(0,5)-2.5
randrange(6)*2-5
uniform(-3,3)//1

MATL、13バイト

`@E6y&Yrs@7*-

オンラインでお試しください！

説明

`       % Do...while top of the stack is truthy
  @E    %   Push 2*k, where k is the iteration index starting at 1
  6     %   Push 6
  y     %   Duplicate 2*k onto the top of the stack
  &Yr   %   Array of 2*k integers distributed uniformly in {1, 2, ..., 6}
  s     %   Sum
  @7*   %   Push 7*k
  -     %   Subtract
        % End (implicit). If the top of the stack is non-zero, the loop
        % proceeds with the next iteration. Else the loop is exited.
        % Display stack (implicit)

ゼリー、 19  14 バイト

リーキー修道女の助けを借りて-5バイト（カウントアップから再帰に移行）

‘‘6ṗX_3.L⁶S?Ṅß

改行で区切られた結果を印刷する完全なプログラム（余分なスペースと改行も印刷され、最後にプログラムエラーが印刷されます）。

オンラインでお試しください！ -6個のサイコロがTIOを超えると、メモリ使用量が原因でこれが強制終了されますが、原則としては動作します-そのためには〜40秒かかります。

ここでは、それほど時間がかからず、それほど多くのメモリを必要としない、より使いやすい15バイトバージョンを利用できます。

どうやって？

それぞれ3.5ずつ減少した面の合計がゼロになるまでさらに2つのサイコロを再帰的に転がし、そのサイコロの数を印刷します。

‘‘6ṗX_3.L⁶S?Ṅß - Main link: no arguments (implicit left=zero)
‘              - increment (initial zero or the previous result)
 ‘             - increment  (= # of dice to roll, n)
  6            - literal 6
   ṗ           - Cartesian power - all possible rolls of n 6-sided dice with faces 1-6
    X          - pick one of them
      3.       - literal 3.5
     _         - subtract 3.5 from each of the roll results
           ?   - if:
          S    -          sum the adjusted roll results (will be 0 for most common)
        L      - ...then: length (number of dice that were rolled)
         ⁶     - ...else: literal ' ' (causes error when incremented in next step)
            Ṅ  - print that plus a newline
             ß - call this link with the same arity (as a monad with the result)

TI-BASIC、28バイト

2→N
While mean(randInt(1,6,N)-3.5
Disp N
N+2→N
End

説明

• randInt(1,6,N) 1から6までのN個の乱数のリストを生成します
• mean(randInt(1,6,N)-3.5 ロールの平均を3.5シフトダウンします
• While 平均式がゼロ（最も可能性の高い合計）に等しくなるまで続きます

R、49バイト

n=2
while(sum(sample(6,n,T)-3.5)){print(n)
n=n+2}

sample(6,n,T)置換さnれた範囲から（擬似）ランダムサンプルを生成し1:6ます。各要素から3.5を引くsumと、最も一般的な値である場合にのみ、0（偽）の結果が得られます。

オンラインでお試しください！

奇数のサイコロをスキップします。

Java 8、123 149 113108バイト

()->{for(int n=0,s=1,i;s!=n*7;){for(i=s=++n*2;i-->0;s+=Math.random()*6);if(s!=n*7)System.out.println(n*2);}}

または、代わりに未使用のパラメーターを使用する場合は107バイト。Object null

コメントの@Julesによって正しく指摘されたバグ修正用に+26バイト。-OliverGrégoireの素晴らしい思考の
おかげで-41バイト！

説明：

ここで試してみてください。

()->{                           // Method without parameter nor return-type
  for(int n=0,                  //  Amount of dice
          s=1,                  //  Sum
          i;                    //  Index
      s!=n*7;){                 //  Loop (1) as long as the sum doesn't equal `n`*7,
                                //  because we roll the dice per two, and 3.5*2=7
    for(i=s=++n*2;              //   Reset both the index and sum to `n`*2,
                                //   so we can use random 0-5, instead of 1-6
                                //   and we won't have to use `+1` at `Math.random()*6`
        i-->0;                  //   Inner loop (2) over the amount of dice
        s+=Math.random()*6      //    And increase the sum with their random results
    );                          //   End of inner loop (2)
    if(s!=n*7)                  //   If the sum doesn't equal `n`*7
      System.out.println(n*2);  //    Print the amount of dice for this iteration 
  }                             //  End of loop (1)
}                               // End of method

05AB1E、22 20バイト

Emignaのおかげで-2バイト

[YF6L.RO}7Y*;ïQ#Y=ÌV

オンラインでお試しください！

説明

[YF6L.RO}7Y*;ïQ#Y=ÌV
[                    # Infinite loop start
 YF     }            # Y times... (Y defaults to 2)
   6L.R               # Push a random number between 1 and 6 (why does this have to be so looooong ._.)
       O              # Sum
         7Y*;ï       # Push 3.5 * Y as an int
              Q      # Is it equal to 3.5 * Y?
               #     # If so: Quit
                Y    # Push Y
                 =   # Print without popping
                  ÌV # Set Y to Y + 2

R、 48 44 42バイト

5バイトの改善 ジュゼッペの答えを。

while(sum(sample(6,F<-F+2,1)-3.5))print(F)

これFは、デフォルトで割り当てられている変数であるという事実を使用します。この変数FALSEは強制0的にインクリメントされてから、カウンタ変数を初期化する必要がなくなります。

PHP、75バイト

for($d=2;(++$i*7/2-$r+=rand(1,6))||$i<$d;)$i%$d?:$d+=1+print"$d
".$r=$i="";

オンラインでお試しください！

GolfScript、41バイト

0{2+.n\.[{6rand.+5-}*]{+}*!!*.}{}while;;;

オンラインでお試しください！

Mathematica、47バイト

For[n=1,Tr@RandomInteger[5,2n++]!=5n,Print[2n]]

LLlAMnYPから-5バイト

05AB1E、17バイト

[N·ÌD6Lã.R7;-O_#,

オンラインでお試しください！

説明

[                   # loop over N in 0...
 N·Ì                # push N*2+2
    D               # duplicate
     6L             # push range [1 ... 6]
       ã            # cartesian product (combinations of N*2+2 elements in range)
        .R          # pick one at random
          7;-       # subtract 3.5 from each dice roll
             O_#    # if sum == 0 exit loop
                ,   # otherwise print the copy of N*2+2

バッチ、109バイト

@set/an=%1+2,s=n*5/2
@for /l %%i in (1,1,%n%)do @call set/as-=%%random%%%%%%6
@if %s% neq 0 echo %n%&%0 %n%

むしろ迷惑なのrandomは、魔法の環境変数です。したがって、通常はforループが開始される前に発生する、環境の拡張時にのみランダムな値に置き換えられます。callループを通過するたびに発生しますが%、ループの前に展開が発生しないように記号を二重にする必要があります。楽しみは、結果を6でモジュロ化するためです。これには実際の%符号が必要であり、今度は2倍にする必要があります。結果は6つの連続した%sです。

JavaScript（ES2015）、 75 78バイト

f=(n=2)=>[...Array(n)].reduce(a=>a+Math.random()*6|0,n)==3.5*n?'':n+`
`+f(n+2)

改行で区切られた結果の文字列を出力します

編集：シャギーのおかげでバイトを節約し、2で機能を開始するために4バイトを追加しました

説明

f=n=>
  [...Array(n)]                // Array of size n
    .reduce(                   // Combine each item
      a=>a+Math.random()*6|0,  // Add a random roll between 0 and 5 for each item
    n)                         // Start at n to correct rolls to between 1 and 6
    ==3.5*n                    // Compare total to most probable roll total
  ? ''                         // If true, end
  : n+'\n'+f(n+2)              // Otherwise, output n and continue

f=(n=2)=>[...Array(n)].reduce(a=>a+Math.random()*6|0,n)==3.5*n?'':n+`
`+f(n+2)

let roll = _ => document.getElementById('rolls').innerHTML = f();
document.getElementById('roll-button').onclick = roll;
roll();

<button id="roll-button">Roll</button>
<pre id="rolls"></pre>

php-89文字

$r=0;$n=2;while($r!=$n*3.5){$r=$i=0;while($i<$n){$r+=rand(1,6);$i++;}print $n."
";$n+=2;}

C（gcc）、84 80 79 77 75 80 78 76バイト

i;f(s,j){for(;s;s?printf("%d\n",i):0)for(j=i+=2,s=i*7/2;j--;)s-=1+rand()%6;}

オンラインでお試しください！

ハスケル 133 132バイト

import System.Random;import Control.Monad
s k=do n<-replicateM k$randomRIO(1,6);if sum n==7*div k 2 then pure()else do print k;s(k+2)

以下のコメントの提案については、@ Laikoniに感謝します。

オクターブ55バイト

n=2;
while mean(randi(6,n,1))-3.5!=0
n
n=n+2;
end

Andrewarchiの答えに触発されました。誰かがそれを短くするためのポインタを持っているなら、彼らは大歓迎です。

Pyth、20バイト

K2WnsmhO6K*K3.5K=+K2

オンラインでお試しください！

QBIC、40バイト

{[1,r|g=g+_r1,6|]~g=r*3.5|_X\g=0?r┘r=r+2

これは、文字通り、チャレンジが要求することを行います。配布を正しく行う最短の方法のようです。

説明

{          DO infinitely
[1,r|      FOR a=1, a<=r (at start, r == 2), a++
g=g+       Add to g (0 at start)
  _r1,6|   a random number between 1 and 6 incl.
]          NEXT
~g=r*3.5   IF the result of all dice rolls equals the expected value
|_X        THEN quit
\g=0       ELSE, reset the dice total
?r┘        PRINT the number of dice used
r=r+2      and add 2 dice.
           END IF and LOOP are courtiously provided by QBIC at EOF.

Rexx（レジーナ）、78バイト

x=2
do forever
  t=0
  do x
    t=t+random(6)
  end
  if(t=x*3.5)then
    exit
  say x
  x=x+2
end

オンラインでお試しください！

JavaScript（ES6）-69文字

r=n=>n?r(n-1)+(Math.random()*6|0)-2.5:0;f=(n=2)=>r(n)?n+`
`+f(n+2):""

console.log(f())

説明：

r=n=>                                     # Roll n dice
     n?                                   # If there is a dice left to roll
       r(n-1)                             #   Roll n-1 dice
             +(Math.random()*6|0)         #   Add a random number from 0 .. 5
                                 -2.5     #   Subtract 2.5 so sum of average is 0
                                     :0   # Else total is 0

そして：

f=(n=2)=>                                 # Start with n = 2
         r(n)                             # Roll n dice
             ?n+"\n"+f(n+2)               # If non-zero then concatenate n, newline and
                                          #    result for n+2 dice
                           :""            # If zero (average) terminate.

CALC2 0.7、119の 118 111バイト

using"runtime";for(n=2,d=0;d!=3.5*n;Console.WriteLine(n),n+=2)for(i=d=0;i++<n;)d+=Math.Int(Random().Next(1,7));

なし：

using "runtime";
var d = 0;
var r = Random();
for(var n = 2; d != 3.5 * n; Console.WriteLine(n), n += 2)
{
    d = 0;
    for(var i = 0; i < n; i++)
        d += Math.Int(r.Next(1,7));
}

Math.Int（）なしでも実行できましたが、残念ながら0.7ではRandom（）。Next（）関数にはバグがあり、それらはすべてintではなくdoubleを返します。修正されましたが、この質問が投稿されてからです。私は何も勝つつもりはありませんが、ちょっと、素晴らしいコンセプトの証明です。

編集：

• 使用と「ランタイム」の間の不要なスペースを削除しました（-1バイト）

編集2：

• var rを削除し、必要な場所に新しいランダムを作成しました（-4バイト）

• i = 0、d = 0をi = d = 0に変更（-2バイト）

• チェック後にiをインクリメント（-1バイト）

ルビー、52バイト

s=x=2;(s=0;p x.times{s+=rand(6)-2.5};x+=2)while s!=0

説明

s=x=2;                                                # sum=2, x=2
      (                                  )while s!=0  # while sum != 0:
       s=0;                                           #  reset the sum
           p                                          #  print
             x.times{              };                 #  repeat x times:
                     s+=                              #   Add to sum:
                        rand(6)                       #    random int in 0..5
                               -2.5                   #    subtract average
                                                      #  (implicitly return x for printing)
                                     x+=2             #  Increment x by 2

オンラインでお試しください！

Javascript、87文字

for(n=2;eval('+'.repeat(n).replace(/./g,x=>x+(Math.random()*6|0)))!=2.5*n;n+=2)alert(n)

のconsole.log代わりにテストalert：

for(n=2;eval('+'.repeat(n).replace(/./g,x=>x+(Math.random()*6|0)))!=2.5*n;n+=2)console.log(n)
console.log('Done')

lua、102バイト

function r(n,t) for d=1,n do t=t+math.random(1,6)end return t==n*3.5 or print(n)or r(n+2,0)end r(2,0)

またはより読みやすいバージョン

function r(n,t) --recursive function does its magic, t is given to safe usage bytes(no local)
    for d=1,n do --roll n dice and count them up to the total (t)
         t =t+math.random(1,6)
    end 
    return t==n*3.5 or --check if t==n*3.5. If it is then it ends
           print(n) or --t != n*3.5 thus print n. print returns nil
           r(n+2,0) --both the check and the return value from print are false thus r gets executed.
end 
r(2,0) --start the process

96バイトのよりチートなバージョン

function r(n,t,m)t=t+m(1,6)+m(1,6)return t==n*3.5 or print(n)or r(n+2,t,m)end r(2,0,math.random)

これは最初のものとほとんど同じように機能しますが、以前の呼び出しからのロールを再利用します。このため、forループを削除できます。両方ともlua 5.2でテストされています

Perl 6、48バイト

.say for 2,*+2...^{3.5*$_==sum (1..6).pick xx$_}

PHP、51バイト

$r=2;$n=2;while(rand(0,6)-2.5*$r){print $n;$n=$n+2;}