Merge pull request #10204 from pjcs00/wk272

Week 272 - Fags and strings

3 files changed, 43 insertions, 0 deletions

diff --git a/challenge-272/peter-campbell-smith/blog.txt b/challenge-272/peter-campbell-smith/blog.txt
new file mode 100644
index 0000000000..81a6479eed
--- /dev/null
+++ b/challenge-272/peter-campbell-smith/blog.txt
@@ -0,0 +1 @@
+http://ccgi.campbellsmiths.force9.co.uk/challenge/272
diff --git a/challenge-272/peter-campbell-smith/perl/ch-1.pl b/challenge-272/peter-campbell-smith/perl/ch-1.pl
new file mode 100755
index 0000000000..61e7b99633
--- /dev/null
+++ b/challenge-272/peter-campbell-smith/perl/ch-1.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+# Blog: http://ccgi.campbellsmiths.force9.co.uk/challenge
+
+use v5.26;    # The Weekly Challenge - 3 June 2024
+use utf8;     # Week 272 - task 1 - Defang IP address
+use warnings; # Peter Campbell Smith
+binmode STDOUT, ':utf8';
+
+defang_ip_address('192.168.1.245');
+defang_ip_address('0.0.0.0');
+defang_ip_address('255.255.255.255');
+defang_ip_address('192.168.1.20');
+
+sub defang_ip_address {
+	
+	$_[0] =~ m|(\d+).(\d+).(\d+).(\d+)|;
+	say qq{\nInput:  \$ip = "$_[0]"\nOutput: "$1\[.]$2\[.]$3\[.]$4"};
+}
diff --git a/challenge-272/peter-campbell-smith/perl/ch-2.pl b/challenge-272/peter-campbell-smith/perl/ch-2.pl
new file mode 100755
index 0000000000..081e8fab49
--- /dev/null
+++ b/challenge-272/peter-campbell-smith/perl/ch-2.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+
+# Blog: http://ccgi.campbellsmiths.force9.co.uk/challenge
+
+use v5.26;    # The Weekly Challenge - 3 June 2024
+use utf8;     # Week 272 - task 2 - String score
+use warnings; # Peter Campbell Smith
+binmode STDOUT, ':utf8';
+
+string_score('hello');
+string_score('supercalifragilisticexpialidocious');
+string_score('The Weekly Challenge');
+string_score('aĐbđcĒeēfĔgĕh🞱');
+
+sub string_score {
+	
+	my ($score);
+	
+	$score += abs(ord(substr($_[0], $_, 1)) - 
+		ord(substr($_[0], $_ - 1, 1))) 
+		for 1 .. length($_[0]) - 1;
+	say qq[\nInput:  $_[0]\nOutput: $score];	
+}