とりあえず、色をつけるのと、雪をふらせるオプションをつけてみました (defun mkstr (list) (with-output-to-string (s) (dolist (a list) (princ a s)))) (defvar foreground-color-list '(:black 30 :red 31 :green 32 :yellow 33 :blue 34 :magenta 35 :…

とりあえず、とくに祝いもなかったので寝惚けまなこで5分ぐらいで適当に書いてみました。 (defun mkstr (list) (with-output-to-string (s) (dolist (a list) (princ a s)))) (defvar foreground-color-list '(:black 30 :red 31 :green 32 :yellow 33 :blue…