Counts word pairs with a specified relation in conllu data. For example, if the relation is "dobj", the script finds all verb-direct object pairs and counts their occurances.

count_pairs.röd

main(relation) {
	lines := new map
	replace("\\s+", " ") |
		splitMany() | addTail(["0"]) |
		for line do
			continue if [ #line < 7 ]
			if [ line[0] =~ "0|1" ] do
				keys(lines) | [lines[_]] | for l if [ l[7] = relation ] do
					push(lines[l[6]][2].."<-"..l[2])
				done
			done
			lines = new map if [ line[0] = "1" ]
			lines[line[0]] = line
		done |
		lowerCase(_) |
		sort() |
		unorderedCount() |
		[[-_2, _1]] |
		sort() |
		print(`${-_1[0]} ${_1[1]}`)
}