関数型言語でも、効率とか速度とか（必要なら汚らしさとか）を度外視すれば、mainで
「N種類のカードをアトランダムにコンプするまで引く作業をM回繰り返して集計」
ってただそれだけのことをSmalltalkみたいにそのまんまに書き下すことも可能なのかな。
HaskellにもMultiSet（SmalltalkでいうところのBag）とかあるよね？