6 lines
127 B
Racket
6 lines
127 B
Racket
|
#lang racket
|
||
|
|
|
||
|
|
(define empty-string "")
|
||
|
|
(define (string-null? s) (string=? "" s))
|
||
|
|
(define (string-not-null? s) (string<? "" s))
|