rendezvous with cassidoo challenge: 23-07-23

maximum_profit.clj

(ns maximum-profit
  (:require [clojure.test :refer [deftest is]))
  
(defn maximum-profit [prices]
  (loop [n (first prices)
         xs (rest prices)
         acc []]
    (if (seq xs)
      (let [max-profit (apply max
                              (map #(- % n) xs))]
        (recur (first xs) (rest xs) (conj acc max-profit)))
      (max 0 (apply max acc)))))

(deftest maximum-profit-test
  (is (= 5 (maximum-profit [7 1 5 3 6 4]))))