RosettaCodeData/Task/Abbreviations-automatic/F-Sharp/abbreviations-automatic-1.fs

let fN g=let rec fN n=if g|>List.map(fun(g:string)->g.[0..n])|>Set.ofList|>Set.count=(List.length g) then (n+1) else fN(n+1)
         fN 0
Initial data commit 2023-07-01 11:58:00 -04:00			`let fN g=let rec fN n=if g\|>List.map(fun(g:string)->g.[0..n])\|>Set.ofList\|>Set.count=(List.length g) then (n+1) else fN(n+1)`
			`fN 0`