From f991b438092e162301a0a1119123a095ca32c099 Mon Sep 17 00:00:00 2001 From: 冯昶 Date: Mon, 15 May 2023 16:35:23 +0800 Subject: challenge 217, raku solutions --- challenge-217/feng-chang/raku/ch-1.raku | 7 +++++++ challenge-217/feng-chang/raku/ch-2.raku | 5 +++++ challenge-217/feng-chang/raku/test.raku | 27 +++++++++++++++++++++++++++ 3 files changed, 39 insertions(+) create mode 100755 challenge-217/feng-chang/raku/ch-1.raku create mode 100755 challenge-217/feng-chang/raku/ch-2.raku create mode 100755 challenge-217/feng-chang/raku/test.raku diff --git a/challenge-217/feng-chang/raku/ch-1.raku b/challenge-217/feng-chang/raku/ch-1.raku new file mode 100755 index 0000000000..f6251cfa0c --- /dev/null +++ b/challenge-217/feng-chang/raku/ch-1.raku @@ -0,0 +1,7 @@ +#!/bin/env raku + +unit sub MAIN(Str:D $s); + +use MONKEY-SEE-NO-EVAL; + +put (EVAL $s)[*;*].sort[2]; diff --git a/challenge-217/feng-chang/raku/ch-2.raku b/challenge-217/feng-chang/raku/ch-2.raku new file mode 100755 index 0000000000..dbc1e0ffdc --- /dev/null +++ b/challenge-217/feng-chang/raku/ch-2.raku @@ -0,0 +1,5 @@ +#!/bin/env raku + +unit sub MAIN(*@N); + +put @N.permutations».join.max; diff --git a/challenge-217/feng-chang/raku/test.raku b/challenge-217/feng-chang/raku/test.raku new file mode 100755 index 0000000000..cc8e2a355d --- /dev/null +++ b/challenge-217/feng-chang/raku/test.raku @@ -0,0 +1,27 @@ +#!/bin/env raku + +# The Weekly Challenge 217 +use Test; + +sub pwc-test(Str:D $script, *@input) { + my ($expect, $assertion) = @input.splice(*-2, 2); + my $p = run $script, |@input, :out; + is $p.out.slurp(:close).chomp, $expect, $assertion; +} + +# Task 1, Sorted Matrix +pwc-test './ch-1.raku', '[3, 1, 2], [5, 2, 4], [0, 1, 3]', 1, + "Sorted Matrix: @matrix = ([3, 1, 2], [5, 2, 4], [0, 1, 3]) => 1"; +pwc-test './ch-1.raku', '[2, 1], [4, 5]', 4, + "Sorted Matrix: @matrix = ([2, 1], [4, 5]) => 4"; +pwc-test './ch-1.raku', '[1, 0, 3], [0, 0, 0], [1, 2, 1]', 0, + "Sorted Matrix: @matrix = ([1, 0, 3], [0, 0, 0], [1, 2, 1]) => 0"; + +# Task 2, Max Number +pwc-test './ch-2.raku', |<1 23>, 231, 'Max Number: (1, 23) => 231'; +pwc-test './ch-2.raku', |<10 3 2>, 3210, 'Max Number: (10, 3, 2) => 3210'; +pwc-test './ch-2.raku', |<31 2 4 10>, 431210, 'Max Number: (31, 2, 4, 10) => 431210'; +pwc-test './ch-2.raku', |<5 11 4 1 2>, 542111, 'Max Number: (5, 11, 4, 1, 2) => 542111'; +pwc-test './ch-2.raku', |<1 10>, 110, 'Max Number: (1, 10) => 110'; + +done-testing; -- cgit From 32f9a86fea5f20beedecde80d86b8919ef80d812 Mon Sep 17 00:00:00 2001 From: 冯昶 Date: Wed, 17 May 2023 14:15:42 +0800 Subject: update README.md for new blog --- challenge-215/feng-chang/README.md | 2 +- challenge-216/feng-chang/README.md | 2 +- challenge-217/feng-chang/README.md | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/challenge-215/feng-chang/README.md b/challenge-215/feng-chang/README.md index 2ce326a102..26526f5e69 100644 --- a/challenge-215/feng-chang/README.md +++ b/challenge-215/feng-chang/README.md @@ -1,2 +1,2 @@ # blog -* [PWC #215](https://seaker.github.io/jekyll/update/2023/05/02/PWC-125.html) +* [PWC #215](https://seaker.github.io/jekyll/update/2023/05/02/PWC-215.html) diff --git a/challenge-216/feng-chang/README.md b/challenge-216/feng-chang/README.md index 2ce326a102..b7d80de577 100644 --- a/challenge-216/feng-chang/README.md +++ b/challenge-216/feng-chang/README.md @@ -1,2 +1,2 @@ # blog -* [PWC #215](https://seaker.github.io/jekyll/update/2023/05/02/PWC-125.html) +* [PWC #216](https://seaker.github.io/jekyll/update/2023/05/08/PWC-216.html) diff --git a/challenge-217/feng-chang/README.md b/challenge-217/feng-chang/README.md index 2ce326a102..702601dc27 100644 --- a/challenge-217/feng-chang/README.md +++ b/challenge-217/feng-chang/README.md @@ -1,2 +1,2 @@ # blog -* [PWC #215](https://seaker.github.io/jekyll/update/2023/05/02/PWC-125.html) +* [PWC #217](https://seaker.github.io/jekyll/update/2023/05/15/PWC-217.html) -- cgit From 02cf80bbea53085279cf7285e83d5eb0346d514a Mon Sep 17 00:00:00 2001 From: 冯昶 Date: Thu, 18 May 2023 11:45:47 +0800 Subject: fix --- challenge-217/feng-chang/README.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/challenge-217/feng-chang/README.md b/challenge-217/feng-chang/README.md index 702601dc27..6d43a92a22 100644 --- a/challenge-217/feng-chang/README.md +++ b/challenge-217/feng-chang/README.md @@ -1,2 +1,2 @@ # blog -* [PWC #217](https://seaker.github.io/jekyll/update/2023/05/15/PWC-217.html) +* [PWC #217](https://seaker.github.io/jekyll/update/2023/05/16/PWC-217.html) -- cgit