初めてのFSharp

fsharp.fs

open System

let message ans user =
  if (ans > user) then
    "答えはもっと大きいよ"
  elif (ans < user) then
    "答えはもっと小さいよ"
  else
    "You won !"

let rec gameLogic ans time =
  printf "Input > "
  let user_input = Console.ReadLine()
  if System.String.Equals(user_input, "") then
    gameLogic ans time
  else
    let user_answer = System.Int32.Parse(user_input)
    printfn "%s" (message ans user_answer)
    if ans = user_answer then
      printfn "%d回数で当てました" time
    else
      gameLogic ans (time + 1)

[<EntryPoint>]
let main argv =
    printfn "*** 数当てゲーム ***"
    let ans = System.Random().Next(1, 100)
    gameLogic ans 0
    0