From 2f39da2aa6a6fc31dd7da0db19f0bf690a76c48d Mon Sep 17 00:00:00 2001 From: HVukman Date: Sat, 9 Aug 2025 14:39:18 +0200 Subject: Create 333_p2.l --- challenge-333/hvukman/picolisp/333_p2.l | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 challenge-333/hvukman/picolisp/333_p2.l 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") -- cgit