From 643f175635702293d99aa28424c65297a691b78a Mon Sep 17 00:00:00 2001 From: Fredrik Robertsen Date: Wed, 1 Jul 2026 20:02:58 +0200 Subject: [PATCH] 2025/8/janet: attempt --- 2025/8/janet/main.janet | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 2025/8/janet/main.janet diff --git a/2025/8/janet/main.janet b/2025/8/janet/main.janet new file mode 100644 index 0000000..ee9b7a1 --- /dev/null +++ b/2025/8/janet/main.janet @@ -0,0 +1,16 @@ +(defn magnitude [vector] + (math/sqrt (sum (map |(* $ $) vector)))) + +(defn straight-line [v1 v2] + (magnitude (map - v1 v2))) + +(with [f (file/open "2025/8/ex_input")] + (def parsed (freeze (map + |(map parse (string/split "," (string/trim $))) + (file/lines f)))) + (loop [i :range [0 (length parsed)] + :after (print) + j :range [0 i]] + (let [v1 (get parsed i) + v2 (get parsed j)] + (pp (straight-line v1 v2)))))