Fold Left for Anonymizing Names

anonymizer.xqy

xquery version "3.1";

(: The credit for this idea goes to Joe Wicentowski :)

let $sentence := "The men attending the meeting were Mr. Anderson, Mr. Wicentowski, and Mr. Jones. The women attending were Ms. French, Ms. Ryder, and Ms. Callon."
let $names := ("Anderson", "Jones", "French")
let $replace := function($sentence as xs:string?, $name as xs:string) as xs:string? {fn:replace($sentence, $name, "Smith")}
return fn:fold-left($names, $sentence, $replace)