|
|
|
@ -80,12 +80,19 @@ let dp_combine4 =
|
|
|
|
|
let prev = "Next is null" |
|
|
|
|
let next = null |
|
|
|
|
CombineWords prev next |
|
|
|
|
let dp_invalidGibberish = |
|
|
|
|
let dp_gibberishException = |
|
|
|
|
try |
|
|
|
|
GibberishLevelIsValid 0 |
|
|
|
|
GibberishLevelIsValid 0 // enter a number here |
|
|
|
|
|> ignore |
|
|
|
|
"No exception thrown" |
|
|
|
|
with :? ArgumentException as ex -> ex.Message |
|
|
|
|
let dp_sentencesException = |
|
|
|
|
try |
|
|
|
|
SentencesIsValid 0 // enter a number here |
|
|
|
|
|> ignore |
|
|
|
|
"No exception thrown" |
|
|
|
|
with :? ArgumentException as ex -> |
|
|
|
|
ex.Message |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|