F # idiomatic Deneyi Başla

Question

Girdi alan bir girdim var ve ya başarılı olan ve bazı girdiler döndürür veya Hiçbiri döndürür. Biri numaralardan birini cevaplayana kadar aranan telefon numaralarının bir listesini vereceğim ve daha sonra sayıların geri kalanı atlanmalıdır. Ve sonunda başarılı bir sayı veya bir hata mesajının kaydı var. , TryPick Daha iyi bir Liste fonksiyonu ile o kadar sıkılır

type PhoneNumber = int 

let tryCallNumber phoneNumber = 
    if phoneNumber % 2 = 0 then Some phoneNumber 
    else None 

let nextCall phoneNumberOption nextNumber = 
    match phoneNumberOption with 
    | Some num -> phoneNumberOption 
    | None  -> tryCallNumber nextNumber 

let logCall phoneNumberOption = 
    match phoneNumberOption with 
    | Some num -> printfn "%i" num 
    | None  -> printfn "%s" "failed" 


let phoneNumbers = [111; 222; 444; 555] 

do List.fold (fun state num -> (nextCall state num)) None phoneNumbers 
|> logCall 

: Bence

Benim ilk çözüm çok karmaşık ve aynı zamanda inelegant görünüyor ilk denemede, üzerinde arıza durumunun tohumlama kullanır

type PhoneNumber = int 

let tryCallNumber phoneNumber = 
    if phoneNumber % 2 = 0 then Some phoneNumber 
    else None 

let logCall phoneNumberOption = 
    match phoneNumberOption with 
    | Some num -> printfn "%i" num 
    | None  -> printfn "%s" "failed" 


let phoneNumbers = [111; 222; 444; 555] 

do List.tryPick (fun num -> tryCallNumber num) phoneNumbers 
|> logCall 

Bu iyi bir yaklaşım gibi görünüyor mu? Monadik hataların ele alınışını okuduktan sonra, bu ruhda bir şekilde bir şeyler yapmam gerekip gerekmediğini merak ediyorum.

Answer 1

İdiomatisitenin ölçülmesi zordur. Bence yaklaşımın yakın-en-deyimsel.

Şahsen

let phoneNumbers = [111; 222; 444; 555] 

let tryCallNumber phoneNumber = 
    if phoneNumber % 2 = 0 then Some phoneNumber 
    else None 

let logCall = function 
| Some num -> printfn "%i" num 
| None  -> printfn "failed" 

phoneNumbers 
|> List.tryPick tryCallNumber 
|> logCall 

(maalesef olmayan: Ve Tomas' imzalamasını var ... Ben tryCallNumber lambda eta-azaltmak üzere, do damla, logCall için boruyu phoneNumbersfunction kısayol eklersiniz IMO option dönüş türleri yeterince açık ve benim kod try-ispirik olma eğilimindedir ve istisnalar bağlı değildir gibi, ayrıca , sadece için yeniden adlandırın. async -by varsayılan kitaplıklarına benzer şekilde ...Async son eki bırakılır.