Pig Latin Converter

pig.xqy

xquery version "3.0";

(: Takes a sentence in English and converts it to its equivalent in Pig Latin :)
(: Note that this expression does not handle punction :)
fn:string-join(
    let $sentence := "I speak Pig Latin"
    let $words := fn:tokenize($sentence, " ")
    for $word in $words
    let $vowels := ("a","e","i","o","u","y")
    let $first-letter := fn:lower-case(fn:substring($word,1,1))
    return 
      if ($first-letter = $vowels) then $word || "ay"
      else fn:substring($word,2) || $first-letter || "ay"
, " ")