F# - 损坏 "then"

Question

我目前正在尝试制作一个非常简单的应用程序，它会根据一天中的时间问候。我的代码是:

open System

let read() = Console.Read() 
let readLine() = Console.ReadLine()

let clockMsg min max todo = 
    if (DateTime.Now.Hour > min) && (DateTime.Now.Hour < max) then todo

let name = readLine()

clockMsg 0 8 <| printfn "Go to bed, %s!" name
clockMsg 8 12 <| printfn "Good morning, %s!" name
clockMsg 12 18 <| printfn "Good afternoon, %s!" name

read() |> ignore

现在我的问题是，怎么可能只有一个函数调用有效，而所有三个函数调用无论如何都会打印它们的消息？

Answer 1

同意 BrokenGlass 的观点。您可能想要做的是:

clockMsg 0 8 (fun() -> printfn "Go to bed, %s!" name)

clockMsg 中的更改:

let clockMsg min max todo = 
    if (DateTime.Now.Hour > min) && (DateTime.Now.Hour < max) then todo()