diff options
| author | HVukman <peterslopp@googlemail.com> | 2025-06-22 10:22:48 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-06-22 10:22:48 +0200 |
| commit | 48354e5ca81f9fcfdcea7a15edd39facec69367d (patch) | |
| tree | 2b3bae510d45beb6f0ebefc0c44c16be8d552fd0 | |
| parent | 7f9694c558d5879dccdc5ef4e0318f30fc33e508 (diff) | |
| download | perlweeklychallenge-club-48354e5ca81f9fcfdcea7a15edd39facec69367d.tar.gz perlweeklychallenge-club-48354e5ca81f9fcfdcea7a15edd39facec69367d.tar.bz2 perlweeklychallenge-club-48354e5ca81f9fcfdcea7a15edd39facec69367d.zip | |
Add files via upload
| -rw-r--r-- | challenge-326/hvukman/picolisp/perl326_p1.l | 21 | ||||
| -rw-r--r-- | challenge-326/hvukman/picolisp/perl326_p2.l | 11 |
2 files changed, 32 insertions, 0 deletions
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 |