From 4ad82ea6cb30c32ed84b964c4d4e0fec66f9f17d Mon Sep 17 00:00:00 2001 From: Fredrik Robertsen Date: Wed, 1 Jul 2026 20:02:58 +0200 Subject: [PATCH] 2025/2/janet: attempt --- 2025/2/janet/main.janet | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 2025/2/janet/main.janet diff --git a/2025/2/janet/main.janet b/2025/2/janet/main.janet new file mode 100644 index 0000000..2a3f7d2 --- /dev/null +++ b/2025/2/janet/main.janet @@ -0,0 +1,15 @@ +(def example-input `11-22,95-115,998-1012,1188511880-1188511890,222220-222224,1698522-1698528,446443-446449,38593856-38593862,565653-565659,824824821-824824827,2121212118-2121212124`) + +(defn mapi "immutable map" [f xs] (slice (map f xs))) + +(defn parse-input [input] + (mapi |(mapi parse (string/split "-" $)) + (string/split "," input))) + + +(defn solve/1 [data] + (map (fn [[l r]] + (range l r)) + data)) + +(pp (solve/1 (parse-input example-input)))