From 9b56207d14f09c06c6f4f480f2981366edc8de0a Mon Sep 17 00:00:00 2001
From: 冯昶 <fengchang@novel-supertv.com>
Date: Mon, 1 Apr 2024 16:03:05 +0800
Subject: challenge 263, raku solutions

---
 challenge-263/feng-chang/raku/ch-1.raku |  6 ++++++
 challenge-263/feng-chang/raku/ch-2.raku | 10 ++++++++++
 challenge-263/feng-chang/raku/test.raku | 27 +++++++++++++++++++++++++++
 3 files changed, 43 insertions(+)
 create mode 100755 challenge-263/feng-chang/raku/ch-1.raku
 create mode 100755 challenge-263/feng-chang/raku/ch-2.raku
 create mode 100755 challenge-263/feng-chang/raku/test.raku

diff --git a/challenge-263/feng-chang/raku/ch-1.raku b/challenge-263/feng-chang/raku/ch-1.raku
new file mode 100755
index 0000000000..7f02543374
--- /dev/null
+++ b/challenge-263/feng-chang/raku/ch-1.raku
@@ -0,0 +1,6 @@
+#!/bin/env raku
+
+unit sub MAIN(*@ints);
+
+my \k = @ints.pop;
+put @ints.sort.grep(k, :k).gist;
diff --git a/challenge-263/feng-chang/raku/ch-2.raku b/challenge-263/feng-chang/raku/ch-2.raku
new file mode 100755
index 0000000000..aa93ae7c2a
--- /dev/null
+++ b/challenge-263/feng-chang/raku/ch-2.raku
@@ -0,0 +1,10 @@
+#!/bin/env raku
+
+unit sub MAIN(Str:D $s1, Str:D $s2);
+
+use MONKEY-SEE-NO-EVAL;
+
+my @items = EVAL "$s1, $s2";
+my %merged;
+%merged{$_[0]} += $_[1] for @items;
+put %merged.keys.sort.map({ [ +$_, %merged{$_} ] }).Array.raku;
diff --git a/challenge-263/feng-chang/raku/test.raku b/challenge-263/feng-chang/raku/test.raku
new file mode 100755
index 0000000000..8a2cd6dc4c
--- /dev/null
+++ b/challenge-263/feng-chang/raku/test.raku
@@ -0,0 +1,27 @@
+#!/bin/env raku
+
+# The Weekly Challenge 263
+use Test;
+
+sub pwc-test(Str:D $script, Bool :$deeply? = False, *@input) {
+    my ($expect, $assertion) = @input.splice(*-2, 2);
+    my $p = run $script, |@input, :out;
+    if $deeply {
+        is-deeply $p.out.slurp(:close).chomp.words.Bag, $expect, $assertion;
+    } else {
+        is $p.out.slurp(:close).chomp, $expect, $assertion;
+    }
+}
+
+# Task 1, Target Index
+pwc-test './ch-1.raku', <1 5 3 2 4 2>, 2, '(1 2)', 'Target Index: @ints = (1,5,3,2,4,2), $k=2 => (1, 2)';
+pwc-test './ch-1.raku', <1 2 4 3 5>,   6, '()',    'Target Index: @ints = (1,2,4,3,5),   $k=6 => ()';
+pwc-test './ch-1.raku', <5 3 2 4 2 1>, 4, '(4)',   'Target Index: @ints = (5,3,2,4,2,1), $k=4 => (4)';
+
+# Task 2, Merge Items
+pwc-test './ch-2.raku', '[1,1],[2,1],[3,2]', '[2,2],[1,3]', '[[1, 4], [2, 3], [3, 2]]',
+    'Merge Items: $items1 = [[1,1],[2,1],[3,2]],       $items2 = [[2,2],[1,3]] => [[1,4],[2,3],[3,2]]';
+pwc-test './ch-2.raku', '[1,2],[2,3],[1,3],[3,2]', '[3,1],[1,3]', '[[1, 8], [2, 3], [3, 3]]',
+    'Merge Items: $items1 = [[1,2],[2,3],[1,3],[3,2]], $items2 = [[3,1],[1,3]] => [[1,8],[2,3],[3,3]]';
+pwc-test './ch-2.raku', '[1,1],[2,2],[3,3]', '[2,3],[2,4]', '[[1, 1], [2, 9], [3, 3]]',
+    'Merge Items: $items1 = [[1,1],[2,2],[3,3]],       $items2 = [[2,3],[2,4]] => [[1, 1], [2, 9], [3, 3]]';
-- 
cgit 


