Will Anderson
20 lines
505 B
EmacsLisp
20 lines
505 B
EmacsLisp
// char-classes.el — ASCII character classification.
|
|
// is_letter("A") && is_digit("7") && is_whitespace(" ")
|
|
// && !is_letter("3") && !is_digit("X")
|
|
fn run_test() -> Bool {
|
|
if !is_letter("A") { return false }
|
|
if !is_digit("7") { return false }
|
|
if !is_whitespace(" ") { return false }
|
|
if is_letter("3") { return false }
|
|
if is_digit("X") { return false }
|
|
return true
|
|
}
|
|
|
|
fn main() -> Void {
|
|
if run_test() {
|
|
println("true")
|
|
} else {
|
|
println("false")
|
|
}
|
|
}
|