VS
Size: a a a
VS
g
mapWithState
подойдет?Lr
DB
DB
Lr
Lr
SB
Lr
Lr
DB
SB
DB
let arr = [|(1,2);(3,5);(2,1);(3,2);(3,8)|]
arr |> Array.fold (fun (dotsCount,isOnTheRight) elem ->
let other = if isOnTheRight then snd elem else fst elem
let this = if not isOnTheRight then snd elem else fst elem
if other > this then
(dotsCount + 1, not isOnTheRight)
else
(dotsCount, isOnTheRight)
) (0, false)
|> printfn "%A"
DB
Lr
let arr = [|(1,2);(3,5);(2,1);(3,2);(3,8)|]
arr |> Array.fold (fun (dotsCount,isOnTheRight) elem ->
let other = if isOnTheRight then snd elem else fst elem
let this = if not isOnTheRight then snd elem else fst elem
if other > this then
(dotsCount + 1, not isOnTheRight)
else
(dotsCount, isOnTheRight)
) (0, false)
|> printfn "%A"
Lr