1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#!/usr/local/bin/perl
use strict;
use warnings;
use feature qw(say);
use Test::More;
use Benchmark qw(cmpthese timethis);
use List::Util qw(sum0);
my @TESTS = (
[ [0,1,3], 2 ],
[ [0,1], 2 ],
[ [0..99,101..199], 100 ],
[ [0..9999,10001..19999], 10000 ],
[ [0..999999,1000001..1999999], 1000000 ],
[ [0..9999999,10000001..19999999], 10000000 ],
);
is( missing( @{$_->[0]}), $_->[1] ) for @TESTS;
is( missing_sum( @{$_->[0]}), $_->[1] ) for @TESTS;
cmpthese( -10, {
'missing' => sub { missing( @{$_}) for @TESTS },
'missing_sub' => sub { missing_sub(@{$_}) for @TESTS },
});
sub missing { my $t = @_*(@_+1)/2; $t-=$_ for @_; $t }
sub missing_sum { @_*(@_+1)/2 - sum0 @_ }
|
