aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Task/Greatest-subsequential-sum/F-Sharp/greatest-subsequential-sum.fs Normal file
View file

@ -0,0 +1,11 @@
let maxsubseq s =
let (_, _, maxsum, maxseq) =
List.fold (fun (sum, seq, maxsum, maxseq) x ->
let (sum, seq) = (sum + x, x :: seq)
if sum < 0 then (0, [], maxsum, maxseq)
else if sum > maxsum then (sum, seq, sum, seq)
else (sum, seq, maxsum, maxseq))
(0, [], 0, []) s
List.rev maxseq
printfn "%A" (maxsubseq [-1 ; -2 ; 3 ; 5 ; 6 ; -2 ; -1 ; 4; -4 ; 2 ; -1])