Write ch-1.pl for task #! - trailing zeroes.

1 files changed, 12 insertions, 0 deletions

diff --git a/challenge-072/simon-miner/perl/ch-1.pl b/challenge-072/simon-miner/perl/ch-1.pl
new file mode 100755
index 0000000000..248cd2d04c
--- /dev/null
+++ b/challenge-072/simon-miner/perl/ch-1.pl
@@ -0,0 +1,12 @@
+use strict;
+use warnings;
+
+my $n = shift @ARGV;
+die "Please specify a number between 1 and 10.\n" unless $n =~ m/^\d+$/ && $n <= 10;
+
+my $fact = 1;
+$fact *= $_ for ( 1 .. $n );
+my ( $trailing_zeroes ) = ( $fact =~ m/(0+)$/ );
+my $trailing_zero_count = defined( $trailing_zeroes ) ? length( $trailing_zeroes ) : 0;
+
+print "$trailing_zero_count ($n! = $fact)\n";