diff options
| author | Tyler Wardhaugh <tyler.wardhaugh@gmail.com> | 2023-06-04 13:02:06 -0700 |
|---|---|---|
| committer | Tyler Wardhaugh <tyler.wardhaugh@gmail.com> | 2023-06-04 13:02:06 -0700 |
| commit | 6c0175228e7cda310caea056001e2eddad380bcf (patch) | |
| tree | 3131ffc292fed27a11a85a9b646b30bb5a097a91 | |
| parent | 9851fcf0fea545202aa2d850f90c5b3f39b3b79e (diff) | |
| download | perlweeklychallenge-club-6c0175228e7cda310caea056001e2eddad380bcf.tar.gz perlweeklychallenge-club-6c0175228e7cda310caea056001e2eddad380bcf.tar.bz2 perlweeklychallenge-club-6c0175228e7cda310caea056001e2eddad380bcf.zip | |
fix bug; cost=0 when no days are processed
| -rw-r--r-- | challenge-219/tyler-wardhaugh/clojure/src/c219/t2.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-219/tyler-wardhaugh/clojure/src/c219/t2.clj b/challenge-219/tyler-wardhaugh/clojure/src/c219/t2.clj index dfcababbe2..b726644926 100644 --- a/challenge-219/tyler-wardhaugh/clojure/src/c219/t2.clj +++ b/challenge-219/tyler-wardhaugh/clojure/src/c219/t2.clj @@ -11,7 +11,7 @@ xf (map (fn [[period cost]] (let [[d & ds] days candidates (drop-while #(< % (+ d period)) ds)] - (+ cost (f f costs candidates)))))] + (+ cost (or (f f costs candidates) 0)))))] (->> source (sequence xf) (apply min))))) (let [f (memoize travel-expenditure')] |