$| = 1;我的$champ=“”；我的$u=0；a小节{my$r=join（“”=>反向拆分/（.）/，sprintf“%b”，移位）；而（1）{my$p=指数（$champ，$r）；如果（$p>=0）{返回$p；}其他{$冠军=sprintf“%b”，$u++；}}}每个$n（0..2**13）{我的$v=a（$n）；打印“$n$v\n”；}