面白いセルの合計

1行ごとに、前の行の面白いセル一覧を取得してから、自分の上にあるセルの中で面白いものを合計。
セルの右端が欠けるので余裕を見ないといけない。この意味で負けな可能性がある。
ちなみに、Rubyで11分、Crystalで2分、Crystal build --releaseで13秒でした。実行時間的にはyhpgですから許容範囲でしょう。

tyama_henae30.rb

#!/usr/bin/ruby
#http://nabetani.sakura.ne.jp/hena/orde30sumt/
#https://qiita.com/Nabetani/items/725e09cc5913a8569c04

while s=gets
    a_,b_=s.chomp.split("/")
    a=a_.split(",").map(&:to_i)
    b=b_.to_i
    width=a[-1]*b*4 ### fixme magic number 4
    #cell id, number
    storage=width.times.map{|i|[i/a[0],i/a[0]+1]}
    (1...a.size).each{|wi|
        interesting={}
        storage.uniq.tap{|z|
            interesting[z[0]]=1
            (1..z.size-2).each{|i|
                interesting[z[i]]=1 if z[i][1]!=z[i-1][1] || z[i][1]!=z[i+1][1]
            }
            interesting[z[-1]]=1
        }
        z0=[]
        w0=a[wi]
        0.step(width-1,w0).with_index{|k,ki|
            su=(k...[k+w0,width].min).select{|i|
                interesting.has_key?(storage[i])
            }.map{|i|
                storage[i]
            }.uniq.map(&:last).reduce(0,:+)%1000
            (k...[k+w0,width].min).each{z0<<[ki,su]}
        }
        storage=z0
    }
    p storage[(b-1)*a[-1]][1]
    STDOUT.flush
end

tyama_henae30.cr

#!/usr/bin/env crystal
#http://nabetani.sakura.ne.jp/hena/orde30sumt/
#https://qiita.com/Nabetani/items/725e09cc5913a8569c04

while s=gets
    a_,b_=s.chomp.split("/")
    a=a_.split(",").map(&.to_i)
    b=b_.to_i
    width=a[-1]*b*4 ### fixme magic number 4
    #cell id, number
    storage=width.times.map{|i|{i/a[0],i/a[0]+1}}.to_a
    (1...a.size).each{|wi|
        interesting=Hash(Tuple(Int32,Int32),Int32).new
        storage.uniq.tap{|z|
            interesting[z[0]]=1
            (1..z.size-2).each{|i|
                interesting[z[i]]=1 if z[i][1]!=z[i-1][1] || z[i][1]!=z[i+1][1]
            }
            interesting[z[-1]]=1
        }
        z0=Array(Tuple(Int32,Int32)).new
        w0=a[wi]
        0.step(to: width-1,by: w0).with_index{|k,ki|
            su=(k...[k+w0,width].min).select{|i|
                interesting.has_key?(storage[i])
            }.map{|i|
                storage[i]
            }.uniq.map(&.last).sum%1000
            (k...[k+w0,width].min).each{z0<<{ki,su}}
        }
        storage=z0
    }
    p storage[(b-1)*a[-1]][1]
    STDOUT.flush
end