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 9468KB
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
  0x14bbd3600000 - 0x14bbd38e4fff
  0x14bbd3a15000 - 0x14bbd3a39fff
  0x14bbd3a3a000 - 0x14bbd3bacfff
  0x14bbd3bad000 - 0x14bbd3bf5fff
  0x14bbd3bf6000 - 0x14bbd3bf8fff
  0x14bbd3bf9000 - 0x14bbd3bfbfff
  0x14bbd3bfc000 - 0x14bbd3bfffff
  0x14bbd3c00000 - 0x14bbd3c02fff
  0x14bbd3c03000 - 0x14bbd3e01fff
  0x14bbd3e02000 - 0x14bbd3e02fff
  0x14bbd3e03000 - 0x14bbd3e03fff
  0x14bbd3e80000 - 0x14bbd3e8ffff
  0x14bbd3e90000 - 0x14bbd3ec3fff
  0x14bbd3ec4000 - 0x14bbd3ffafff
  0x14bbd3ffb000 - 0x14bbd3ffbfff
  0x14bbd3ffc000 - 0x14bbd3ffefff
  0x14bbd3fff000 - 0x14bbd3ffffff
  0x14bbd4000000 - 0x14bbd4003fff
  0x14bbd4004000 - 0x14bbd4203fff
  0x14bbd4204000 - 0x14bbd4204fff
  0x14bbd4205000 - 0x14bbd4205fff
  0x14bbd434e000 - 0x14bbd4351fff
  0x14bbd4352000 - 0x14bbd4352fff
  0x14bbd4353000 - 0x14bbd4354fff
  0x14bbd4355000 - 0x14bbd4355fff
  0x14bbd4356000 - 0x14bbd4356fff
  0x14bbd4357000 - 0x14bbd4357fff
  0x14bbd4358000 - 0x14bbd4365fff
  0x14bbd4366000 - 0x14bbd4373fff
  0x14bbd4374000 - 0x14bbd4380fff
  0x14bbd4381000 - 0x14bbd4384fff
  0x14bbd4385000 - 0x14bbd4385fff
  0x14bbd4386000 - 0x14bbd4386fff
  0x14bbd4387000 - 0x14bbd438cfff
  0x14bbd438d000 - 0x14bbd438efff
  0x14bbd438f000 - 0x14bbd438ffff
  0x14bbd4390000 - 0x14bbd4390fff
  0x14bbd4391000 - 0x14bbd4391fff
  0x14bbd4392000 - 0x14bbd43bffff
  0x14bbd43c0000 - 0x14bbd43cefff
  0x14bbd43cf000 - 0x14bbd4474fff
  0x14bbd4475000 - 0x14bbd450bfff
  0x14bbd450c000 - 0x14bbd450cfff
  0x14bbd450d000 - 0x14bbd450dfff
  0x14bbd450e000 - 0x14bbd4521fff
  0x14bbd4522000 - 0x14bbd4549fff
  0x14bbd454a000 - 0x14bbd4553fff
  0x14bbd4554000 - 0x14bbd4555fff
  0x14bbd4556000 - 0x14bbd455bfff
  0x14bbd455c000 - 0x14bbd455efff
  0x14bbd4561000 - 0x14bbd4561fff
  0x14bbd4562000 - 0x14bbd4562fff
  0x14bbd4563000 - 0x14bbd4563fff
  0x14bbd4564000 - 0x14bbd4564fff
  0x14bbd4565000 - 0x14bbd4565fff
  0x14bbd4566000 - 0x14bbd456cfff
  0x14bbd456d000 - 0x14bbd456ffff
  0x14bbd4570000 - 0x14bbd4570fff
  0x14bbd4571000 - 0x14bbd4591fff
  0x14bbd4592000 - 0x14bbd4599fff
  0x14bbd459a000 - 0x14bbd459afff
  0x14bbd459b000 - 0x14bbd459bfff
  0x14bbd459c000 - 0x14bbd459cfff
  0x5632fcf7f000 - 0x5632fd06ffff
  0x5632fd070000 - 0x5632fd179fff
  0x5632fd17a000 - 0x5632fd1d9fff
  0x5632fd1db000 - 0x5632fd209fff
  0x5632fd20a000 - 0x5632fd23afff
  0x5632fd23b000 - 0x5632fd23efff
  0x5632fee80000 - 0x5632feea0fff
  0x7ffc4ae4f000 - 0x7ffc4ae6ffff
  0x7ffc4af54000 - 0x7ffc4af57fff
  0x7ffc4af58000 - 0x7ffc4af59fff
https://ideone.com/wFrrZ6
language:
Common Lisp (clisp 2.49.92)
created:
8 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!