[ create a new paste ] login | about

Link: http://codepad.org/KDtxx11F    [ raw code | output | fork ]

Perl, pasted on Feb 5: 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

use strict;
use warnings;
use bigint;
$n = Math::BigInt->new("2");
$b = Math::BigInt->new("0");
$baisu = Math::BigInt->new("2");

@era = ("0") x 775145;
for($n; $n <= 775145; $n++){
	if(!@era[$n]){
		$b = $n * $baisu;
		do{
			@era[$b] = 1;
			$baisu++;
			$b = $n * $baisu;
		}while($b <= 775145);
	}
}

do{
	print ($length = @era) if(!($n = pop(@era)));
}while($n);


Output: 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

Scalar value @era[$n] better written as $era[$n] at line 10.
Scalar value @era[$b] better written as $era[$b] at line 13.
Global symbol "$n" requires explicit package name at line 4.
Global symbol "$baisu" requires explicit package name at line 6.
Global symbol "@era" requires explicit package name at line 8.
Global symbol "$n" requires explicit package name at line 9.
Global symbol "$n" requires explicit package name at line 9.
Global symbol "$n" requires explicit package name at line 9.
Global symbol "@era" requires explicit package name at line 10.
Global symbol "$n" requires explicit package name at line 10.
Global symbol "$n" requires explicit package name at line 11.
Global symbol "$baisu" requires explicit package name at line 11.
Global symbol "@era" requires explicit package name at line 13.
Global symbol "$baisu" requires explicit package name at line 14.
Global symbol "$n" requires explicit package name at line 15.
Global symbol "$baisu" requires explicit package name at line 15.
Global symbol "$length" requires explicit package name at line 21.
Global symbol "@era" requires explicit package name at line 21.
Global symbol "$n" requires explicit package name at line 21.
Global symbol "@era" requires explicit package name at line 21.
Global symbol "$n" requires explicit package name at line 22.
Execution aborted due to compilation errors.


Create a new paste based on this one


Comments: