Flashes
Home
Search
Notifications
Sign in
Post
bert
@somethingdoneright.net
315
Followers
·
756
Following
it is now safe to turn off your computer
![Clojure code:
```
(ns aoc.two)
(require '[clojure.string :as s])
(defn parse-input [input]
(->> (s/split-lines input)
(map (partial re-seq #"\d+"))
(map (partial map parse-long))))
(defn intervals [xs]
(->> (partition 2 1 xs)
(map (partial apply -))))
(defn monotonic? [xs]
(or (apply < xs) (apply > xs)))
(defn gradual? [intervals]
(every? #(<= 1 (abs %) 3) intervals))
(defn debug-annotate [xs]
{:monotonic (monotonic? xs) :gradual (gradual? (intervals xs)) :intervals (intervals xs)})
(defn safe? [xs]
(and (monotonic? xs) (gradual? (intervals xs))))
(defn delete-at [n coll]
(let [[head tail] (split-at n coll)]
(concat head (rest tail))))
(defn dampener [xs]
"generate the list of single cloze deletions of xs"
(for [n (range (count xs))]
(delete-at n xs)))
(defn safe-with-dampener? [xs]
(some safe? (dampener xs)))
```](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:perckew3cgikqyny3ema2mmi/bafkreic2tcdx3ubd7iqlhnnzhedqe45zt6ifrvvautmzqbgk5yuqe225hy)
