fork(1) 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.01s 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
  0x14e36f200000 - 0x14e36f4e4fff
  0x14e36f600000 - 0x14e36f602fff
  0x14e36f603000 - 0x14e36f801fff
  0x14e36f802000 - 0x14e36f802fff
  0x14e36f803000 - 0x14e36f803fff
  0x14e36f815000 - 0x14e36f839fff
  0x14e36f83a000 - 0x14e36f9acfff
  0x14e36f9ad000 - 0x14e36f9f5fff
  0x14e36f9f6000 - 0x14e36f9f8fff
  0x14e36f9f9000 - 0x14e36f9fbfff
  0x14e36f9fc000 - 0x14e36f9fffff
  0x14e36fa00000 - 0x14e36fa03fff
  0x14e36fa04000 - 0x14e36fc03fff
  0x14e36fc04000 - 0x14e36fc04fff
  0x14e36fc05000 - 0x14e36fc05fff
  0x14e36fc0a000 - 0x14e36fc0bfff
  0x14e36fc0c000 - 0x14e36fc1bfff
  0x14e36fc1c000 - 0x14e36fc4ffff
  0x14e36fc50000 - 0x14e36fd86fff
  0x14e36fd87000 - 0x14e36fd87fff
  0x14e36fd88000 - 0x14e36fd8afff
  0x14e36fd8b000 - 0x14e36fd8bfff
  0x14e36fd8c000 - 0x14e36fd8dfff
  0x14e36fd8e000 - 0x14e36fd8efff
  0x14e36fd8f000 - 0x14e36fd90fff
  0x14e36fd91000 - 0x14e36fd91fff
  0x14e36fd92000 - 0x14e36fd92fff
  0x14e36fd93000 - 0x14e36fd93fff
  0x14e36fd94000 - 0x14e36fda1fff
  0x14e36fda2000 - 0x14e36fdaffff
  0x14e36fdb0000 - 0x14e36fdbcfff
  0x14e36fdbd000 - 0x14e36fdc0fff
  0x14e36fdc1000 - 0x14e36fdc1fff
  0x14e36fdc2000 - 0x14e36fdc2fff
  0x14e36fdc3000 - 0x14e36fdc8fff
  0x14e36fdc9000 - 0x14e36fdcafff
  0x14e36fdcb000 - 0x14e36fdcbfff
  0x14e36fdcc000 - 0x14e36fdccfff
  0x14e36fdcd000 - 0x14e36fdcdfff
  0x14e36fdce000 - 0x14e36fdfbfff
  0x14e36fdfc000 - 0x14e36fe0afff
  0x14e36fe0b000 - 0x14e36feb0fff
  0x14e36feb1000 - 0x14e36ff47fff
  0x14e36ff48000 - 0x14e36ff48fff
  0x14e36ff49000 - 0x14e36ff49fff
  0x14e36ff4a000 - 0x14e36ff5dfff
  0x14e36ff5e000 - 0x14e36ff85fff
  0x14e36ff86000 - 0x14e36ff8ffff
  0x14e36ff90000 - 0x14e36ff91fff
  0x14e36ff92000 - 0x14e36ff97fff
  0x14e36ff98000 - 0x14e36ff9afff
  0x14e36ff9d000 - 0x14e36ff9dfff
  0x14e36ff9e000 - 0x14e36ff9efff
  0x14e36ff9f000 - 0x14e36ff9ffff
  0x14e36ffa0000 - 0x14e36ffa0fff
  0x14e36ffa1000 - 0x14e36ffa1fff
  0x14e36ffa2000 - 0x14e36ffa8fff
  0x14e36ffa9000 - 0x14e36ffabfff
  0x14e36ffac000 - 0x14e36ffacfff
  0x14e36ffad000 - 0x14e36ffcdfff
  0x14e36ffce000 - 0x14e36ffd5fff
  0x14e36ffd6000 - 0x14e36ffd6fff
  0x14e36ffd7000 - 0x14e36ffd7fff
  0x14e36ffd8000 - 0x14e36ffd8fff
  0x55beac98e000 - 0x55beaca7efff
  0x55beaca7f000 - 0x55beacb88fff
  0x55beacb89000 - 0x55beacbe8fff
  0x55beacbea000 - 0x55beacc18fff
  0x55beacc19000 - 0x55beacc49fff
  0x55beacc4a000 - 0x55beacc4dfff
  0x55bead9a2000 - 0x55bead9c2fff
  0x7fff4aa25000 - 0x7fff4aa45fff
  0x7fff4aad9000 - 0x7fff4aadcfff
  0x7fff4aadd000 - 0x7fff4aadefff
https://ideone.com/BVivnE
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!