From d6ebdeddf997691097e800f22cf8d79842d90a75 Mon Sep 17 00:00:00 2001 From: HVukman Date: Fri, 11 Jul 2025 17:34:21 +0200 Subject: Create 329_p2.l --- challenge-329/hvukman/picolisp/329_p2.l | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 challenge-329/hvukman/picolisp/329_p2.l 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") -- cgit