challenge-201/deadmarshal/perl/ch-1.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#!/usr/bin/env perl
use strict;
use warnings;
use Set::Scalar;

sub missing_numbers{
  my ($a,$b) = (Set::Scalar->new,Set::Scalar->new);
  $a->insert(@{$_[0]});
  $b->insert(0..@{$_[0]});
  $b - $a;
}

printf "%s\n", missing_numbers([0,1,3]);
printf "%s\n", missing_numbers([0,1]);