Help for this page

Select Code to Download

Select or download this

# https://perlmonks.org/?node_id=11142871
use v5.12;
...
      );

Select or download this

[2, [0, 1, 0, 2, 0]] =>     yes
[2, [1, 0, 5, 0, 1]] =>     yes
...
[3, [1, 0, 0, 1, 0, 0, 1]] =>     no
[2, [1, 0, 8, 0, 1]] =>     yes
[3, [undef, 0, 0, undef, 0, 0, 1]] =>     yes