fork download
copy 
  1. (defun fortunecookie ()
  2.   (princ "名前または学籍番号を入力：")
  3.   (let* ((id (read-line))
  4.          (now (multiple-value-list (decode-universal-time (get-universal-time))))
  5.          (year (nth 5 now))
  6.          (month (nth 4 now))
  7.          (day (nth 3 now))
  8.          ;; 日付文字列を作成して、IDと一緒に使う
  9.          (date-str (format nil "~4,'0D~2,'0D~2,'0D" year month day))
  10.          (full-seed-str (concatenate 'string id date-str))
  11.          (char-codes (map 'list #'char-code full-seed-str))
  12.          (seed (reduce #'+ char-codes :initial-value 0))
  13.          (result (nth (mod seed 5)
  14.                       '("大吉！挑戦を続けよう"
  15.                         "中吉！今日は集中の日"
  16.                         "小吉！まずは一歩"
  17.                         "吉！粘り勝ちを目指そう"
  18.                         "凶…でも明日がある！"))))
  19.     (format t "結果：~A~%" result)))
  20.  
  21. (fortunecookie)
  22.  
Success #stdin #stdout #stderr 0.02s 9544KB
comments (?)
stdin
copy 
土屋
stdout
copy 
名前または学籍番号を入力：結果：小吉！まずは一歩
stderr
copy 
Warning: reserving address range 0x80000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later!
Memory dump:
  0x8000000000 - 0x80000bffff
  0x149f70000000 - 0x149f702e4fff
  0x149f70400000 - 0x149f70402fff
  0x149f70403000 - 0x149f70601fff
  0x149f70602000 - 0x149f70602fff
  0x149f70603000 - 0x149f70603fff
  0x149f70615000 - 0x149f70639fff
  0x149f7063a000 - 0x149f707acfff
  0x149f707ad000 - 0x149f707f5fff
  0x149f707f6000 - 0x149f707f8fff
  0x149f707f9000 - 0x149f707fbfff
  0x149f707fc000 - 0x149f707fffff
  0x149f70800000 - 0x149f70803fff
  0x149f70804000 - 0x149f70a03fff
  0x149f70a04000 - 0x149f70a04fff
  0x149f70a05000 - 0x149f70a05fff
  0x149f70a76000 - 0x149f70a77fff
  0x149f70a78000 - 0x149f70a87fff
  0x149f70a88000 - 0x149f70abbfff
  0x149f70abc000 - 0x149f70bf2fff
  0x149f70bf3000 - 0x149f70bf3fff
  0x149f70bf4000 - 0x149f70bf6fff
  0x149f70bf7000 - 0x149f70bf7fff
  0x149f70bf8000 - 0x149f70bf9fff
  0x149f70bfa000 - 0x149f70bfafff
  0x149f70bfb000 - 0x149f70bfcfff
  0x149f70bfd000 - 0x149f70bfdfff
  0x149f70bfe000 - 0x149f70bfefff
  0x149f70bff000 - 0x149f70bfffff
  0x149f70c00000 - 0x149f70c0dfff
  0x149f70c0e000 - 0x149f70c1bfff
  0x149f70c1c000 - 0x149f70c28fff
  0x149f70c29000 - 0x149f70c2cfff
  0x149f70c2d000 - 0x149f70c2dfff
  0x149f70c2e000 - 0x149f70c2efff
  0x149f70c2f000 - 0x149f70c34fff
  0x149f70c35000 - 0x149f70c36fff
  0x149f70c37000 - 0x149f70c37fff
  0x149f70c38000 - 0x149f70c38fff
  0x149f70c39000 - 0x149f70c39fff
  0x149f70c3a000 - 0x149f70c67fff
  0x149f70c68000 - 0x149f70c76fff
  0x149f70c77000 - 0x149f70d1cfff
  0x149f70d1d000 - 0x149f70db3fff
  0x149f70db4000 - 0x149f70db4fff
  0x149f70db5000 - 0x149f70db5fff
  0x149f70db6000 - 0x149f70dc9fff
  0x149f70dca000 - 0x149f70df1fff
  0x149f70df2000 - 0x149f70dfbfff
  0x149f70dfc000 - 0x149f70dfdfff
  0x149f70dfe000 - 0x149f70e03fff
  0x149f70e04000 - 0x149f70e06fff
  0x149f70e09000 - 0x149f70e09fff
  0x149f70e0a000 - 0x149f70e0afff
  0x149f70e0b000 - 0x149f70e0bfff
  0x149f70e0c000 - 0x149f70e0cfff
  0x149f70e0d000 - 0x149f70e0dfff
  0x149f70e0e000 - 0x149f70e14fff
  0x149f70e15000 - 0x149f70e17fff
  0x149f70e18000 - 0x149f70e18fff
  0x149f70e19000 - 0x149f70e39fff
  0x149f70e3a000 - 0x149f70e41fff
  0x149f70e42000 - 0x149f70e42fff
  0x149f70e43000 - 0x149f70e43fff
  0x149f70e44000 - 0x149f70e44fff
  0x55d631aa6000 - 0x55d631b96fff
  0x55d631b97000 - 0x55d631ca0fff
  0x55d631ca1000 - 0x55d631d00fff
  0x55d631d02000 - 0x55d631d30fff
  0x55d631d31000 - 0x55d631d61fff
  0x55d631d62000 - 0x55d631d65fff
  0x55d6334d6000 - 0x55d6334f6fff
  0x7ffdb6624000 - 0x7ffdb6644fff
  0x7ffdb66ba000 - 0x7ffdb66bdfff
  0x7ffdb66be000 - 0x7ffdb66bffff
https://ideone.com/RfB6tU
language:
Common Lisp (clisp 2.49.92)
created:
11 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!