Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- $|=1;$N=shift||100;$M=int(3.3*$N)
- ;$t[0]=2;$s[0]=2;sub z{$a=$r=00};
- for( $k=1
- ;$k<$M ;$k++){$a=$r=0; };for(
- $k=01; $k<$M;$k++){&z; for($i
- =$N;$i >=0;$i--){$a=$t [$i]*(
- $k)+$r ;$t[$i]=int($a% 10);${
- r}=int ($a/10);}$K=($k <<1)+1
- ;&{z}; map{$a=$t[$_]+( 10)*((
- $r));; ${t}[$_]=int($a /($K))
- ;${r}= int(($a)%($K))} (0..$N
- );if(( $r>=(int(($K)/2 )))){;
- ;;${t} [$N]++}while($t [$N]>9
- ){${t} [$N]-=10;;$t[$N -1]++}
- &z(); for($i=$N;$i>=0 ;$i--){
- $a= ($t[$i]+$s[$i]+ $r);${s}
- [$i]=int($a%10);$r=int($a/10)}if(
- $k>$x+3){${x}=$k;;print"$s[$y++]"
- ;};}for($y..${N}){print"$s[$_]";}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement