rendezvous with cassidoo challenge: 25.03.24

find_longest_streak.clj

(ns find-longest-streak
  (:require [clojure.test :refer [deftest is]]))

(defn find-longest-streak [bools goal]
  (let [longest-streak (->> bools 
                         (partition-by identity) 
                         (filter first)
                         (map count)
                         (apply max 0))]
   (if (>= longest-streak goal)
    longest-streak
    0)))


(deftest find-longest-streak-test
 (is (= 3 (find-longest-streak [true true false true true true] 3)))
 (is (= 0 (find-longest-streak [true true true false true] 4)))
 (is (= 4 (find-longest-streak [true true true true] 2))))