From 7bf229e782fe3a61ff57bbbc39dab2bb3eb005c8 Mon Sep 17 00:00:00 2001
From: 冯昶 <fengchang@novel-supertv.com>
Date: Mon, 9 Jan 2023 17:26:02 +0800
Subject: challenge 199, raku solutions

---
 challenge-199/feng-chang/raku/ch-1.raku  | 7 +++++++
 challenge-199/feng-chang/raku/ch-1a.raku | 5 +++++
 challenge-199/feng-chang/raku/ch-2.raku  | 9 +++++++++
 3 files changed, 21 insertions(+)
 create mode 100755 challenge-199/feng-chang/raku/ch-1.raku
 create mode 100755 challenge-199/feng-chang/raku/ch-1a.raku
 create mode 100755 challenge-199/feng-chang/raku/ch-2.raku

(limited to 'challenge-199')

diff --git a/challenge-199/feng-chang/raku/ch-1.raku b/challenge-199/feng-chang/raku/ch-1.raku
new file mode 100755
index 0000000000..5b485fd2cb
--- /dev/null
+++ b/challenge-199/feng-chang/raku/ch-1.raku
@@ -0,0 +1,7 @@
+#!/bin/env raku
+
+unit sub MAIN(*@N);
+
+put @N.unique.map(-> \j {
+    @N.grep(j, :k).combinations(2).elems
+}).sum;
diff --git a/challenge-199/feng-chang/raku/ch-1a.raku b/challenge-199/feng-chang/raku/ch-1a.raku
new file mode 100755
index 0000000000..c195fde90f
--- /dev/null
+++ b/challenge-199/feng-chang/raku/ch-1a.raku
@@ -0,0 +1,5 @@
+#!/bin/env raku
+
+unit sub MAIN(*@N);
+
+put @N.Bag.values.map({ $_*($_-1)/2 }).sum;
diff --git a/challenge-199/feng-chang/raku/ch-2.raku b/challenge-199/feng-chang/raku/ch-2.raku
new file mode 100755
index 0000000000..486651d5ec
--- /dev/null
+++ b/challenge-199/feng-chang/raku/ch-2.raku
@@ -0,0 +1,9 @@
+#!/bin/env raku
+
+unit sub MAIN(UInt:D $x, UInt:D $y, UInt:D $z, *@N);
+
+put (^+@N).combinations(3).grep({
+    abs(@N[.[0]] - @N[.[1]]) ≤ $x &&
+    abs(@N[.[1]] - @N[.[2]]) ≤ $y &&
+    abs(@N[.[2]] - @N[.[0]]) ≤ $z
+}).elems;
-- 
cgit