Yahtzeeスコアシートの 13行ごとに、5つの数字（サイコロ）のスペース区切りリストが（stdinから）与えられます。あなたの仕事は、各行のスコアを計算し、ゲームの総計を出力することです。

例

入力とその解釈方法：

Input       Box              Score
6 1 4 1 3   Aces              2
3 2 2 1 2   Twos              6
6 3 2 3 3   Threes            9
4 2 3 6 5   Fours             4  
6 3 5 5 1   Fives            10
1 5 6 5 6   Sixes            12
            Bonus             -
4 2 4 4 1   3 of a kind      15
2 2 3 2 4   4 of a kind       -
3 2 2 2 3   Full house       25  
1 3 1 6 1   Small straight    -
2 5 4 6 3   Large straight   40
2 2 2 2 2   Yahtzee          50
5 5 4 5 2   Chance           21
            Grand Total     194

ヤッツィーのボーナスとジョーカーのルールを無視し、上段と下段のスコアと上段のボーナスのみを合計します。疑わしい場合は、これらの規則を参照してください。

最短のコードが勝つように！

code-golf number game

— ダニエロ
ソース

ノルウェー語を話さない人のために、質問で人々に直接実装してもらいたいスコアリングルールを挙げていただけますか？

— ピーターテイラー

Heh heh;）ルールは同じです。位置が変更されたのは一部のブロックのみで、1と2のペアが追加されています。最初のコードブロックは大まかな翻訳（「合計」と「ボーナス」なし）なので、その1つを参照してください。ノルウェーのリンクは、他のセットアップに慣れている人のためにブロックの順序を正当化するためだけのものでした。ルールは明確で、「ペア」ブロックは一目瞭然だと思います。残りのルールは、私が提供した英語のウィキリンクで説明する必要があります。

— ダニエロ

ああ、私はちょうどルールが異なることに気付きました。次に、公式の「国際」ルールを使用します：yahtzeerules.com/yahtzee-scoring.htm（私はノルウェーの方が好きです。得点のバリエーションが豊富です）- すぐに質問を変更します。

— daniero

あなたは実際に得点線に入力カードを一致させるつもりですか？どの行がどのハンドに最も適しているかを把握する必要はありませんか？

— DavidC

1

@Matt特定の検索エンジンの上位の結果をざっと読んだ後、「はい」と言います。

— daniero

4

APL（124）

S←{⍺∊+⌿⍵∘.=⍵}⋄+/(+/⎕)(50×∧/,A∘.=A←⎕)(+/10×{⍵×∨/(⍳⍵)⍷1+A-⊃A←A[⍋A←⎕]}¨N)(25×∧/S∘⎕¨2 3)(+/{(+/A)×⍵S⊢A←⎕}¨N←3 4)(+/{+/⍵×⍵=⎕}¨⍳6)

— マリヌス
ソース

4

これは、私がエイリアンの宇宙船の横で読んだものと同じに見えると誓います。

— ケビンエリオット

このプログラムが機能するかどうかは

— わかり

5

R-264

S=sum;
P=prod;
T=function(i)table(x[i,]);
Z=function(i,...)any(sapply(list(...),function(y)all(y%in%x[i,])))
S((x[1:6,]==(R=row(x[1:6,])))*R)+ # Upper section
S(x[7,])*any(T(7)>2)+             # 3 of a kind
S(x[8,])*any(T(8)>3)+             # 4 of a kind
25*(P(T(9))%in%5:6)+              # Full house
30*Z(10,1:4,2:5,3:6)+             # Small straight
40*Z(11,1:5,2:6)+                 # Large straight
50*(P(T(12))==5)+                 # Yahtzee
S(x[13,])                         # Chance

（コメントを除外する場合は264文字）

入力あり

x <- as.matrix(read.table("http://pastebin.com/raw.php?i=ZRMC9B4x"))

出力

[1] 194

— フーデル
ソース

誰かが正しい出力を得ることに成功しているのを見てうれしいです：Dこの例を更新します。

— -daniero

あなたのプログラムは間違ってフルハウスを処理していると思います。私はサイコロをテストしましたが2 2 2 2 2、あなたのプログラムはそれをフルハウスとして扱い、25ポイントを授与すると信じています。

— マット

大きいストレートと小さいストレートにも問題があると思います。すべてのサイコロが同じ場合（もう一度テストします2 2 2 2 2）numeric(0)、スコアの代わりに結果を取得します。

— マット

私はあなたがヤッツィー（例えば得点することができます（私のルールやみんなの？）から来@Matt、2 2 2 2 2「フルハウス」の下に）。ストレートについては正しいと思う、ありがとう。考えていたより短いバージョンでコードを更新します。

