得分之心


22

《红心大战》是一款供4位玩家玩的花样纸牌游戏。每把戏都是由打出领先套装最高牌的玩家所采取的。在每局结束时,玩家都会根据所持的罚卡获得罚分;任务是根据Microsoft Hearts规则确定分数。

输入项

输入的是4个列表(或定界字符串,数组等),显示4个玩家中每一个所拿的罚卡。罚卡是

2♥, 3♥, 4♥, 5♥, 6♥, 7♥, 8♥, 9♥, 10♥, J♥, Q♥, K♥, A♥, Q♠

我们将表示为

2,  3,  4,   5,  6,  7,  8,  9,  10,  11, 12,  13,  1,  0

分别。

输出量

输出是4个玩家(列表,字符串,数组等)产生的4个罚分。得分如下:

  • 每个心脏(由整数表示1,以13含)招1点
  • 黑桃皇后(以Q♠代表0)得13分
  • 例外:如果一名玩家拿走了所有罚点卡(称为射月球),则他获得0分,而所有其他玩家得到26分。

测试用例

[2, 8, 7, 1], [3, 4], [], [9, 5, 6, 0, 10, 11, 12, 13]     -->  4,  2,  0, 20
[0, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13], [], [], [1]   --> 25,  0,  0,  1
[1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 0], [], [], [] -->  0, 26, 26, 26

以字节为单位的最短代码获胜。

Answers:


3

CJam,22个 20字节

感谢jimmy23013节省了2个字节。

{{XD?}f%1fb_26&1bf^}

一个未命名的块(函数),它将4个列表的列表作为输入并返回分数列表。

在线尝试!

说明

{      e# For each card...
  XD?  e#   Choose 1 if it's positive and 13 if it's zero.
}f%
1fb    e# Sum each hand.
_26&   e# Get the set intersection of the scores with 26. This gives [26]
       e# if someone shot the moon, and [] otherwise.
1b     e# Treat as base-1 digits, which gives 26 if someone shot the moon
       e# and zero otherwise.
f^     e# XOR each result with this number. This swaps zeros and 26s when 
       e# someone shot the moon and does nothing otherwise.

_26&1b。-2个字节。
jimmy23013 '16

@ jimmy23013 Ahhhh,1b...我试图找到一种[26]进入26[]变成的短途之路,0但是某种程度上我却没有想到。谢谢您:)
Martin Ender

8

R,85 77 74字节

function(x,z=sapply(x,function(x)sum(x>0)+any(x<1)*13))abs(z-any(z>25)*26)

将R列表作为输入的未命名函数。通过计算元素的数量进行工作,>0如果每个向量中的任何元素为<1(即黑桃皇后),则将其加13 并存储为z

如果中有任何元素,z>25返回26-z,否则返回z

在R小提琴上尝试


1
26-z工作吗?
u54112 '16

@lastresort当然可以。/ facepalm
Billywob

4

C ++ 14,158个字节

作为未命名的Lambda:

[](auto c){typename decltype(c)::value_type r;int b=0;for(auto d:c){int q=0;for(auto i:d)q+=i?1:13;r.push_back(q);b+=q==26;}if(b)for(int&x:r)x=26-x;return r;}

需要a vector<vector<int>>并返回vector<int>

取消高尔夫:

[](auto c){
 typename decltype(c)::value_type r;   //result vector
 int b=0;                              //flag if one has all cards
 for(auto d:c){                        //over all decks
  int q=0;                             //count points
  for(auto i:d) q+=i?1:13;             //+13 for queen, +1 else
  r.push_back(q);                      //add to result
  b+=q==26;                            //possibly activate flag
 }
 if(b) for(int&x:r) x=26-x;            //if flag is set, mirror the results
 return r;
}

很少有适合您的测试用例:

 auto r = std::vector<std::vector<int>>{{2,8,7,1},{3,4},{},{9,5,6,0,10,11,12,13}};
 auto s = std::vector<std::vector<int>>{{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 0},{},{},{}};
 auto t = std::vector<std::vector<int>>{{},{2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 0},{},{1}};

4

Python 2,75 72 71字节

i=[len(a)+12*(0in a)for a in input()]
print[[x,26-x][26in i]for x in i]

输入为 [2, 8, 7, 1], [3, 4], [], [9, 5, 6, 0, 10, 11, 12, 13]


您能否通过使用12 * [a中的0]而不是[0,12] [a中的0]来保存3个字符?
Costantino

@Costantino我想你的意思是12*(0in a)
mbomb007 '16

print[[x,26-x][26in i]for x in i]短一个字节。
mathmandan

3

PHP,113字节

function h($a){foreach($a as&$b)$b=count($b)+12*in_array(0,$b);if(max($a)>25)foreach($a as&$n)$n=26-$n;return$a;}

函数采用数组数组,返回值数组。


使PHP中的其他数组映射惊奇:带有引用项的循环。Waaay比array_map


3

Haskell,62 59 56字节

f x|all(<26)x=x|0<1=map(26-)x
f.map(sum.map((13^).(0^)))

用法:

> f.map(sum.map((13^).(0^))) $ [[0, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13], [], [], [1]]
[25,0,0,1]

我想你可以写ff n=13^0^n
xnor

@xnor我认为你是对的。节省3个字节。
昂斯

我认为定义f x|all(<26)x=x|0<1=map(26-)x和使用它代替lambda函数可以节省一些字节。
Zgarb

@Zgarb对,你说的是3个字节。
2016年

2

05AB1E26 22 21字节

必须从输入中删除尾随空格,以便将其解释为数组。当玩家收集所有惩罚卡时使用(26-x)时,其他结局启发了结尾。

vy0å12*yg+})D26©åi(®+

v                    For each array
 y                   Push array on the stack
  0å                 Generate a boolean array indicating whether the queen of spades is at the same index in the original array
    12*              Multiply by 12 the value of the queen of spades
       yg+           Add the length of the array; the queen of spades gets her last point from this part
          }          End for
           )         Push an array of all evaluated scores
            D26©å    1 if there is a 26, 0 otherwise
                 i   If there is a 26
                  (®+ Mirror the array: for each element yield 26-element
                      Implicit end if
                      Implicitly print the score array

在线尝试!

它看起来仍然很不错,具有重复的常量和条件语句。

旧版本,26字节

(最大惩罚值中的每个点一个字节)

我决定保留它的长度,因为它的长度最适合此挑战:)。

vyD0å12*sg+})D26©QDOi_®*ë\

在线尝试!


2

Python 3,101个字节

def s(a):r=[sum([(1,13)[c==0]for c in h])for h in a];s=(r,[(26,0)[s==26]for s in r]);return s[26in r]

完整代码:

def score(hands):
    result = [sum([(1, 13)[card == 0] for card in hand]) for hand in hands]
    results = (result, [(26, 0)[score == 26] for score in result])
    return results[26 in result]

12*(c<1)+1比短2个字节(1,13)[c==0]26*(s>25)比短3个字节(26,0)[s==26]
Mego

2

JavaScript(ES6),82 80 77 72 70 69 67字节

@Neil节省了2个字节

f = 
s=>s.map(c=>c.map(t=>r+=t?1:13,r=0)|(b|=r>25,r),b=0).map(c=>b*26^c)

console.log(f.toString().length)
console.log(f([[2, 8, 7, 1], [3, 4], [], [9, 5, 6, 0, 10, 11, 12, 13]]));
console.log(f([[0, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13], [], [], [1] ]));
console.log(f([[0, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13], [], [1], [] ]));
console.log(f([[1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 0], [], [], []]));
console.log(f([[],[1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 0], [], []]));

分解

s=>s.map(                              // for each hand
 c=>c.map(                             // for each card
  t=>r+=t?1:13,                        // add value of card
 r=0)|(
  b=b|r>25,r                           // set flag if any hand scores 26 points
 ),
 b=0)
.map(c=>b?                             // for every card if a hand scored 26
  c?0:26                               // set every 0 hand to 26 and the 26 hand to 0
:c)                                    // otherwise do nothing

c=>b*26^c保存2个字节。
尼尔

1

,28字节

27个字节的代码,-p标志+1 。

Y{$+1+12*!*a}M Va26Ny?26-yy

在命令行上将输入作为代表嵌套列表的字符串,例如"[[2 8 7 1] [3 4] [] [9 5 6 0 10 11 12 13]]"(TIO上不需要引号)。在线尝试!


1

Ruby,59个字节

->a{a.map{|h|a.max.size>13?h.min||26:h.size+12*h.count(0)}}

或者,

->a{a.map{|h|a.count([])>2?h.min||26:h.size+12*h.count(0)}}

如果只有一只手有任何牌,我们希望空手牌得到26的值,而让有手牌的手得到0的值。我通过调用min手来做到这一点-这将返回nil一个空数组,然后我||把它变成26。在其他情况下,我计算一手的牌数,然后将12添加到黑桃皇后。


0

Scala,93个字节

a=>{val% =a.map(_.map{case 0=>13;case _=>1}sum)
if(%toSet 26)%map{case 0=>26;case _=>0}else%}

用法:

val f:(Seq[Seq[Int]]=>Seq[Int])=...
f(Seq(Seq(2, 8, 7, 1), Seq(3, 4), Seq(), Seq(9, 5, 6, 0, 10, 11, 12, 13)))

说明:

a=>{           //define an anonymou function with a parameter a
  val% =         //define % as...
    a.map(         //map each element of a...
      _.map{         //to each of the card
        case 0=>13     //replaced with its value
        case _=>1
      }
      sum            //and the sum of the values
    )
  if(            //if
    %toSet 26      //one player has all cards
  )
    %map{          //return % with...
      case 0=>26     //each 0 replaced with 26
      case _=>0      //and everything else (aka the 26) replaced 0
    }
  else           //else
    %              //return %
}

我可以使用%toSet 26,而不是% contains 26因为Setapply方法contains,并没有得到,在指数样Seq

By using our site, you acknowledge that you have read and understand our Cookie Policy and Privacy Policy.
Licensed under cc by-sa 3.0 with attribution required.