63 lines
1.6 KiB
Common Lisp
63 lines
1.6 KiB
Common Lisp
(defparameter *big-digits* (make-hash-table :test 'equal))
|
|
(mapcar (lambda (x) (setf (gethash (car x) *big-digits*) (cadr x)))
|
|
'((#\0 (" ___ "
|
|
" / _ \\ "
|
|
"| | | |"
|
|
"| |_| |"
|
|
" \\___/ "))
|
|
(#\1 (" _ "
|
|
"/ |"
|
|
"| |"
|
|
"| |"
|
|
"|_|"))
|
|
(#\2 (" ____ "
|
|
"|___ \\ "
|
|
" __) |"
|
|
" / __/ "
|
|
"|_____|"))
|
|
(#\3 (" _____ "
|
|
"|___ / "
|
|
" |_ \\ "
|
|
" ___) |"
|
|
"|____/ "))
|
|
(#\4 (" _ _ "
|
|
"| || | "
|
|
"| || |_ "
|
|
"|__ _|"
|
|
" |_| "))
|
|
(#\5 (" ____ "
|
|
"| ___| "
|
|
"|___ \\ "
|
|
" ___) |"
|
|
"|____/ "))
|
|
(#\6 (" __ "
|
|
" / /_ "
|
|
"| '_ \\ "
|
|
"| (_) |"
|
|
" \\___/ "))
|
|
(#\7 (" _____ "
|
|
"|___ |"
|
|
" / / "
|
|
" / / "
|
|
" /_/ "))
|
|
(#\8 (" ___ "
|
|
" ( _ ) "
|
|
" / _ \\ "
|
|
"| (_) |"
|
|
" \\___/ "))
|
|
(#\9 (" ___ "
|
|
" / _ \\ "
|
|
"| (_) |"
|
|
" \\__, |"
|
|
" /_/ "))
|
|
(#\. (" "
|
|
" "
|
|
" "
|
|
" _ "
|
|
"(_)"))
|
|
(#\: (" _ "
|
|
"(_)"
|
|
" "
|
|
" _ "
|
|
"(_)"))))
|