#!/usr/local/bin/perl
# day 2015-11

use strict;
use warnings;
use v5.32;
use lib '.';
use Day11 qw( is_valid_password );

my $password = 'hepxcrrq';

do { $password++ } until ( is_valid_password( $password ) );
say "part 1: ", $password;

do { $password++ } until ( is_valid_password( $password ) );
say "part 2: ", $password;