問題：https://www.spoj.pl/problems/BITMAP/ たぶん合ってるけど遅すぎて通らない． for {gets stdin t} {$t>0} {incr t -1} { #puts [time { if ![expr [string compare [set s [gets stdin]] ""]] then { gets stdin s } scan $s {%s %s} n m set queue […