From e8291e11dd0db9f18879945797a3abbf0752e1c3 Mon Sep 17 00:00:00 2001
From: 冯昶 <fengchang@novel-supertv.com>
Date: Mon, 1 Apr 2024 16:17:12 +0800
Subject: ch-2a.raku: task 2 1-liner

---
 challenge-263/feng-chang/raku/ch-2a.raku | 7 +++++++
 challenge-263/feng-chang/raku/test.raku  | 7 +++++++
 2 files changed, 14 insertions(+)
 create mode 100755 challenge-263/feng-chang/raku/ch-2a.raku

diff --git a/challenge-263/feng-chang/raku/ch-2a.raku b/challenge-263/feng-chang/raku/ch-2a.raku
new file mode 100755
index 0000000000..1b8f481323
--- /dev/null
+++ b/challenge-263/feng-chang/raku/ch-2a.raku
@@ -0,0 +1,7 @@
+#!/bin/env raku
+
+unit sub MAIN(Str:D $s1, Str:D $s2);
+
+use MONKEY-SEE-NO-EVAL;
+
+put (EVAL "$s1, $s2").map({ $_[0] xx $_[1] }).Bag.sort(+*.key).map({ [+.key, .value] }).Array.raku;
diff --git a/challenge-263/feng-chang/raku/test.raku b/challenge-263/feng-chang/raku/test.raku
index 8a2cd6dc4c..c35a6af606 100755
--- a/challenge-263/feng-chang/raku/test.raku
+++ b/challenge-263/feng-chang/raku/test.raku
@@ -25,3 +25,10 @@ pwc-test './ch-2.raku', '[1,2],[2,3],[1,3],[3,2]', '[3,1],[1,3]', '[[1, 8], [2,
     'Merge Items: $items1 = [[1,2],[2,3],[1,3],[3,2]], $items2 = [[3,1],[1,3]] => [[1,8],[2,3],[3,3]]';
 pwc-test './ch-2.raku', '[1,1],[2,2],[3,3]', '[2,3],[2,4]', '[[1, 1], [2, 9], [3, 3]]',
     'Merge Items: $items1 = [[1,1],[2,2],[3,3]],       $items2 = [[2,3],[2,4]] => [[1, 1], [2, 9], [3, 3]]';
+
+pwc-test './ch-2a.raku', '[1,1],[2,1],[3,2]', '[2,2],[1,3]', '[[1, 4], [2, 3], [3, 2]]',
+    'Merge Items: $items1 = [[1,1],[2,1],[3,2]],       $items2 = [[2,2],[1,3]] => [[1,4],[2,3],[3,2]]';
+pwc-test './ch-2a.raku', '[1,2],[2,3],[1,3],[3,2]', '[3,1],[1,3]', '[[1, 8], [2, 3], [3, 3]]',
+    'Merge Items: $items1 = [[1,2],[2,3],[1,3],[3,2]], $items2 = [[3,1],[1,3]] => [[1,8],[2,3],[3,3]]';
+pwc-test './ch-2a.raku', '[1,1],[2,2],[3,3]', '[2,3],[2,4]', '[[1, 1], [2, 9], [3, 3]]',
+    'Merge Items: $items1 = [[1,1],[2,2],[3,3]],       $items2 = [[2,3],[2,4]] => [[1, 1], [2, 9], [3, 3]]';
-- 
cgit