待ち判定

CommonLisp

makeplex salon：あなたのスキルで飯は食えるか？ 史上最大のコーディングスキル判定 (1/2) - ITmedia エンタープライズ
泥臭いけど2時間くらいでなんとかなったような気がする。
http://gist.github.com/356548

しかし七対子のテストした時

* (find-waiting "1223344556688")
(123)(456)(456)(88) [23] : {1,4}
(123)(234)(456)(88) [56] : {4,7}
(22)(33)(44)(55)(66)(88) [1] : {1}

素で2番目の待ちを分かってなかったとか僕は麻雀やらない方が良いですね。

上級者のコード見れば効率良い手の作り方分かるようになるかな?