diff options
| author | 冯昶 <fengchang@novel-supertv.com> | 2025-05-20 10:14:19 +0800 |
|---|---|---|
| committer | 冯昶 <fengchang@novel-supertv.com> | 2025-05-20 10:14:19 +0800 |
| commit | 16dce2351be4f85df717afaae3b5353f5aa6be68 (patch) | |
| tree | 59c4ad4851dd089dbf7369a36d73054ce34381e5 | |
| parent | 6fee2ba14176b54a3109202a1334dac2ea3b49d6 (diff) | |
| download | perlweeklychallenge-club-16dce2351be4f85df717afaae3b5353f5aa6be68.tar.gz perlweeklychallenge-club-16dce2351be4f85df717afaae3b5353f5aa6be68.tar.bz2 perlweeklychallenge-club-16dce2351be4f85df717afaae3b5353f5aa6be68.zip | |
add ch-2a.raku
| -rwxr-xr-x | challenge-322/feng-chang/raku/ch-2a.raku | 5 | ||||
| -rwxr-xr-x | challenge-322/feng-chang/raku/test.raku | 4 |
2 files changed, 9 insertions, 0 deletions
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)'; |