6. Pattern Matching

# PicoLisp has no strings, and doesn't operate on symbol names directly.
# (see the "Strings" section). Instead, patterns are applied to lists.
#-----------------------------
(match Pattern List)
(fill Pattern [Symbol|List])
#-----------------------------
: (match '(@Name had a @Adj lamb) '(Mary had a little lamb))
-> T
: @Name
-> (Mary)
: @Adj
-> (little)
#-----------------------------

#-----------------------------
: (replace '(here in this town) 'this 'that 'town 'village)
-> (here in that village)
#-----------------------------
# strip to basename
: (let F (chop "abc/def/ghi")
   (prinl (last (split F '/)))  # Using 'split'
   (prinl (stem F '/)) )        # or 'stem'
ghi
ghi
#-----------------------------
# Make All Words Title-Cased
: (mapcar
      '((W) (pack (uppc (car W)) (cdr W)))
      (split (chop "Mary had a little lamb") " ") )
-> ("Mary" "Had" "A" "Little" "Lamb")
#-----------------------------
: (glue '/
   (replace
      (split (chop "/usr/man/man3/foo.1") "/")
      '("m" "a" "n" "3")
      '("c" "a" "t" "3") ) )
-> "/usr/man/cat3/foo.1"
#-----------------------------
: (mapcar
   '((S) (pack (glue '/ (head -1 (split (chop S) '/))) "/lib"))
   '("/usr/bin" "/bin" "/usr/local/bin") )
-> ("/usr/lib" "/lib" "/usr/local/lib")
#-----------------------------

#-----------------------------
(not
   (find
      '((C) (nor (>= "Z" C "A") (>= "z" C "a")))
      List ) )  # it is purely alphabetic
#-----------------------------

#-----------------------------
# as many non-whitespace bytes as possible
: (make (find '((C) (or (sp? C) (nil (link C)))) (chop "abcd efg")))
-> ("a" "b" "c" "d")

# as many letters, apostrophes, and hyphens
: (make
   (find
      '((C)
         (nand
            (or (>= "Z" C "A") (>= "z" C "a") (sub? C "`-"))
            (link C) ) )
      (chop "ab`c-d/e") ) )
-> ("a" "b" "`" "c" "-" "d")
#-----------------------------

# ...

#-----------------------------