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 9520KB
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
  0x14ebbd000000 - 0x14ebbd2e4fff
  0x14ebbd415000 - 0x14ebbd439fff
  0x14ebbd43a000 - 0x14ebbd5acfff
  0x14ebbd5ad000 - 0x14ebbd5f5fff
  0x14ebbd5f6000 - 0x14ebbd5f8fff
  0x14ebbd5f9000 - 0x14ebbd5fbfff
  0x14ebbd5fc000 - 0x14ebbd5fffff
  0x14ebbd600000 - 0x14ebbd602fff
  0x14ebbd603000 - 0x14ebbd801fff
  0x14ebbd802000 - 0x14ebbd802fff
  0x14ebbd803000 - 0x14ebbd803fff
  0x14ebbd880000 - 0x14ebbd88ffff
  0x14ebbd890000 - 0x14ebbd8c3fff
  0x14ebbd8c4000 - 0x14ebbd9fafff
  0x14ebbd9fb000 - 0x14ebbd9fbfff
  0x14ebbd9fc000 - 0x14ebbd9fefff
  0x14ebbd9ff000 - 0x14ebbd9fffff
  0x14ebbda00000 - 0x14ebbda03fff
  0x14ebbda04000 - 0x14ebbdc03fff
  0x14ebbdc04000 - 0x14ebbdc04fff
  0x14ebbdc05000 - 0x14ebbdc05fff
  0x14ebbdd37000 - 0x14ebbdd3afff
  0x14ebbdd3b000 - 0x14ebbdd3bfff
  0x14ebbdd3c000 - 0x14ebbdd3dfff
  0x14ebbdd3e000 - 0x14ebbdd3efff
  0x14ebbdd3f000 - 0x14ebbdd3ffff
  0x14ebbdd40000 - 0x14ebbdd40fff
  0x14ebbdd41000 - 0x14ebbdd4efff
  0x14ebbdd4f000 - 0x14ebbdd5cfff
  0x14ebbdd5d000 - 0x14ebbdd69fff
  0x14ebbdd6a000 - 0x14ebbdd6dfff
  0x14ebbdd6e000 - 0x14ebbdd6efff
  0x14ebbdd6f000 - 0x14ebbdd6ffff
  0x14ebbdd70000 - 0x14ebbdd75fff
  0x14ebbdd76000 - 0x14ebbdd77fff
  0x14ebbdd78000 - 0x14ebbdd78fff
  0x14ebbdd79000 - 0x14ebbdd79fff
  0x14ebbdd7a000 - 0x14ebbdd7afff
  0x14ebbdd7b000 - 0x14ebbdda8fff
  0x14ebbdda9000 - 0x14ebbddb7fff
  0x14ebbddb8000 - 0x14ebbde5dfff
  0x14ebbde5e000 - 0x14ebbdef4fff
  0x14ebbdef5000 - 0x14ebbdef5fff
  0x14ebbdef6000 - 0x14ebbdef6fff
  0x14ebbdef7000 - 0x14ebbdf0afff
  0x14ebbdf0b000 - 0x14ebbdf32fff
  0x14ebbdf33000 - 0x14ebbdf3cfff
  0x14ebbdf3d000 - 0x14ebbdf3efff
  0x14ebbdf3f000 - 0x14ebbdf44fff
  0x14ebbdf45000 - 0x14ebbdf47fff
  0x14ebbdf4a000 - 0x14ebbdf4afff
  0x14ebbdf4b000 - 0x14ebbdf4bfff
  0x14ebbdf4c000 - 0x14ebbdf4cfff
  0x14ebbdf4d000 - 0x14ebbdf4dfff
  0x14ebbdf4e000 - 0x14ebbdf4efff
  0x14ebbdf4f000 - 0x14ebbdf55fff
  0x14ebbdf56000 - 0x14ebbdf58fff
  0x14ebbdf59000 - 0x14ebbdf59fff
  0x14ebbdf5a000 - 0x14ebbdf7afff
  0x14ebbdf7b000 - 0x14ebbdf82fff
  0x14ebbdf83000 - 0x14ebbdf83fff
  0x14ebbdf84000 - 0x14ebbdf84fff
  0x14ebbdf85000 - 0x14ebbdf85fff
  0x555d59dc4000 - 0x555d59eb4fff
  0x555d59eb5000 - 0x555d59fbefff
  0x555d59fbf000 - 0x555d5a01efff
  0x555d5a020000 - 0x555d5a04efff
  0x555d5a04f000 - 0x555d5a07ffff
  0x555d5a080000 - 0x555d5a083fff
  0x555d5aa30000 - 0x555d5aa50fff
  0x7ffe405eb000 - 0x7ffe4060bfff
  0x7ffe406a2000 - 0x7ffe406a5fff
  0x7ffe406a6000 - 0x7ffe406a7fff
https://ideone.com/KDGpwU
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!