duplicates = multiple editions
A Classical Introduction to Modern Number Theory, Kenneth Ireland Michael Rosen
A Classical Introduction to Modern Number Theory, Kenneth Ireland Michael Rosen
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use Test::More; | |
use Benchmark qw{:all}; | |
my @input = 1..9999; | |
sub map_and_grep { map{$_ * 2} grep{ m/9/ } map{$_ / 2} @_ }; |
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use Test::More; | |
=head1 GOAL | |
Given two 'matched' arrayrefs : | |
my $items = ['a','b']; |
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use Test::More; | |
my $bundle = { | |
A => [qw{box widget1}], | |
B => [qw{box widget1 widget2}], | |
C => [qw{box widget1 widget3}], | |
D => [qw{box widget1 widget2 widget3}] |
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use Test::More; | |
use Test::Differences; | |
use List::MoreUtils qw{uniq}; | |
sub pp { | |
my %lookup; | |
my $i; |
Length Count | |
1 17 | |
2 267 | |
3 267 | |
4 169 | |
5 140 | |
6 112 | |
7 99 | |
8 68 | |
9 61 |
Length Count | |
1 17 | |
2 267 | |
3 267 | |
4 169 | |
5 140 | |
6 112 | |
7 99 | |
8 68 | |
9 61 |
1 16 | |
2 267 | |
3 267 | |
4 170 | |
5 140 | |
6 112 | |
7 100 | |
8 68 | |
9 61 | |
10 56 |
1 16 | |
2 267 | |
3 267 | |
4 170 | |
5 140 | |
6 112 | |
7 100 | |
8 68 | |
9 61 | |
10 56 |
1 16 | |
2 267 | |
3 267 | |
4 170 | |
5 140 | |
6 112 | |
7 100 | |
8 68 | |
9 61 | |
10 56 |