Regex of inverse fizzbuzz.

inv-fizzbuzz.pl

#!perl
use strict;
use warnings;
use Test::More;

my $reg_inv_fizzbuz = qr/^(
    (((((F?B)?F)?F)?B)?F)?Z
    (FBFFBFZ)*
    (F|FB|FBF|FBFF|FBFFB|FBFFBF)
    |(((((F?B)?F)?F)?B)?F)?Z
    |((((F?B)?F)?F)?B)?F
    |(((F?B)?F)?F)?B
    |((F?B)?F)?F
    |(F?B)?F
    |F?B
    |F
)$/x;

like 'F' => $reg_inv_fizzbuz;
like 'B' => $reg_inv_fizzbuz;
like 'FB' => $reg_inv_fizzbuz;
like 'BF' => $reg_inv_fizzbuz;
like 'FFB' => $reg_inv_fizzbuz;
like 'FF' => $reg_inv_fizzbuz;
like 'FBF' => $reg_inv_fizzbuz;
like 'ZF' => $reg_inv_fizzbuz;
unlike 'BFB' => $reg_inv_fizzbuz;
like 'ZFBFFBFZFBFFBFZFBF' => $reg_inv_fizzbuz;
unlike 'ZFBFFBFZFBFFBFZFF' => $reg_inv_fizzbuz;

done_testing;