challenge-279/e-choroba/perl/ch-2.pl


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

#!/usr/bin/perl
use warnings;
use strict;
use experimental qw( signatures );

sub split_string($string) {
    my $tally = $string =~ tr/aeiou//;
    return 0 == $tally % 2
}

use Test::More tests => 3;

ok ! split_string('perl'),         'Example 1';
ok   split_string('book'),         'Example 2';
ok   split_string('good morning'), 'Example 3';