Anonymous user
String matching: Difference between revisions
→{{header|NewLISP}}
Line 1,425:
(ends-with str "ghi")
;;
(define (
(let ((idx -1) (pos '()))
(while (setq idx (find pattern str 0 (+ idx 1)))
(push idx pos -1))))
(
=={{header|Nimrod}}==
|