— flodel

4

パイソン364

S=sum;R=range;D=[map(int,raw_input().split())for i in R(13)];s=S(x for i in R(6)for x in D[i]if x==i+1)
for i in R(2):d=D[6+i];s+=[0,S(d)][max(map(d.count,d))>2+i];d=sorted(set(D[9+i]));s+=[0,30+i*10]['1, 1, 1'+', 1'*i in`[d[x+1]-d[x]for x in R(len(d)-1)]`]
e=D[8];a=map(e.count,e);d=D[11];print s+S(D[12])+[0,50][d.count(d[0])==5]+[0,25][2in a and 3in a or 5in a]

要求に応じて、入力は標準入力にあります。

$ yScore.py < dice.txt
194

他のソリューションが行ったように、データをリストにプリロードできる場合、62文字を削除して302に到達できます。

— マット
ソース

3

Mathematica 359

y = IntegerDigits@ImportString[x, "Table"][[1]];
l = Length; g = Gather; r = Range; b = SortBy; h = l@b[g[y[[#]]], l][[-1]] &;
Tr@Flatten@{# Count[y[[#]], #] & /@ r@6, If[h@7 == 3, 15, 0], 
If[h@8 == 4, 20, 0], If[(l /@ b[g[y[[9]]], l]) == {2, 3}, 25, 0], 
If[MatchQ[Sort@y[[10]], {___, n_, m_, o_, q_, ___} /; m == n + 1 && o == m + 1 && q == o + 1], 30, 0], 
If[Sort[y[[11]]] == r[y[[11, 1]], y[[11, 1]] + 4], 40, 0], 
If[l@g[y[[12]]] == 1, 50, 0], y[[13]]}

ショートストレートをチェックするより効率的な方法が必要です。

— DavidC
ソース

1

GolfScript 180

n/{~]}%6,{)`['{''=},,''*']*}%[{.{+}*\{..|{'{'\'=},,'++1$\~}%$\;}:g~)\;2>*}{.{+}*\g)\;3>*}{g[2 3]=25*}{$:§;3,{).4+,\>§-}%1?)!!30*}{.$(\;.5+,\>\-!40*}{g)\;5=50*}{{+}*}]+]zip{~~}%{+}*

ここでプログラムをテストできます

注釈付きプログラム：

n/                          # split input by newline
{~]}%                       # parse an int array from each line

6,{)`['{''=},,''*']*}%      # create {X=},,X* code blocks, 
                            # where X goes from 1 to 6 
                            # (needed for processing the first 
                            # half of the board)

[       # create an array of code blocks, for scoring:

        # three of a kind:
    {.{+}*\{..|{'{'\'=},,'++1$\~}%$\;}:g~)\;2>*}

        # four of a kind:
    {.{+}*\g)\;3>*}

        # full house:
    {g[2 3]=25*}

        # small straight:
    {$:§;3,{).4+,\>§-!}%1?)!!30*}

        # straight: 
    {.$(\;.5+,\>\-!40*}

        # yahtzee:
    {g)\;5=50*}

        #chance:
    {{+}*}
]+              # concatenate the 1-6 code block array with this one

]zip            # distribute each line in the input 
                # to the corresponding scoring rule (code block)

{~~}%           # evaluate each input/code pair
                # and get an array with score for each hand

{+}*            # sum up the partial scores.

— クリスティアン・ルパスク
ソース

1

Perl 527文字

while(<>){$l++;$q=$c=0;$q=1if(($_=~/1/&&$_=~/2/&&$_=~/3/&&$_=~/4/)||($_=~/5/&&$_=~/2/&&$_=~/3/&&$_=~/4/)||($_=~/5/&&$_=~/6/&&$_=~/3/&&$_=~/4/));@a=split//;for(@a){$c++if/$l/;}$s+=$l*($c)if$l<7;$s+=35if$s>=63&&$l==6;for$i(1...6){$t=0;$f+=$c if($l==9&&($c==2||$c==3));$c=0if!($l==11&&$c>1);for(@a){$t+=$_;$c++if/$i/;}$s+=$t if($c>=3&&$l==7);$s+=$t if($c>=4&&$l==8);$s+=50if($c==5&&$l==12);$s+=$t if($l==13&&$i==6);}$s+=25if($f==5&&$l==9);$s+=30if($q==1&&$l==10);$s+=40if($c<2&&($t==15||$t==20)&&$l==11);exit(print $s)if($l==13);}

— beginnerProg
ソース

ヤッツィーの試合を記録する

例