diff options
| author | brxfork <ph.bricout@gmail.com> | 2022-06-22 17:57:35 +0200 |
|---|---|---|
| committer | brxfork <ph.bricout@gmail.com> | 2022-06-22 17:57:35 +0200 |
| commit | 77c1b30b28c8077e042f72513095fd456089bb5a (patch) | |
| tree | d78a66e8dc66fd40689cd1d97cabb47be52d25f4 | |
| parent | 81cfb6211946c15f45696f3102a57d3aede7a4c4 (diff) | |
| download | perlweeklychallenge-club-77c1b30b28c8077e042f72513095fd456089bb5a.tar.gz perlweeklychallenge-club-77c1b30b28c8077e042f72513095fd456089bb5a.tar.bz2 perlweeklychallenge-club-77c1b30b28c8077e042f72513095fd456089bb5a.zip | |
one-liner with regex for challenge 170
| -rw-r--r-- | challenge-170/brxfork/README | 1 | ||||
| -rwxr-xr-x | challenge-170/brxfork/perl/ch-1.sh | 2 |
2 files changed, 3 insertions, 0 deletions
diff --git a/challenge-170/brxfork/README b/challenge-170/brxfork/README new file mode 100644 index 0000000000..5eb20c6be7 --- /dev/null +++ b/challenge-170/brxfork/README @@ -0,0 +1 @@ +Solution by Philippe Bricout. diff --git a/challenge-170/brxfork/perl/ch-1.sh b/challenge-170/brxfork/perl/ch-1.sh new file mode 100755 index 0000000000..6ab8d623aa --- /dev/null +++ b/challenge-170/brxfork/perl/ch-1.sh @@ -0,0 +1,2 @@ +#!/bin/sh + perl -E 'while(@p < 10) { $_.="x";/^(.{2,})\1+$/ or push @p,($p[-1]//1)*length};say "@p"' |