Иногда пытаюсь освежить знания старого, доброго prolog-а:

http://rosettacode.org/wiki/Poker_hand_analyser#Prolog

А версии haskell-а почему-то там нет, странно что никто не запостил, вроде такая задача была и на euler-project.