g
Size: a a a
AT
AT
AT
AK
let input = [(1,2);(3,5);(2,1);(3,2);(3,8)]
let rec findBreakingPoints = function
| (a1,a2)::(b1,b2)::tail ->
let hit =
if ((a1 > a2) && (b1 < b2)) || ((a1 < a2) && (b1 > b2)) then 1
else 0
hit + (findBreakingPoints <| (b1,b2)::tail)
| _ -> 0
findBreakingPoints input |> Dump
Lr
let input = [(1,2);(3,5);(2,1);(3,2);(3,8)]
let rec findBreakingPoints = function
| (a1,a2)::(b1,b2)::tail ->
let hit =
if ((a1 > a2) && (b1 < b2)) || ((a1 < a2) && (b1 > b2)) then 1
else 0
hit + (findBreakingPoints <| (b1,b2)::tail)
| _ -> 0
findBreakingPoints input |> Dump
AT
AT
AT
AT
[<RequireQualifiedAccess>]
, либо имена контента типа разносить, что мне предпочтительнее выглядитAT
AT
AT
VS
AT
АВ
[<RequireQualifiedAccess>]
, либо имена контента типа разносить, что мне предпочтительнее выглядит