From 2c0ca222d3d521b230234ce68182d8a23a5605d3 Mon Sep 17 00:00:00 2001 From: HVukman Date: Sun, 26 Oct 2025 22:09:44 +0100 Subject: Create 344_p1.l --- challenge-344/hvukman/picolisp/344_p1.l | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 challenge-344/hvukman/picolisp/344_p1.l diff --git a/challenge-344/hvukman/picolisp/344_p1.l b/challenge-344/hvukman/picolisp/344_p1.l new file mode 100644 index 0000000000..17fa1208df --- /dev/null +++ b/challenge-344/hvukman/picolisp/344_p1.l @@ -0,0 +1,11 @@ + +(de array_from_compute (X Y ) + (mapcar '((Z) (prin Z " , ")) (mapcar format (chop (format (+ (format (pack (mapcar format X))) Y ))))) + (prinl "^J") +) + +(array_from_compute '(1 2 3 4) 12) +(array_from_compute '(2 7 4) 181) +(array_from_compute '(9 9 9) 1) +(array_from_compute '(1, 0, 0, 0, 0) 9999) +(array_from_compute '(0) 1000) -- cgit