diff options
| author | HVukman <peterslopp@googlemail.com> | 2025-06-29 17:58:10 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-06-29 17:58:10 +0200 |
| commit | 2901fdd419eeaf5aa57c259202bdaf716277b85e (patch) | |
| tree | 347a9aad545b6548be4298527c33ab0309e6fc6b | |
| parent | a206905ae6a0ed64c3d47e05b794b531932777e1 (diff) | |
| download | perlweeklychallenge-club-2901fdd419eeaf5aa57c259202bdaf716277b85e.tar.gz perlweeklychallenge-club-2901fdd419eeaf5aa57c259202bdaf716277b85e.tar.bz2 perlweeklychallenge-club-2901fdd419eeaf5aa57c259202bdaf716277b85e.zip | |
Create part1.l
| -rw-r--r-- | challenge-327/hvukman/picolisp/part1.l | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/challenge-327/hvukman/picolisp/part1.l b/challenge-327/hvukman/picolisp/part1.l new file mode 100644 index 0000000000..5050fd7ca1 --- /dev/null +++ b/challenge-327/hvukman/picolisp/part1.l @@ -0,0 +1,27 @@ +(de func (X) +(let (size (length X)) + (prinl size) + +) +X) + + + +(de sol (X) +(make +(let (N 1 size (length X) uniques (uniq X)) + (loop + (if (= NIL (member N uniques)) + (link N) + ) + (T (< size (inc 'N)) 'done) ) + ) +) +) + +(setq sol1 (sol (list 1 2 1 3 2 5))) +(println sol1) +(setq sol1 (sol (list 1 1 1))) +(println sol1) +(setq sol1 (sol (list 2 2 1))) +(println sol1) |