我的当前百分比=（）；编号已存在我的$binary_repr=“”；#目前为止的二进制表示我的$zeroone_repr=“”；迄今为止十进制表示中的#0和#1subcompute_next_term{我的$try=1；而（1）{if（存在$present{$try}）{#已经看过了}其他{my$binary=sprintf（“%b”，$try）；my$zeroone=“$try”；$zeroone=~s，[^01]+，，g；if（substr（$binary_repr.$binary，0，长度（$zeroone_repr）+长度（$zeroone））ne（$zeroone_repr.$zeroone）{#矛盾}其他{$present{$try}=1；$binary_repr.=$二元的；$zeroone_repr.=$零点；返回$try；}}$try++；}}每个$n（1..10_000）{打印$，“”，compute_next_term（），“\n”；}