From 48354e5ca81f9fcfdcea7a15edd39facec69367d Mon Sep 17 00:00:00 2001 From: HVukman Date: Sun, 22 Jun 2025 10:22:48 +0200 Subject: Add files via upload --- challenge-326/hvukman/picolisp/perl326_p1.l | 21 +++++++++++++++++++++ challenge-326/hvukman/picolisp/perl326_p2.l | 11 +++++++++++ 2 files changed, 32 insertions(+) create mode 100644 challenge-326/hvukman/picolisp/perl326_p1.l create mode 100644 challenge-326/hvukman/picolisp/perl326_p2.l diff --git a/challenge-326/hvukman/picolisp/perl326_p1.l b/challenge-326/hvukman/picolisp/perl326_p1.l new file mode 100644 index 0000000000..cbcf01577f --- /dev/null +++ b/challenge-326/hvukman/picolisp/perl326_p1.l @@ -0,0 +1,21 @@ +(setq leap '(31 29 31 30 31 30 31 31 30 31 30 31)) +(setq nonleap '(31 28 31 30 31 30 31 31 30 31 30 31)) + + + +(de which_day (X) +(let (formatted (mapcar format (mapcar pack (split (chop X) "-"))) + year (car formatted) + month (cadr formatted) + day (caddr formatted) + ) + (if (or (= 0 (% year 400)) (and (= 0 (% year 4) (not (= 0 (% year 100))) ))) + (prinl (+ (apply + (head (- month 1) leap)) day) ) + (prinl (+ (apply + (head (- month 1) nonleap)) day) ) + ) +) +) + +(which_day "2025-02-02") +(which_day "2025-04-10") +(which_day "2025-09-07") \ No newline at end of file diff --git a/challenge-326/hvukman/picolisp/perl326_p2.l b/challenge-326/hvukman/picolisp/perl326_p2.l new file mode 100644 index 0000000000..e41c130e06 --- /dev/null +++ b/challenge-326/hvukman/picolisp/perl326_p2.l @@ -0,0 +1,11 @@ + +(de decomp (X) +(make +(link (make (do (car (nth X 1)) (link (car (nth X 2)))))) +(link (make (do (car (nth X 3)) (link (car (nth X 4)))))) +) +) + +(decomp '(1 3 2 4)) +(decomp '(1 1 2 2)) +(decomp '(3 1 3 2)) \ No newline at end of file -- cgit