44 lines
716 B
Racket
44 lines
716 B
Racket
#lang racket/base
|
|
(require racket/list)
|
|
(provide adjustable-chars
|
|
double-barred-chars
|
|
up-chars
|
|
dn-chars
|
|
lt-chars
|
|
rt-chars)
|
|
|
|
(define up-chars
|
|
'(#\╬
|
|
#\╩ #\╣ #\╠
|
|
#\╝ #\╚
|
|
#\║
|
|
#\+ #\|))
|
|
|
|
(define dn-chars
|
|
'(#\╬
|
|
#\╦ #\╣ #\╠
|
|
#\╗ #\╔
|
|
#\║
|
|
#\+ #\|))
|
|
|
|
(define lt-chars
|
|
'(#\╬
|
|
#\╩ #\╦ #\╣
|
|
#\╝ #\╗
|
|
#\═
|
|
#\+ #\-))
|
|
|
|
(define rt-chars
|
|
'(#\╬
|
|
#\╩ #\╦ #\╠
|
|
#\╔ #\╚
|
|
#\═
|
|
#\+ #\-))
|
|
|
|
(define adjustable-chars
|
|
(remove-duplicates
|
|
(append up-chars dn-chars lt-chars rt-chars)))
|
|
|
|
(define double-barred-chars
|
|
(remove* '(#\+ #\- #\|)
|
|
adjustable-chars)) |