久々にどう書く?orgに挑戦。既に半月前のですが、何とか自分でもヒントとか無しで解けそうだったのでやってみました。こういうのをLispかHaskellで、すらすら書けようになりたい。 本体はpoker_hand。それより下はテスト実行用。本体はごちゃっとしたのをすっきりさせたいところですが、時間切れです。 def poker_hand(card) # suits, numbers = card.split(//).partition do |c| c[/[SCHD]/] end suits = (0..4).collect do |i| card[i * 2, 1] end numbers = (0..4).collect do |i| " A23456789TJQK".index(card[i * 2 + 1, 1]) end.sort # 事前ソート # p suits, number