价值一百个亿的 AI 核心代码

AI.fsx

// 价值一百个亿的 AI 核心代码
// Do What The Fuck You Want To Public License

open System

let replace (oldstr : string) (newstr : string) (text : string) =
  text.Replace(oldstr, newstr)
let ask() =
  Console.Write("> ")
  Console.ReadLine()
let answer text =
  text
  |> replace "吗" ""
  |> replace "?" "!"
  |> replace "？" "!"

[ "在吗？"; "你好"; "能听懂汉语吗？"; "真的吗？" ]
|> List.iter (fun question ->
     Console.WriteLine("> " + question)
     Console.WriteLine("  " + answer question))
let mutable loop = true
while loop do
  let question = ask()
  if question.Length < 1 then loop <- false
  else Console.WriteLine("  " + answer question)