diff options
| author | Logan Hunt <loganjh@amazon.com> | 2022-05-24 09:57:15 -0700 |
|---|---|---|
| committer | Logan Hunt <loganjh@amazon.com> | 2022-05-24 09:57:15 -0700 |
| commit | 3db9a2eb7a7d14ce935f5902b0c21ce4fd5eb729 (patch) | |
| tree | f618b9a6342b8d30c39454e9cf7b3cabefc04db4 /digits.lisp | |
| download | lispruns-3db9a2eb7a7d14ce935f5902b0c21ce4fd5eb729.tar.gz lispruns-3db9a2eb7a7d14ce935f5902b0c21ce4fd5eb729.zip | |
None of the original commit messages would actually help anyone
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 (" ___ " + " / _ \\ " + "| (_) |" + " \\__, |" + " /_/ ")) + (#\. (" " + " " + " " + " _ " + "(_)")) + (#\: (" _ " + "(_)" + " " + " _ " + "(_)")))) |