(defun fortunecookie ()
   (princ "名前または学籍番号を入力：")
   (let* ((id (read-line))
          (seed (reduce (lambda(a b)(+ a b)) (map 'list #'char-code id)))
          (date (write-to-string (/ (get-universal-time) 86400))) ; 日付を整数で取得
          (result (nth (mod seed 5)
                       '("大吉！ 挑戦を続けよう"
                         "中吉！ 今日は集中の日"
                         "小吉！ まずは一歩"
                         "吉！ 粘り勝ちを目指そう"
                         "凶...でも明日がある！ "))))
      (format t "結果：~A~%" result)))
  (fortunecookie)

KGRlZnVuIGZvcnR1bmVjb29raWUgKCkKICAgKHByaW5jICLlkI3liY3jgb7jgZ/jga/lrabnsY3nlarlj7fjgpLlhaXlipvvvJoiKQogICAobGV0KiAoKGlkIChyZWFkLWxpbmUpKQogICAgICAgICAgKHNlZWQgKHJlZHVjZSAobGFtYmRhKGEgYikoKyBhIGIpKSAobWFwICdsaXN0ICMnY2hhci1jb2RlIGlkKSkpCiAgICAgICAgICAoZGF0ZSAod3JpdGUtdG8tc3RyaW5nICgvIChnZXQtdW5pdmVyc2FsLXRpbWUpIDg2NDAwKSkpIDsg5pel5LuY44KS5pW05pWw44Gn5Y+W5b6XCiAgICAgICAgICAocmVzdWx0IChudGggKG1vZCBzZWVkIDUpCiAgICAgICAgICAgICAgICAgICAgICAgJygi5aSn5ZCJ77yBIOaMkeaIpuOCkue2muOBkeOCiOOBhiIKICAgICAgICAgICAgICAgICAgICAgICAgICLkuK3lkInvvIEg5LuK5pel44Gv6ZuG5Lit44Gu5pelIgogICAgICAgICAgICAgICAgICAgICAgICAgIuWwj+WQie+8gSDjgb7jgZrjga/kuIDmrakiCiAgICAgICAgICAgICAgICAgICAgICAgICAi5ZCJ77yBIOeymOOCiuWLneOBoeOCkuebruaMh+OBneOBhiIKICAgICAgICAgICAgICAgICAgICAgICAgICLlh7YuLi7jgafjgoLmmI7ml6XjgYzjgYLjgovvvIEgIikpKSkKICAgICAgKGZvcm1hdCB0ICLntZDmnpzvvJp+QX4lIiByZXN1bHQpKSkKICAoZm9ydHVuZWNvb2tpZSk=

5LuB6YOO

仁郎