Vòng lặp vô hạn trong F #

Question

Mẫu thông thường cho ứng dụng CLI là chạy trong vòng lặp vô hạn, cho đến khi người dùng gõ một số lệnh thoát. Giống như, bằng ngôn ngữ C:

while(1){ 
scanf("%c", &op); 
    ... 
    else if(op == "q") 
     break; 
    } 

Mô hình cho ứng dụng bảng điều khiển như thế nào trong F # (cố gắng sử dụng đệ quy đuôi, nhưng không thành công)?

Answer 1

Typing trong trình duyệt, do đó có thể chứa lỗi:

let rec main() = 
    let c = System.Console.ReadKey() 
    if c.Key = System.ConsoleKey.Q then() // TODO: cleanup and exit 
    else 
    // TODO: do something in main 
    main() 

Answer 2

Cũng

while true do 
    (* ..code.. *) 

Nhưng tôi đoán đuôi-đệ quy là hơn ưa thích (họ sẽ cả biên dịch để điều tương tự dưới --optimize) .

Answer 3

một chức năng như vậy có thể hữu ích:

let rec forever f = 
    f() 
    forever f 

Cách sử dụng:

forever <| fun() -> 
    //function body 

Một dịch sát nghĩa hơn của mã của bạn, tuy nhiên, sẽ là:

while true do 
    //body 

Answer 4

Dưới đây là một none chặn phiên bản phản ứng với một lần nhấn phím.

open System 

let rec main() = 
    // run code here 

    // you may want to sleep to prevent 100% CPU usage 
    // Threading.Thread.Sleep(1); 

    if Console.KeyAvailable then 
     match Console.ReadKey().Key with 
     | ConsoleKey.Q ->() 
     | _ -> main() 
    else 
     main() 

main()