perl 161 solution 1

1 files changed, 19 insertions, 0 deletions

diff --git a/challenge-161/julien-fiegehenn/perl/ch-1.pl b/challenge-161/julien-fiegehenn/perl/ch-1.pl
new file mode 100644
index 0000000000..ce487004a6
--- /dev/null
+++ b/challenge-161/julien-fiegehenn/perl/ch-1.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+use feature 'say';
+
+my @dictionary
+  = do { open my $fh, '<', 'data/dictionary.txt' or die $!; <$fh>; };
+chomp @dictionary;
+
+WORD: for my $word (@dictionary) {
+
+  # say $word if join(q{}, sort split //, $word) eq $word; ## this seems like the obvious solution
+  my @letters = split //, $word;
+  for my $i (0 .. $#letters - 1) {
+    next WORD unless ord($letters[$i]) <= ord($letters[$i + 1]);
+  }
+  say $word;
+}