diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-11-29 07:12:59 +0000 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-11-29 07:12:59 +0000 |
| commit | 5d92143764fb5c8fce90edd16f6938a8470622b3 (patch) | |
| tree | eb3645549aa1364f81ea6e314692010f305a1668 /challenge-137 | |
| parent | 2b768566060b5d403f2fd3730171f7087e93018a (diff) | |
| download | perlweeklychallenge-club-5d92143764fb5c8fce90edd16f6938a8470622b3.tar.gz perlweeklychallenge-club-5d92143764fb5c8fce90edd16f6938a8470622b3.tar.bz2 perlweeklychallenge-club-5d92143764fb5c8fce90edd16f6938a8470622b3.zip | |
links in blogs < & >
Diffstat (limited to 'challenge-137')
| -rw-r--r-- | challenge-137/james-smith/perl/ch-2.pl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/challenge-137/james-smith/perl/ch-2.pl b/challenge-137/james-smith/perl/ch-2.pl index 12637c00b5..54be96fd59 100644 --- a/challenge-137/james-smith/perl/ch-2.pl +++ b/challenge-137/james-smith/perl/ch-2.pl @@ -9,7 +9,7 @@ use Benchmark qw(cmpthese timethis); use Data::Dumper qw(Dumper); my $MAX = 1e9; -my $S_MAX = 1e6; +my $S_MAX = 1e7; my $MULT = 100; my $COUNT = 500; my @TESTS = ( @@ -63,9 +63,9 @@ sub lychrel_large_seed { use Time::HiRes qw(time); my $time = time; -print "Simple:"; +print "\n\nSimple:"; print " $_" for grep { lychrel $_ } 10..1000; -print "** time ", time - $time; +print "\n\n** time ", time - $time; foreach my $n (10..$S_MAX) { if( defined $seeds{$n} ) { @@ -74,15 +74,15 @@ foreach my $n (10..$S_MAX) { } $lychrel{$n}=1 if lychrel_large_seed($n); } -print "\nSieve: "; +print "\n\nSieve: "; print join " ", sort { $a <=> $b } keys %lychrel; -print "** time ", time - $time; +print "\n\n** time ", time - $time; print "\n\n"; - +exit; $time = time; -print "\nLarge: "; +print "\n\nLarge: "; print " $_" for grep { lychrel_large $_ } 10..$S_MAX; -print "** time ", time - $time; +print "\n\n** time ", time - $time; print "\n\n"; $time = time; |