greed.rb

def score(dice)	
  compute_singles(dice) + compute_triples(dice)  
end

def compute_singles(diceRoll)
  diceRoll.inject(0) do |result, roll|
    result += single_value(roll)
  end
end

SINGLE_VALUES = { 1 => 100 , 5 => 50}
def single_value(roll)
  SINGLE_VALUES[roll] || 0
end 

def compute_triples(diceRoll)
  (1..6).inject(0) do |result, points|
    result += calculate_triple_score(points) if diceRoll.count(points) >= 3
    result
  end
end 

TRIPLE_FACTOR               = 100
SPECIAL_TRIPLE_SCORES       = {1=>1000}

def calculate_triple_score(points)
  tripleScore = SPECIAL_TRIPLE_SCORES[points] || ( points * TRIPLE_FACTOR )
  tripleScore - score_of_triple_as_singles(points)
end 

def score_of_triple_as_singles(points)
  single_value(points) * 3
end

result += calculate_triple_score(points) if diceRoll.count(points)

debería ser
result += calculate_triple_score(points) if diceRoll.count(points) >= 3

cosas del copy/paste, gracias :)

he hecho una version en clojure que luego viendo la tuya tienen un aire parecido (esos injects/reduces!!) http://gist.github.com/766918
sin embargo como le comento a xaviuzz creo que hay un fallo pues [1 1 1 1 1 1] deberia ser 2000 y no 1300 no? eso haria tener que replantearse la cosa
un saludo

se supone que sólo hay 5 dados, así que sólo puede haber un trío ;)

la cosa se extiende: en python usando solo lambdas y reduces: https://gist.github.com/772470