37 lines
640 B
Racket
37 lines
640 B
Racket
#lang racket
|
|
|
|
(define space
|
|
(string-append
|
|
"░░░░░"
|
|
"░░░░░"
|
|
"░░░░░"
|
|
"░░░░░"
|
|
"░░░░░"
|
|
"░░░░░"))
|
|
|
|
(define A
|
|
(string-append
|
|
"░░█░░"
|
|
"░█░█░"
|
|
"█░░░█"
|
|
"█████"
|
|
"█░░░█"
|
|
"█░░░█"))
|
|
|
|
(define B
|
|
(string-append
|
|
"███░░"
|
|
"█░░█░"
|
|
"███░░"
|
|
"█░░█░"
|
|
"█░░█░"
|
|
"███░░"))
|
|
|
|
(define C
|
|
(string-append
|
|
"░░██░"
|
|
"░█░░█"
|
|
"█░░░░"
|
|
"█░░░░"
|
|
"░█░░█"
|
|
"░░██░")) |