aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/Water-collected-between-towers/Clojure/water-collected-between-towers-1.clj Normal file
View file

@ -0,0 +1,6 @@
(defn trapped-water [towers]
(let [maxes #(reductions max %) ; the seq of increasing max values found in the input seq
maxl (maxes towers) ; the seq of max heights to the left of each tower
maxr (reverse (maxes (reverse towers))) ; the seq of max heights to the right of each tower
mins (map min maxl maxr)] ; minimum highest surrounding tower per position
(reduce + (map - mins towers)))) ; sum up the trapped water per position

15
Task/Water-collected-between-towers/Clojure/water-collected-between-towers-2.clj Normal file
View file

@ -0,0 +1,15 @@
;; in the following, # is a tower block and ~ is trapped water:
;;
;; 10|
;; 9| #
;; 8| #
;; 7| # ~ ~ ~ ~ #
;; 6| # ~ # ~ ~ #
;; 5| # ~ # ~ # ~ # #
;; 4| # ~ # ~ # # # #
;; 3| # # # ~ # # # #
;; 2| # # # # # # # # ~ #
;; 1| # # # # # # # # # #
;; ---+---------------------
;; 5 3 7 2 6 4 5 9 1 2
(trapped-water [5 3 7 2 6 4 5 9 1 2]) ;; 14