August 2023 puzzles, plus Makefile

Makefile

@@ -0,0 +1,2 @@
+clean:
+	lein clean

src/clj/puzzle_2023-08-13.clj

@@ -0,0 +1,27 @@
+; https://www.npr.org/2023/08/13/1193621080/sunday-puzzle-fill-in-the-blank
+
+; Name a famous contemporary singer (6,4). The second, fourth, sixth, eighth, and ninth letters, in order, spell a repeated part of a song that everyone knows. What is it?
+
+(defn clean-up-word [word]
+  (clojure.string/replace (clojure.string/lower-case word) #"[^a-z]" ""))
+
+(def six-four
+  (->> "resources/64.txt"
+       slurp
+       clojure.string/split-lines))
+
+(def ospd
+   (->> "resources/ospd3.txt"
+        slurp
+        clojure.string/split-lines
+        set))
+
+(defn transform-name [n]
+  (let [[_ a _ b _ c _ _ d e _] (map char n)]
+    (str a b c d e)))
+
+(def candidates
+  (->> six-four
+       (mapv (juxt identity (comp transform-name clean-up-word)))
+       (filter (comp (partial = 5) count last))
+       distinct))

src/clj/puzzle_2023-08-20.clj

@@ -0,0 +1,22 @@
+; https://www.npr.org/2023/08/20/1194416790/sunday-puzzle-you-better-make-it-last
+
+; Name part of the human body above the neck in 9 letters. Rearrange them 
+; to name another part of the human body found below the neck. Only some 
+; people have the first body part. Everyone has the second one. What 
+; parts of the human body are these?
+
+(defn clean-up-word [word]
+  (clojure.string/replace (clojure.string/lower-case word) #"[^a-z]" ""))
+
+(def body-parts
+  (->> "resources/body_parts.txt"
+       slurp
+       clojure.string/split-lines
+       (mapv clean-up-word)))
+
+(def nines
+  (filter (comp (partial = 9) count) body-parts))
+
+(map val (group-by frequencies nines))
+
+