F#是一种功能强大的编程语言，它与Visual Studio2010一起发布。在本文中，将探讨如何使用F#语言来创建一个Eliza风格的聊天机器人。Eliza聊天机器人是一种模拟人类对话的程序，它通过模式匹配和规则来响应用户的输入。
首先，需要定义一些模式标识符，这些标识符将帮助识别用户的输入属于哪种类型的对话主题。例如，如果用户的输入包含“想要”、“渴望”或“需要”，那么这个输入将与“愿望”模式标识符匹配。同样，如果输入包含“当然”、“是的”、“好的”或“对的”，那么输入将与“积极”模式标识符匹配。
let (|Wish|Positive|Negative|None|) input =
match input with
| "want" | "desire" | "need" -> Wish
| "certainly" | "yes" | "true" | "ok" | "right" -> Positive
| "not" | "no" | "don't" | "false" | "wrong" -> Negative
| _ -> None
接下来，定义一个用于处理数字的模式识别器。如果输入的字符串可以成功转换为双精度浮点数，那么它就是一个数字；否则，它就是“无”。
let (|Number|None|) (input:string) =
try
let value = Convert.ToDouble(input)
Number
with
| _ -> None
定义了所有需要的模式识别器之后，创建一个递归的响应函数，该函数接受字符串的第一个标记和其余部分作为参数。搜索标记与上面定义的模式识别器的匹配项。如果找到匹配项，就通过调用相应的响应函数来返回该类别的响应，并结束递归过程。
let rec response (token:string) (str:string) =
match token with
| "Hello" -> hello_response ()
| "Bye" -> good_bye_response ()
| "Personal" -> personal_response str
| "Question" -> question_response str
| "Answer" -> answer_response str
| "Wish" -> wish_response str
| "Negative" -> negative_response str
| "Positive" -> positive_response str
| "Math" -> math_response str
| "" -> none_response str
| None when (str.IndexOf(" ") > 0) -> response (str.Substring(0,str.IndexOf(" "))) (str.Substring(str.IndexOf(" ")+1))
| None when (str.IndexOf(" ") < 0) -> response str ""
| None -> math_response str
最后，创建一组函数，这些函数基于识别的“主题”和活动模式随机选择响应。
let hello_response () =
let n = rand.Next(10)
match n with
| 0 -> "How do you do."
| 1 -> "Is nice talking to you."
| 2 -> "Tell me something new."
| 3 -> "Nice to meet you."
| 4 -> "My pleasure."
| 5 -> "Hi."
| 6 -> "Hello."
| 7 -> "Good day."
| 8 -> "Salutation!"
| 9 -> "Welcome!"
要创建Visual F#应用程序和Windows表单，需要按照以下步骤操作：
let main_form title =
let text_box = new TextBox()
text_box.Dock <- DockStyle.Bottom
let conversation_text = new TextBox()
conversation_text.Dock <- DockStyle.Fill
conversation_text.Multiline <- true
conversation_text.WordWrap <- false
conversation_text.Font <- new Font("Arial", 10.0f)
conversation_text.ReadOnly <- true
let form = new Form(Text=title, Visible=true)
form.Size <- new Size(512, 512)
form.Controls.Add(conversation_text)
form.Controls.Add(text_box)
text_box.KeyDown.Add(enter_message text_box conversation_text)
let gotfocus = text_box.Focus()
form.KeyDown.Add(fun e -> if e.KeyCode = Keys.Escape then form.Close());
form