Ticket subclass: #WinningTicket
  instanceVariableNames: ''
  classVariableNames: '' poolDictionaries: ''    !

!WinningTicket methods !
 
matches: aTicket
        "ENSURES: result is the number of matches between self and aTicket"
    ^ aTicket inject: 0 into: [ :n :elem | n + (self occurrencesOf: elem) ]! !