From 8889ec57693a0dabf7a4f953ac9e37f1cb9c40a6 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Fri, 12 Apr 2019 16:02:42 +0100
Subject: - Moved script to correct folder.

---
 challenge-003/steve-rogerson/ch-1.pl       | 29 -----------------------------
 challenge-003/steve-rogerson/perl5/ch-1.pl | 29 +++++++++++++++++++++++++++++
 2 files changed, 29 insertions(+), 29 deletions(-)
 delete mode 100755 challenge-003/steve-rogerson/ch-1.pl
 create mode 100755 challenge-003/steve-rogerson/perl5/ch-1.pl

diff --git a/challenge-003/steve-rogerson/ch-1.pl b/challenge-003/steve-rogerson/ch-1.pl
deleted file mode 100755
index e1378eaec3..0000000000
--- a/challenge-003/steve-rogerson/ch-1.pl
+++ /dev/null
@@ -1,29 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use List::Util 'min';
-use Const::Fast;
-use 5.010;
-
- 
-sub hamming {
-    my ($arg) = @_;
-    $arg ||= 0; # pass 1 to restart.
-    state  %s;
-    if (! %s or  $arg ==1 ) {
-        %s = (1=>1); # 1 is the first hamming number.
-    }
-    my $next = min (keys %s); 
-    delete $s{$next};
-    for (2,3,5) {
-        $s{$next * $_} = 1;
-    }
-    return $next;
-}
- 
-my $i =0;
-++$i, print hamming(), " " until $i > 20;
-print "...\n";
- 
-++$i, hamming() until $i == 1690;
-print ++$i, "-th: ", hamming(), "\n";
diff --git a/challenge-003/steve-rogerson/perl5/ch-1.pl b/challenge-003/steve-rogerson/perl5/ch-1.pl
new file mode 100755
index 0000000000..e1378eaec3
--- /dev/null
+++ b/challenge-003/steve-rogerson/perl5/ch-1.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use List::Util 'min';
+use Const::Fast;
+use 5.010;
+
+ 
+sub hamming {
+    my ($arg) = @_;
+    $arg ||= 0; # pass 1 to restart.
+    state  %s;
+    if (! %s or  $arg ==1 ) {
+        %s = (1=>1); # 1 is the first hamming number.
+    }
+    my $next = min (keys %s); 
+    delete $s{$next};
+    for (2,3,5) {
+        $s{$next * $_} = 1;
+    }
+    return $next;
+}
+ 
+my $i =0;
+++$i, print hamming(), " " until $i > 20;
+print "...\n";
+ 
+++$i, hamming() until $i == 1690;
+print ++$i, "-th: ", hamming(), "\n";
-- 
cgit