<>; while($n=<>){ @a=glob<>; print$a[0]!=1||$a[-1]!=$n||grep(($d=abs$a[$_]-$a[$_-1])!=1&&$d!=$n-1,1..$#a)?No:Yes,$/; } # 嘘解法