From 16dce2351be4f85df717afaae3b5353f5aa6be68 Mon Sep 17 00:00:00 2001
From: 冯昶 <fengchang@novel-supertv.com>
Date: Tue, 20 May 2025 10:14:19 +0800
Subject: add ch-2a.raku

---
 challenge-322/feng-chang/raku/ch-2a.raku | 5 +++++
 challenge-322/feng-chang/raku/test.raku  | 4 ++++
 2 files changed, 9 insertions(+)
 create mode 100755 challenge-322/feng-chang/raku/ch-2a.raku

diff --git a/challenge-322/feng-chang/raku/ch-2a.raku b/challenge-322/feng-chang/raku/ch-2a.raku
new file mode 100755
index 0000000000..fb6f231ab3
--- /dev/null
+++ b/challenge-322/feng-chang/raku/ch-2a.raku
@@ -0,0 +1,5 @@
+#!/bin/env raku
+
+unit sub MAIN(*@ints);
+
+put @ints.sort.unique.antipairs.Hash{ @ints } »+» 1;
diff --git a/challenge-322/feng-chang/raku/test.raku b/challenge-322/feng-chang/raku/test.raku
index 98ba491db7..feb9a3d165 100755
--- a/challenge-322/feng-chang/raku/test.raku
+++ b/challenge-322/feng-chang/raku/test.raku
@@ -22,3 +22,7 @@ pwc-test './ch-1.raku', '--', '-A-B-CD-E', 4, 'A-BCDE',  'String Format: $str="-
 pwc-test './ch-2.raku', <55 22 44 33>, '4 1 3 2',   'Rank Array: (55,22,44,33) => (4,1,3,2)';
 pwc-test './ch-2.raku', <10 10 10>,    '1 1 1',     'Rank Array: (10,10,10)    => (1,1,1)';
 pwc-test './ch-2.raku', <5 1 1 4 3>,   '4 1 1 3 2', 'Rank Array: (5,1,1,4,3)   => (4,1,1,3,2)';
+
+pwc-test './ch-2a.raku', <55 22 44 33>, '4 1 3 2',   'Rank Array: (55,22,44,33) => (4,1,3,2)';
+pwc-test './ch-2a.raku', <10 10 10>,    '1 1 1',     'Rank Array: (10,10,10)    => (1,1,1)';
+pwc-test './ch-2a.raku', <5 1 1 4 3>,   '4 1 1 3 2', 'Rank Array: (5,1,1,4,3)   => (4,1,1,3,2)';
-- 
cgit