From 26b8451d7962c823ef3196e83b9407c259118272 Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Sun, 20 Feb 2022 20:29:25 +0100
Subject: solution week 152

---
 challenge-152/wambash/raku/ch-1.raku | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 challenge-152/wambash/raku/ch-1.raku

diff --git a/challenge-152/wambash/raku/ch-1.raku b/challenge-152/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..078bd7a9f6
--- /dev/null
+++ b/challenge-152/wambash/raku/ch-1.raku
@@ -0,0 +1,18 @@
+#!/usr/bin/env raku
+
+sub triangle-sum-path (+@triangle) {
+    @triangle
+    andthen .map: *.min
+    andthen .sum
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is triangle-sum-path( 1; 5,3; 2,3,4; 7,1,0,2; 6,4,5,2,8 ), 8;
+    is triangle-sum-path( 5; 2,3; 4,1,5; 0,1,2,3; 7,2,4,1,9 ), 9;
+    done-testing;
+}
+
+multi MAIN (+@triangle) {
+    say triangle-sum-path @triangle.map: *.comb: /\d+/
+}
-- 
cgit