くねくね増加列

携帯だけで書いた下書き：http://ideone.com/36z2ZE

メモ化再帰にもっていけたのは「長くなるように、増え続けるように」(140805追記)のおかげだと思っています。

hena23.rb

#!/usr/bin/env ruby
#http://qiita.com/Nabetani/items/7ba11167ea28c929fcf2
#http://nabetani.sakura.ne.jp/hena/ord23snakemoinc/
class Hena23
    def initialize(a)
        @a=a
        @memo={}
    end
    def dfs(x,y,nprev)
        return 0 if x<0||@a[0].size<=x || y<0||@a.size<=y || @a[y][x]<=nprev
        return @memo[[x,y]]||=[[-1,0],[1,0],[0,-1],[0,1]].map{|_x,_y|
            dfs(x+_x,y+_y,@a[y][x])+1
        }.max
    end
    def run
        @a.size.times.lazy.map{|y|
            @a[0].size.times.lazy.map{|x|
                dfs(x,y,-1)
            }.max
        }.max
    end
end

if $0==__FILE__
    STDOUT.sync=true
    while gets
        p Hena23.new($_.chomp.split('/').map{|e|e.split('').map(&:to_i)}).run
    end
end