diff options
| author | HVukman <peterslopp@googlemail.com> | 2025-07-11 17:33:58 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-07-11 17:33:58 +0200 |
| commit | 1f53e1409741d6122ea2a875c8eb0463f1ff0b2f (patch) | |
| tree | de5f0e1183c2d8010782d853b8e2e2a8105120f3 | |
| parent | 416e96fc2b3e5ef01a2fd7bc3107b19f88f1f767 (diff) | |
| download | perlweeklychallenge-club-1f53e1409741d6122ea2a875c8eb0463f1ff0b2f.tar.gz perlweeklychallenge-club-1f53e1409741d6122ea2a875c8eb0463f1ff0b2f.tar.bz2 perlweeklychallenge-club-1f53e1409741d6122ea2a875c8eb0463f1ff0b2f.zip | |
Create 329_p1.l
| -rw-r--r-- | challenge-329/hvukman/picolisp/329_p1.l | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/challenge-329/hvukman/picolisp/329_p1.l b/challenge-329/hvukman/picolisp/329_p1.l new file mode 100644 index 0000000000..993bef44e6 --- /dev/null +++ b/challenge-329/hvukman/picolisp/329_p1.l @@ -0,0 +1,48 @@ + (setq inp "the1weekly2challenge2") + + (de fun (X) + (make + (for N (chop X) + + (if (format N) + (link N) + (link "") + ) + ) + ) + + ) + + # (load "perlpico/329_p1.l") + +(de do_it (X) + (make + (for N (size X) + (if (format (get X N)) + (let dummy + (link (make + (while (and (<= N (size X)) (format (get X N))) + (let new (get X N) + (prinl new) + (link new ) + (setq N (inc N)) + ) + ) + + #(setq N (inc N)) + #(prinl "dummy " dummy) + #(link dummy) + ) + ) + ) + ) + #(prinl (made)) + ) + ) +) + +(setq inp (fun inp)) +(do_it inp) + +(setq inp2 "go21od1lu5c7k") +(do_it (fun inp2)) |