AT
Size: a a a
AT
VL
open System
[<EntryPoint>]
let main argv =
let n = Console.ReadLine()
let input = Console.ReadLine().Split(" ") |> Array.map (int)
let result = input
|> Array.mapi (fun i v ->
let f = Array.fold (fun (acc: int*int) elem -> // acc = (a, preElem)
if elem - (snd acc) <= 1 then (fst acc + 1, elem)
else acc) (0, 0)
f
)
printf "%A" result
0 // return an integer exit code
6
4 6 5 3 3 1
AT
((
let x = \p ->
let y = foo bar <| \s -> s;
let z = y;
z p;
x
AT
AH
open System
[<EntryPoint>]
let main argv =
let n = Console.ReadLine()
let input = Console.ReadLine().Split(" ") |> Array.map (int)
let result = input
|> Array.mapi (fun i v ->
let f = Array.fold (fun (acc: int*int) elem -> // acc = (a, preElem)
if elem - (snd acc) <= 1 then (fst acc + 1, elem)
else acc) (0, 0)
f
)
printf "%A" result
0 // return an integer exit code
6
4 6 5 3 3 1
((
let Name = Struct ; Struct, я это как раз добавил, чтобы изlet x =
1 + 2 + 2;
let x =
let four = 2 + 2;
1 + four;
K
; вместо in использую.VS
((
#.User >> #.Name сработает же?VL
МП