diff options
| author | HVukman <peterslopp@googlemail.com> | 2025-08-24 11:21:01 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-08-24 11:21:01 +0200 |
| commit | fcbb28dd599241251845b5458337c280c0f38ec7 (patch) | |
| tree | 82861183cd0de9dc12452be9934f41106858c62b | |
| parent | 2469d3089a37f6a41bce2906a59319c1e1866f83 (diff) | |
| download | perlweeklychallenge-club-fcbb28dd599241251845b5458337c280c0f38ec7.tar.gz perlweeklychallenge-club-fcbb28dd599241251845b5458337c280c0f38ec7.tar.bz2 perlweeklychallenge-club-fcbb28dd599241251845b5458337c280c0f38ec7.zip | |
Create 335_p1.l
| -rw-r--r-- | challenge-335/hvukman/picolisp/335_p1.l | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/challenge-335/hvukman/picolisp/335_p1.l b/challenge-335/hvukman/picolisp/335_p1.l new file mode 100644 index 0000000000..d2928449c5 --- /dev/null +++ b/challenge-335/hvukman/picolisp/335_p1.l @@ -0,0 +1,38 @@ +(setq words '( '("bella" "label" "roller") '("cool" "lock" "cook") )) + +(de flatten (Lst) + (fish atom Lst) ) + +(de common (XX) +(setq chars (uniq (flatten (mapcar chop XX)))) + (for Y chars + # (println "char " Y) + (make + (for X XX + (let dummy (filter (quote (Z) (= Z Y )) (chop X)) + (if dummy + (link (size dummy)) + ) + ) + ) + + (cond + ( (= (size (made)) (size XX)) + (for Z (car (made)) + (print Y " ") + ) + (println "") + ) + ) + + ) + +) +) + +(for X words + (common X) +) + + +# (load "perlpico/335_p1.l") |