diff options
| -rw-r--r-- | challenge-344/hvukman/picolisp/344_p1.l | 11 |
1 files changed, 11 insertions, 0 deletions
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) |