ハゲる君へ

505 ：山田：2024/06/01 00:12:46 ID:4HKIJ1Sg

;罫線素片の反転
;左右
(define (flip-h ch)
(cond
((char=? ch #\┏) #\┓)
((char=? ch #\┓) #\┏)
((char=? ch #\┗) #\┛)
((char=? ch #\┛) #\┗)
((char=? ch #\┣) #\┫)
((char=? ch #\┫) #\┣)
(else ch)))

;上下
(define (flip-v ch)
(cond
((char=? ch #\┏) #\┗)
((char=? ch #\┓) #\┛)
((char=? ch #\┗) #\┏)
((char=? ch #\┛) #\┓)
((char=? ch #\┻) #\┳)
((char=? ch #\┳) #\┻)
(else ch)))

;行の左右反転
(define (flip-line-h s) (list->string (reverse (string->list s))))

;行の上下反転
(define (flip-line-v s) (list->string (map flip-v (string->list s))))