diff options
| author | HVukman <peterslopp@googlemail.com> | 2025-07-11 17:34:21 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-07-11 17:34:21 +0200 |
| commit | d6ebdeddf997691097e800f22cf8d79842d90a75 (patch) | |
| tree | 8b57eb393a9dbf27c857e6fbe48a248c281502b3 | |
| parent | 1f53e1409741d6122ea2a875c8eb0463f1ff0b2f (diff) | |
| download | perlweeklychallenge-club-d6ebdeddf997691097e800f22cf8d79842d90a75.tar.gz perlweeklychallenge-club-d6ebdeddf997691097e800f22cf8d79842d90a75.tar.bz2 perlweeklychallenge-club-d6ebdeddf997691097e800f22cf8d79842d90a75.zip | |
Create 329_p2.l
| -rw-r--r-- | challenge-329/hvukman/picolisp/329_p2.l | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/challenge-329/hvukman/picolisp/329_p2.l b/challenge-329/hvukman/picolisp/329_p2.l new file mode 100644 index 0000000000..fc20c2a140 --- /dev/null +++ b/challenge-329/hvukman/picolisp/329_p2.l @@ -0,0 +1,22 @@ +(setq inp "YaaAho") + + + +(de do_it (X) + (pack (let str_list (chop X) + (make + (for N (chop X) + (if (and (member (uppc N) (chop X)) (member (lowc N) (chop X) ) ) + (link N ) + ) + ) + ) + ) + ) +) + +(prinl (do_it inp)) +(prinl (do_it "cC")) +(prinl (do_it "A")) + +# (load "perlpico/329_p2.l") |