#Dan Pan

#Senior 3 Division

#Cranbrook Kingswood School

#ACSL 4 - Pathways (Language - Perl; Use "Pathways.txt" as input)

@K=(-11,-10,-9,-1,1,9,10,11);open F,"Pathways.txt";chomp(@F=<F>);

@G=split/[,\s]+/,$F[0];while(@G){$G{join'',splice@G,0,2}=1}

for(@F[1..5]){

($p,$q,$r,$s)=split/[,\s]+/;$a=$p*10+$q;$b=$r*10+$s;

$m=99;R($a,$b,0);print$m==99?"NONE":$m,"\n";

}

sub R{

my($x,$y,$d)=@_;

if(!$G{$x}){}

elsif($x==$y&&$d<$m){$m=$d}

else{for(@K){delete$G{$x};R($x+$_,$y,$d+1);$G{$x}=1}}

}