From b3c486a16733a561659444015983c12fd470e181 Mon Sep 17 00:00:00 2001 From: 冯昶 Date: Mon, 19 Aug 2024 17:05:23 +0800 Subject: challenge 283, raku solutions --- challenge-283/feng-chang/raku/ch-1.raku | 5 +++++ challenge-283/feng-chang/raku/ch-2.raku | 5 +++++ challenge-283/feng-chang/raku/test.raku | 24 ++++++++++++++++++++++++ 3 files changed, 34 insertions(+) create mode 100755 challenge-283/feng-chang/raku/ch-1.raku create mode 100755 challenge-283/feng-chang/raku/ch-2.raku create mode 100755 challenge-283/feng-chang/raku/test.raku diff --git a/challenge-283/feng-chang/raku/ch-1.raku b/challenge-283/feng-chang/raku/ch-1.raku new file mode 100755 index 0000000000..8cc7a30c72 --- /dev/null +++ b/challenge-283/feng-chang/raku/ch-1.raku @@ -0,0 +1,5 @@ +#!/bin/env raku + +unit sub MAIN(*@ints); + +put @ints.Bag.grep(*.value == 1).first.key; diff --git a/challenge-283/feng-chang/raku/ch-2.raku b/challenge-283/feng-chang/raku/ch-2.raku new file mode 100755 index 0000000000..198c8b62a5 --- /dev/null +++ b/challenge-283/feng-chang/raku/ch-2.raku @@ -0,0 +1,5 @@ +#!/bin/env raku + +unit sub MAIN(*@ints); + +put so (^+@ints).map({ +@ints.grep($_) == @ints[$_] }).all; diff --git a/challenge-283/feng-chang/raku/test.raku b/challenge-283/feng-chang/raku/test.raku new file mode 100755 index 0000000000..36afaab254 --- /dev/null +++ b/challenge-283/feng-chang/raku/test.raku @@ -0,0 +1,24 @@ +#!/bin/env raku + +# The Weekly Challenge 283 +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, Unique Number +pwc-test './ch-1.raku', <3 3 1>, 1, 'Unique Number: 3,3,1 => 1'; +pwc-test './ch-1.raku', <3 2 4 2 4>, 3, 'Unique Number: 3,2,4,2,4 => 3'; +pwc-test './ch-1.raku', 1, 1, 'Unique Number: 1 => 1'; +pwc-test './ch-1.raku', <4 3 1 1 1 4>, 3, 'Unique Number: 4,3,1,1,1,4 => 3'; + +# Task 2, Digit Count Value +pwc-test './ch-2.raku', <1 2 1 0>, 'True', 'Digit Count Value: 1,2,1,0 => true'; +pwc-test './ch-2.raku', <3 3 0>, 'False', 'Digit Count Value: 3,3,0 => false'; -- cgit