2015/08.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.16;
   4 use strict;
   5
   6 use Digest::MD5 qw(md5_hex);
   7
   8 my $in = 'ckczppom';
   9 my $num = 0;
  10 $num++ while md5_hex("$in$num") !~ /^000000/;
  11
  12 say $num;
  13