codewars: solve 'is the string uppercase' challenge
This commit is contained in:
parent
ec8417e0b0
commit
f73ac8b148
1 changed files with 2 additions and 0 deletions
2
codewars/ocaml/is-the-string-uppercase/main.ml
Normal file
2
codewars/ocaml/is-the-string-uppercase/main.ml
Normal file
|
@ -0,0 +1,2 @@
|
||||||
|
let is_uppercase (s: string): bool =
|
||||||
|
String.for_all (fun c -> not(c >= 'a' && c <= 'z')) s;;
|
Loading…
Reference in a new issue