Update Dice.hs

replaced some explicitly recursive definitions with point-free style