迷彩线误解

Question

我仅在5秒钟的延迟后才能看到整个输出，但我认为应该是这样。

我期望以下输出：

主要在这里
您好收到
（ 然后才睡5秒钟 ）

但是我的代码首先要休眠5秒钟，然后才继续。

let t1 ch = 
    let m = sync (receive ch) in 
    print_string (m ^ " -> received\n");
    delay 5.0;
    sync (send ch "t1 got the message")

let main () = 
    let ch = new_channel () in 
    create t1 ch;
    print_string "main is here\n";
    sync (send ch "hi");
    print_string ("main confirms :" ^ sync(receive ch))

我很乐意在线阅读一些教程，但没有找到任何教程。

Answer 1

尝试刷新输出

print_string "main is here\n";
flush stdout