fork download
  1. open System
  2. open System.Text.RegularExpressions
  3.  
  4. let filterWord wordToFilter =
  5. Regex.Replace(wordToFilter, "[^a-zA-Z0-9/!\'?.-]", "");
  6.  
  7. //let unfilteredWords : string [] = [|"Hello"; "World!"|];
  8. let unfilteredWords = ["@Hello"; "~~~World~~~"];
  9. let filteredWords = unfilteredWords |> List.map(fun x -> filterWord(x));
  10. printfn "%A" filteredWords
Success #stdin #stdout 0.26s 25792KB
stdin
Standard input is empty
stdout
["Hello"; "World"]