summaryrefslogtreecommitdiffstats
path: root/TREE.pl
blob: dbed0f6ee9733895f795cbef3c9c199406b87396 (plain) (blame)
1
2
3
4
5
6
7
8
9
#!/usr/bin/env perl
use strict;
use warnings;
use 5.016;

chomp(my $nodes = <>);
chomp(my @edges = <>);

say $nodes - @edges - 1;