SPOJ 1112 "Number Steps"

問題：https://www.spoj.pl/problems/NSTEPS/

for {gets stdin t} {$t>0} {incr t -1} {
        scan [gets stdin] {%d %d} x y
        if {$x==$y} {
                set r [expr 2*$y-($y%2?1:0)]
        } elseif {[expr $x-$y]==2} {
                set r [expr 2*$y+($y%2?1:2)]
        } else {
                set r "No Number"
        }
        puts $r
}