ポーカーの残り＋

コーナーケースとなりますが、

/*53:corner*/ test("2d2h3s4d5c","4S");
/*54:corner*/ test("2d2h3s4dAc","4S");

も必要と思われます。4Fが決まってから4SFを判定するのはさほど難しくないものの、4Sの判定は結構面倒です。

hena10pre.rb

#!/usr/bin/env ruby
#http://qiita.com/Nabetani/items/d819d1e5f2378317511e
#http://nabetani.sakura.ne.jp/hena/ord10pokarest/
STDOUT.sync=true
T={'2'=>2,'3'=>3,'4'=>4,'5'=>5,'6'=>6,'7'=>7,'8'=>8,'9'=>9,'1'=>10,'J'=>11,'Q'=>12,'K'=>13,'A'=>14}
while gets
    a=$_.chomp.gsub('0','').scan(/../).map{|e|[T[e[0,1]],e[1,1]]}.sort
    number=a.map{|e|e[0]}.uniq
    if a.none?{|e|e[1]!=a[0][1]} #flash
        if a[0][0]==10&&a[1][0]==11&&a[2][0]==12&&a[3][0]==13&&a[4][0]==14
            puts 'RF'
        elsif
            a[0][0]==2&&a[1][0]==3&&a[2][0]==4&&a[3][0]==5&&a[4][0]==14 ||
            0.step(3).all?{|i|a[i+1][0]-a[i][0]==a[1][0]-a[0][0]}
            puts 'SF'
        else
            puts 'FL'
        end
    elsif
        a[0][0]==2&&a[1][0]==3&&a[2][0]==4&&a[3][0]==5&&a[4][0]==14 ||
        4.times.all?{|i|a[i+1][0]-a[i][0]==a[1][0]-a[0][0]}
        puts 'ST'
    elsif (f=a.one?{|e|e[1]!=a[0][1]}) || a.one?{|e|e[1]!=a[1][1]} #4flash
        idx=f ? a.index{|e|e[1]!=a[0][1]} : 0
        a.delete_at(idx)
        if
            a[0][0]==2&&a[1][0]==3&&a[2][0]==4&&a[3][0]==14 ||
            0.step(2).all?{|i|a[i+1][0]-a[i][0]==a[1][0]-a[0][0]}
            puts '4SF'
        else
            puts '4F'
        end
    else
        if number.size==5 && (
            number[0]==2&&number[1]==3&&number[2]==4&&number[4]==14 ||
            0.step(2).all?{|i|number[i+1]-number[i]==number[1]-number[0]} ||
            1.step(3).all?{|i|number[i+1]-number[i]==number[2]-number[1]}
        ) then puts '4S'
        elsif number.size==4 && (
            number[0]==2&&number[1]==3&&number[2]==4&&number[3]==14 ||
            0.step(2).all?{|i|number[i+1]-number[i]==number[1]-number[0]}
        ) then puts '4S'
        else
            puts '-'
        end
    end
end