list-grep-examples.nydp

(examples-for list/grep
  ("it finds strings"
   (list/grep
    string?
    (list 'foo "bar" '(a b "c d" e) { ignores "hash elements" }))
   ("bar" "c d"))

  ("it finds items whose car is carryon"
   (list/grep
    λf(caris 'carryon f)
    '(foo
      (carryon 1 2 3 42)
      (bar (40 41 42 (carryon 43 (carryon 42) 41)))
      42
      99))
   ((carryon 1 2 3 42)
    (carryon 43 (carryon 42) 41)
    (carryon 42)))

  ("it finds items of length 3"
   (list/grep
    λf(eq? 3 (len f))
    '(foo
      (2 3 42)
      (bar (40 41 42) (43 (x y z) 41))
      42
      99))
   ((2 3 42)
    (bar (40 41 42) (43 (x y z) 41))
    (40 41 42)
    (43 (x y z) 41)
    (x y z)))

  ("it finds code within interpolated strings"
   (list/seek-cars 'include (parse-in-string "
<div>~~(include \"empty-name.html\")</div>
<div>~~(map λn(let name n (include \"show-name.html\")) {names})'</div>
"))
   ((include "empty-name.html")
    (include "show-name.html"))))