From 4a2d3428b9c5d6fbbfabafe0d9303b45bdb59295 Mon Sep 17 00:00:00 2001 From: 冯昶 Date: Thu, 27 Aug 2020 13:50:15 +0800 Subject: #075 ch-2.raku --- challenge-075/feng-chang/raku/ch-2.raku | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100755 challenge-075/feng-chang/raku/ch-2.raku diff --git a/challenge-075/feng-chang/raku/ch-2.raku b/challenge-075/feng-chang/raku/ch-2.raku new file mode 100755 index 0000000000..b348d5350a --- /dev/null +++ b/challenge-075/feng-chang/raku/ch-2.raku @@ -0,0 +1,13 @@ +#!/bin/env raku + +sub largest-rectangle-histogram(Int:D @A) { + print "[{@A}] -> "; + 0..@A.elems-1 X 0..@A.elems-1 ==> + grep { .[0] ≤ .[1] } ==> + map { min(|@A[.[0] .. .[1]]) * (.[1] - .[0] + 1) } ==> + max() ==> + say(); +} + +largest-rectangle-histogram(my Int @ = 2, 1, 4, 5, 3, 7); +largest-rectangle-histogram(my Int @ = 3, 2, 3, 5, 7, 5); -- cgit