Cacher is the code snippet organizer for pro developers

-- COUNT MATCHING LIST ITEMS
on count_matches(list_one, list_two)
	set matches_found to 0
	repeat with i from 1 to count of list_one
		repeat with ii from 1 to count of list_two
			if item ii of list_two = item i of list_one then
				set matches_found to matches_found + 1
			end if
		end repeat
	end repeat
	return matches_found
end count_matches