challenge-194/james-smith/perl/ch-2.pl


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

#!/usr/local/bin/perl

use strict;

use warnings;
use feature qw(say);
use Test::More;
use Benchmark qw(cmpthese timethis);

my @TESTS = ( ['abbc',1],['xyzyyxz',1],['xzxz',0] );

is( check( $_->[0] ), $_->[1] ) for @TESTS;
done_testing();

sub check {
  my %f; $f{$_} ++ for split //, $_[0];
  sub { @_<2 || $_[0]==$_[1]+1 && $_[-1]==$_[1] }->( sort {$b<=>$a} values %f ) || 0;
}