Sha256: 4ce8c53f050cf8ca674ab0a5bde902e74247dbace8e278f955964f11dbea6d2c
Contents?: true
Size: 937 Bytes
Versions: 396
Compression:
Stored size: 937 Bytes
Contents
(define-module (phone-number)
#:export (numbers area-code pprint)
#:autoload (ice-9 format) (format))
(define (strip-non-digits str)
(string-filter char-numeric? str))
(define (trim-leading-one str)
(if (and (= 11 (string-length str))
(char=? #\1 (car (string->list str))))
(substring str 1)
str))
(define (ensure-valid str)
(if (= 10 (string-length str))
str
"0000000000"))
(define (numbers number-string)
(ensure-valid
(trim-leading-one
(strip-non-digits number-string))))
(define (area-code number-string)
(substring (numbers number-string) 0 3))
(define (exchange number-string)
(substring (numbers number-string) 3 6))
(define (subscriber number-string)
(substring (numbers number-string) 6 10))
(define (pprint number-string)
(format #f "(~a) ~a-~a"
(area-code number-string)
(exchange number-string)
(subscriber number-string)))
Version data entries
396 entries across 396 versions & 1 rubygems