fork(2) 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.06s 9656KB
stdin
I like dogs
I like cats
^
^^^
^^
I like turtles
^
^^^
^^
stdout
{"I like dogs"=>2, "I like cats"=>4, "I like turtles"=>3}