codewars: solve 'is the string uppercase' challenge

This commit is contained in:
Ivan R. 2024-02-20 10:13:15 +05:00
parent ec8417e0b0
commit f73ac8b148
Signed by: lumin
GPG key ID: 927D3132247BDE4E

View file

@ -0,0 +1,2 @@
let is_uppercase (s: string): bool =
String.for_all (fun c -> not(c >= 'a' && c <= 'z')) s;;