fork download
  1. m={}
  2. v={}
  3. i=0
  4. $<.map{|l|(t=l.chop![/\^+/])?v[m[i]=o=m[i-t.size]]+=1:v[m[i]=l]=1;i+=1}
  5. p v
  6.  
Success #stdin #stdout 0.05s 9608KB
stdin
pie
^
^^
pi
^
^^
^^^^
^
^^^^^
^^^^^
^^^
^^^^
^^
^
^^^^^^^^^
stdout
{"pie"=>9, "pi"=>6}