challenge 101, raku solutions

1 files changed, 13 insertions, 0 deletions

diff --git a/challenge-075/feng-chang/raku/ch-2.raku.local b/challenge-075/feng-chang/raku/ch-2.raku.local
new file mode 100755
index 0000000000..d64b758512
--- /dev/null
+++ b/challenge-075/feng-chang/raku/ch-2.raku.local
@@ -0,0 +1,13 @@
+#!/bin/env raku
+
+sub largest-rectangle-histogram(Int:D @A) {
+    my Int $n = @A.elems;
+    for 0..($n-1) -> $i {
+        for $i..($n-1) -> $j {
+            say min(|@A[$i..$j]) * ($j - $i + 1);
+        }
+    }
+}
+
+largest-rectangle-histogram(my Int @ = 2, 1, 4, 5, 3, 7);
+largest-rectangle-histogram(my Int @ = 3, 2, 3, 5, 7, 5);