Blog Code Snippets

gcj_code_2008.ds

let n (Int (read-line))
for-range i 0 n
	let s (Int (read-line))
	let possible-engines {}
	for-range j 0 s
		let e (read-line)
		add possible-engines e true
	let q (Int (read-line))
	let switches 0
	let seen-engines {}
	for-range j 0 q
		let e (read-line)
		add seen-engines e true
		if (eq (count seen-engines) (count possible-engines))
			let seen-engines {e: true,}
			++ switches
	print "Case #"
	print (+ i 1)
	print ": "
	println switches
	
// here's a map
let x {
  true: "foo",
  false: "bar",
}