F# AsyncSeq anagram checker -- async run through a list pulling out found results

asyncseq-anagram-checker

    namespace CodeDojo


    module CodeDojo_Anagram  =

        open System
        open System.ServiceModel
        open System.Collections.Generic
        open Microsoft.FSharp.Linq
        open FSharp.Control

        [<Literal>]
        let testWord = "table"
    
        let testWords =  new List<string>()
        testWords.Add("bleat")
        testWords.Add("blate")
        testWords.Add("junk")
        
         
        let hasWord (word:string) =    
            let mutable res = true
            let a = testWord.ToCharArray()  |> Set.ofArray
            let b = word.ToCharArray()  |> Set.ofArray
            let difference = Set.intersect a b
            match difference.Count with
            | 0 ->  false
            | _ ->  true 
    
        let test2 (words:List<string>, (word:string)) : AsyncSeq<string>  =
            asyncSeq   {
                            let res =
                                    (words)
                                    |> Seq.filter(fun x-> (hasWord(x)) )
                                    |>  AsyncSeq.ofSeq                                                  
                            yield! res
                    }
    
        let runTest = test2(testWords,testWord) 
                                                |> AsyncSeq.toObservable
                                                |> fun a -> a.Subscribe(fun x -> printfn "Found '%A' " x)   
                                                |> ignore              
         
        ()

usage:
let results = CodeDojo.CodeDojo_Anagram.runTest
Console.WriteLine("Press any key to continue...");

Can I run in Linqpad?

yes mate - f sharp program