F＃で文を印刷して項目を削除するには

Question

私はF＃で作成したこのプログラムを持っています。私は文を受け入れ、それぞれの単語/文字の品詞と単語/文字を示す文を返す必要があります。何かを読んで、mapStrTokenとマッチさせ、単語/文字と品詞をプリントアウトするにはどうすればよいですか？

私はここにこのコードを持っている：これはあなたが求めているものであれば

type tokens = Art of string | Noun of string | Adj of string 
       | Adv of string | 
       | Verb of string | Comma of string | Conj of string 
       |Prep of string | EOS of string | NONE;; 
let mapStrToken str = 
    match str with 
     | "dog" -> Noun str | "cat" -> Noun str | "mouse" -> Noun str | "tree" -> Noun str | "cheese" -> Noun str 
     | "a" -> Art str | "the" -> Art str 
     | "likes" -> Verb str | "hates" -> Verb str | "eats" -> Verb str | "chases" -> Verb str 
     | "," -> Comma str 
     | "." -> EOS str | "!" -> EOS str 
     | "fast" -> Adj str | "slow" -> Adj str | "furry" -> Adj str | "yellow" -> Adj str 
     | "quickly" -> Adv str | "slowly" -> Adv str | "quietly" -> Adv str 
     | "and" -> Conj str | "or" -> Conj str 
     | "of" -> Prep str | "around" -> Prep str 
     | _ -> NONE 

Answer 1

わからないが、これを試してみてください。

let tokenArray = "a fast , yellow dog".Split(' ') |> Array.map mapStrToken 
let doSomethingWithTokens = function 
    | [Art; Adj; Comma; Adj; Noun] -> Some("article adjective comma adjective noune") 
    | _ -> None 
tokenArray |> doSomethingWithtokens