From 1bbb8f12e1d69d8fd57365619e3ebadfdaaa28c6 Mon Sep 17 00:00:00 2001
From: 冯昶 <seaker@qq.com>
Date: Wed, 6 Jan 2021 19:02:55 +0800
Subject: challenge #044, task #1, raku solution

---
 challenge-044/feng-chang/ch-1.raku | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100755 challenge-044/feng-chang/ch-1.raku

diff --git a/challenge-044/feng-chang/ch-1.raku b/challenge-044/feng-chang/ch-1.raku
new file mode 100755
index 0000000000..07e0cb40e8
--- /dev/null
+++ b/challenge-044/feng-chang/ch-1.raku
@@ -0,0 +1,15 @@
+#!/bin/env raku
+
+use MONKEY-SEE-NO-EVAL;
+
+my @even = 0, 2 ... 16;
+my @odd  = 1, 3 ... 15;
+
+my @a;
+@a[@even] = '123456789'.comb».UInt;
+
+for [X] (['', '+', '-'] xx 8) -> @ops {
+    @a[@odd] = @ops;
+    my $s = @a.join;
+    put $s if EVAL($s) == 100;
+}
-- 
cgit