g
Size: a a a
D
D
R
VS
SS
let format (input: string) =
match fun a b -> input.StartsWith a && input.EndsWith b with
| f when f "{" "}" -> "JSON"
| f when f "[" "]" -> "JSON"
| f when f "<" ">" -> "XML"
| _ -> "PlainText"
PD
let format (input: string) =
match fun a b -> input.StartsWith a && input.EndsWith b with
| f when f "{" "}" -> "JSON"
| f when f "[" "]" -> "JSON"
| f when f "<" ">" -> "XML"
| _ -> "PlainText"
оГ
оГ
I
X
оГ
X
AH
let format (input: string) =
match fun a b -> input.StartsWith a && input.EndsWith b with
| f when f "{" "}" -> "JSON"
| f when f "[" "]" -> "JSON"
| f when f "<" ">" -> "XML"
| _ -> "PlainText"
let (|Between|_|) (a: string) (b: string) (x: string) =
if x.StartsWith a && x.EndsWith b then Some () else None
let format' = function
| Between "{" "}"
| Between "[" "]" -> "JSON"
| Between "<" ">" -> "XML"
| _ -> "PlainText"
I
let format (input: string) =
match fun a b -> input.StartsWith a && input.EndsWith b with
| f when f "{" "}" -> "JSON"
| f when f "[" "]" -> "JSON"
| f when f "<" ">" -> "XML"
| _ -> "PlainText"
SS