diff options
Diffstat (limited to 'digits.lisp')
| -rw-r--r-- | digits.lisp | 62 |
1 files changed, 62 insertions, 0 deletions
diff --git a/digits.lisp b/digits.lisp new file mode 100644 index 0000000..226bc23 --- /dev/null +++ b/digits.lisp @@ -0,0 +1,62 @@ +(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 (" ___ " + " / _ \\ " + "| (_) |" + " \\__, |" + " /_/ ")) + (#\. (" " + " " + " " + " _ " + "(_)")) + (#\: (" _ " + "(_)" + " " + " _ " + "(_)")))) |