(ns tw.weekly.c73-test
  (:require [clojure.test :refer [are deftest testing]]
            [tw.weekly.ch-1 :refer [sliding-min]]
            [tw.weekly.ch-2 :refer [smallest-neighbor]]))

(deftest ch-1
  (testing "Task 1"
    (are [size input output] (= (sequence (sliding-min size) input) output)
         3 [1 5 0 2 9 3 7 6 4 8] (list 0 0 0 2 3 3 4 4)
         2 (range 4) (range 3)
         3 (range 10 0 -1) (range 8 0 -1)
         )))

(deftest ch-2
  (testing "Task 2"
    (are [input output] (= (smallest-neighbor input) output)
         (list 7 8 3 12 10) (list 0 7 0 3 3)
         (list 4 6 5) (list 0 4 4)
         )))