$| = 1;我的$s=“”；#前面所有0和1的串联分机A076478{my$n=班次；return substr（sprintf（“%b”，2+$n），1）；}每个$n（0..2**13）{我的$r=A076478（$n）；如果（索引（$s，$r）<0）{美元=$r；}my$pos=1+索引（$s，$r）；打印“$n$pos\n”；}