diff options
| author | HVukman <peterslopp@googlemail.com> | 2025-06-22 10:23:37 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-06-22 10:23:37 +0200 |
| commit | 38c41024cea6cbce65b6d816a83a96982a5d4e24 (patch) | |
| tree | 6ec8dfb03553569cd48f6cb9d7462e56a10350e6 | |
| parent | 36716245f52e05a5789086ad0233086dfc197e37 (diff) | |
| download | perlweeklychallenge-club-38c41024cea6cbce65b6d816a83a96982a5d4e24.tar.gz perlweeklychallenge-club-38c41024cea6cbce65b6d816a83a96982a5d4e24.tar.bz2 perlweeklychallenge-club-38c41024cea6cbce65b6d816a83a96982a5d4e24.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 |