diff options
| author | HVukman <peterslopp@googlemail.com> | 2025-10-26 22:09:44 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-10-26 22:09:44 +0100 |
| commit | 2c0ca222d3d521b230234ce68182d8a23a5605d3 (patch) | |
| tree | b5859d40e1e85bdcdab05eadb7aee9b4064b9f4d | |
| parent | 3569563568323232874b5e32736dbf821eee0c8d (diff) | |
| download | perlweeklychallenge-club-2c0ca222d3d521b230234ce68182d8a23a5605d3.tar.gz perlweeklychallenge-club-2c0ca222d3d521b230234ce68182d8a23a5605d3.tar.bz2 perlweeklychallenge-club-2c0ca222d3d521b230234ce68182d8a23a5605d3.zip | |
Create 344_p1.l
| -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) |