From 4544d3718ef1f18ba899666a4dddaaf69e1bd8cc Mon Sep 17 00:00:00 2001
From: deadmarshal <adeadmarshal@gmail.com>
Date: Wed, 13 Apr 2022 21:17:06 +0430
Subject: Added soltuion 2

---
 challenge-160/deadmarshal/raku/ch-2.raku | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 challenge-160/deadmarshal/raku/ch-2.raku

diff --git a/challenge-160/deadmarshal/raku/ch-2.raku b/challenge-160/deadmarshal/raku/ch-2.raku
new file mode 100644
index 0000000000..9f07ed6b38
--- /dev/null
+++ b/challenge-160/deadmarshal/raku/ch-2.raku
@@ -0,0 +1,22 @@
+#!/usr/bin/env raku
+
+sub equilibrium-index(@arr) {
+  my ($left, $right) = (0, [+] @arr);
+  my $ret = -1;
+  for @arr.kv -> $i, $val {
+    $right -= $val;
+    $ret = $i if $left == $right;
+    $left += $val;
+  }
+  return $ret;
+}
+
+sub MAIN()
+{
+    my @arr = 1, 3, 5, 7, 9;
+    put equilibrium-index(@arr);
+    @arr = 1, 2, 3, 4, 5;
+    put equilibrium-index(@arr);
+    @arr = 2,4,2;
+    put equilibrium-index(@arr);
+}
-- 
cgit