diff options
| author | HVukman <peterslopp@googlemail.com> | 2025-08-09 14:39:18 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-08-09 14:39:18 +0200 |
| commit | 2f39da2aa6a6fc31dd7da0db19f0bf690a76c48d (patch) | |
| tree | 5f59e78a3fa1f6647b18c99fd311cb39e7d9d220 | |
| parent | d82f2717f86d5e3044508dcd38059ef9f9674daf (diff) | |
| download | perlweeklychallenge-club-2f39da2aa6a6fc31dd7da0db19f0bf690a76c48d.tar.gz perlweeklychallenge-club-2f39da2aa6a6fc31dd7da0db19f0bf690a76c48d.tar.bz2 perlweeklychallenge-club-2f39da2aa6a6fc31dd7da0db19f0bf690a76c48d.zip | |
Create 333_p2.l
| -rw-r--r-- | challenge-333/hvukman/picolisp/333_p2.l | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/challenge-333/hvukman/picolisp/333_p2.l b/challenge-333/hvukman/picolisp/333_p2.l new file mode 100644 index 0000000000..112fbb4807 --- /dev/null +++ b/challenge-333/hvukman/picolisp/333_p2.l @@ -0,0 +1,31 @@ + +(de dup (Z) +# link with made until length of z +(make +(for X (size Z) + (T (< (- (size Z) 1) (size (made)) ) (println (made)) ) + (cond + ( + (= 0 (get Z X)) + # insert 0 twice if 0 and does not excede length og input z + (link 0) + (if (> (size Z) (size (made)) ) + (link 0) + ) + ) + (T + (link (get Z X)) + ) + ) +) + (println (made)) +) +) + +(setq inp (list '(1 2 3) '(1 2 3 0) '(0 0 1 2) '(1 2 0 0 3))) + +(for X inp + (dup X) +) + +# (load "perlpico/333_p2.l") |