RosettaCodeData/Task/Empty-string/Racket/empty-string.rkt

6 lines
127 B
Racket

#lang racket
(define empty-string "")
(define (string-null? s) (string=? "" s))
(define (string-not-null? s) (string<? "" s))