Jump to content

Water collected between towers: Difference between revisions

Water collected between towers (view source)

Revision as of 00:18, 7 February 2017

18 bytes added ,  7 years ago
updated Scheme version to be more efficient
(added Scheme example)
(updated Scheme version to be more efficient)
Line 1,068:
 
(define (total-collected chart)
(define (highest-rightleft vals curr)
(if (null? (cdr vals))
'(0list curr)
(cons (apply max (cdr vals))curr
(highest-rightleft (cdr vals) (max (car vals) curr)))))
(define (highest-leftright vals curr)
(reverse (highest-rightleft (reverse vals) curr)))
;
(if (< (length chart) 3) ; catch the end cases
Peter
342

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/271721"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information