2}
let keyboardEnglishLevels =
Seq.map (fun i -> Seq.map (fun x -> (i, x) ) n ) l
|> Seq.map (fun i -> i |> Seq.map (fun (x, y) -> sprintf "%c%i" x y ) )
|> Seq.map (fun i -> i |> Seq.map (fun i -> {Text=i;RequestContact=None;RequestLocation=None} ) )
как можно отрефакторить последние 2 строки? чтобы я не вызывал 2 раза seq.map ибо это вообще нечитаемо я думаю
Там вложенный seq.map?
Ну это... обьединить в один мап))
let l = seq {'A';'B';'C'} let n = seq {1 ; 2} let keyboardEnglishLevels = Seq.map (fun i -> Seq.map (fun x -> (i, x) ) n ) l |> Seq.map (fun i -> i |> Seq.map (fun (x, y) -> {Text= sprintf "%c%i" x y;RequestContact=None;RequestLocation=None} ) )
let l = seq {'A';'B';'C'} let n = seq {1 ; 2} let keyboardEnglishLevels = seq { for letter in l -> seq { for number in n -> { Text = sprintf "%c%i" letter number RequestContact = None RequestLocation = None } } }
Обсуждают сегодня