Search for documents, add/remove from collections

gistfile1.xquery

let $docs :=  
  fn:distinct-values(
    for $i in cts:search(//beef,cts:word-query("tip"))
      return fn:base-uri($i)
  )
return
  for $i in $docs return
    xdmp:document-add-collections(
      $i,
      '/marc/favorites'
    )
(: 781 documents affected - Profile 2105 Expressions PT57.822894S :)

let $remove-from-collections :=
  for $i in fn:collection('/marc/favorites')
    return xdmp:document-remove-collections(fn:base-uri($i),'/beef/tips')
    
let $docs := 
  fn:distinct-values(
    for $i in cts:search(//pork,cts:word-query("ham"))
      return fn:base-uri($i)
  )

return
  for $i in $docs return
    xdmp:document-add-collections(
      $i,
      '/marc/favorites'
    )

(: 1051 documents affected - Profile 4245 Expressions PT48.439176S  :)