From 2d8a083b82911680ed20c43d6d0c2eb017f25efd Mon Sep 17 00:00:00 2001 From: Peter Scott Date: Wed, 8 Jan 2020 16:28:01 -0800 Subject: Short and sweet --- challenge-042/peter-scott/perl/ch-1.sh | 2 ++ challenge-042/peter-scott/perl/ch-2.pl | 10 ++++++++++ challenge-042/peter-scott/perl/ch-2.pl~ | 2 ++ 3 files changed, 14 insertions(+) create mode 100755 challenge-042/peter-scott/perl/ch-1.sh create mode 100755 challenge-042/peter-scott/perl/ch-2.pl create mode 100755 challenge-042/peter-scott/perl/ch-2.pl~ (limited to 'challenge-042') diff --git a/challenge-042/peter-scott/perl/ch-1.sh b/challenge-042/peter-scott/perl/ch-1.sh new file mode 100755 index 0000000000..5f5fc77bd1 --- /dev/null +++ b/challenge-042/peter-scott/perl/ch-1.sh @@ -0,0 +1,2 @@ +#!/bin/sh +perl -E 'say sprintf "Decimal %d = Octal %o", $_, $_ for 0 .. 50' diff --git a/challenge-042/peter-scott/perl/ch-2.pl b/challenge-042/peter-scott/perl/ch-2.pl new file mode 100755 index 0000000000..28a06ddeaf --- /dev/null +++ b/challenge-042/peter-scott/perl/ch-2.pl @@ -0,0 +1,10 @@ +#!/usr/bin/env perl +use 5.016; + +my ($MIN_STR_LEN, $MAX_STR_LEN) = (4,10); +my $string_length = int( rand( $MAX_STR_LEN - $MIN_STR_LEN ) ) + $MIN_STR_LEN; +my $string = ''; +$string .= @{[qw{ ( ) }]}[rand 2] for 1 .. $string_length; +print "$string - "; +1 while $string =~ s/\(\)//; +say $string ? "NOT OK" : "OK"; diff --git a/challenge-042/peter-scott/perl/ch-2.pl~ b/challenge-042/peter-scott/perl/ch-2.pl~ new file mode 100755 index 0000000000..7dd7a7f00f --- /dev/null +++ b/challenge-042/peter-scott/perl/ch-2.pl~ @@ -0,0 +1,2 @@ +#!/usr/bin/env perl + -- cgit