carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-09-11 13:37:57 +03:00
Code Issues Projects Releases Wiki Activity

core: add Char.upper-case and Char.lower-case

Browse Source
This commit is contained in:
hellerve 2018-09-25 16:14:38 +02:00
parent 58a51af7fd
commit 0114ae806a
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/Char.carp
View File

@ -25,6 +25,14 @@
(defn /= [a b]
(not (= (the Char a) b)))
(doc lower-case "Tests whether a character is lower case.")
(defn lower-case [c]
(and (<= \a c) (<= c \z)))
(doc upper-case "Tests whether a character is upper case.")
(defn upper-case [c]
(and (<= \A c) (<= c \Z)))
)
(defmodule CharRef