fork download
copy 
  1. (defun fortunecookie-by-date ()
  2.   (princ "名前または学籍番号を入力：")
  3.   (let* ((now (decode-universal-time (get-universal-time)))
  4.          (year (nth 5 now))
  5.          (month (nth 4 now))
  6.          (day (nth 3 now))
  7.          ;; シード：日付を数値に変換して合計
  8.          (seed (+ (* year 10000) (* month 100) day))
  9.          (fortune-list '("大吉！挑戦を続けよう"
  10.                          "中吉！今日は集中の日"
  11.                          "小吉！まずは一歩"
  12.                          "吉！粘り勝ちを目指そう"
  13.                          "凶…でも明日がある！"))
  14.          (result (nth (mod seed (length fortune-list)) fortune-list)))
  15.     (format t "~%今日は ~A~%" result)))
Success #stdin #stdout #stderr 0.02s 9440KB
comments (?)
stdin
copy 
工藤嘉悦
stdout
copy 
Standard output is empty
stderr
copy 
Warning: reserving address range 0x80000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later!
Memory dump:
  0x8000000000 - 0x80000bffff
  0x14a5b7e00000 - 0x14a5b80e4fff
  0x14a5b8215000 - 0x14a5b8239fff
  0x14a5b823a000 - 0x14a5b83acfff
  0x14a5b83ad000 - 0x14a5b83f5fff
  0x14a5b83f6000 - 0x14a5b83f8fff
  0x14a5b83f9000 - 0x14a5b83fbfff
  0x14a5b83fc000 - 0x14a5b83fffff
  0x14a5b8400000 - 0x14a5b8402fff
  0x14a5b8403000 - 0x14a5b8601fff
  0x14a5b8602000 - 0x14a5b8602fff
  0x14a5b8603000 - 0x14a5b8603fff
  0x14a5b8680000 - 0x14a5b868ffff
  0x14a5b8690000 - 0x14a5b86c3fff
  0x14a5b86c4000 - 0x14a5b87fafff
  0x14a5b87fb000 - 0x14a5b87fbfff
  0x14a5b87fc000 - 0x14a5b87fefff
  0x14a5b87ff000 - 0x14a5b87fffff
  0x14a5b8800000 - 0x14a5b8803fff
  0x14a5b8804000 - 0x14a5b8a03fff
  0x14a5b8a04000 - 0x14a5b8a04fff
  0x14a5b8a05000 - 0x14a5b8a05fff
  0x14a5b8a3a000 - 0x14a5b8a3dfff
  0x14a5b8a3e000 - 0x14a5b8a3efff
  0x14a5b8a3f000 - 0x14a5b8a40fff
  0x14a5b8a41000 - 0x14a5b8a41fff
  0x14a5b8a42000 - 0x14a5b8a42fff
  0x14a5b8a43000 - 0x14a5b8a43fff
  0x14a5b8a44000 - 0x14a5b8a51fff
  0x14a5b8a52000 - 0x14a5b8a5ffff
  0x14a5b8a60000 - 0x14a5b8a6cfff
  0x14a5b8a6d000 - 0x14a5b8a70fff
  0x14a5b8a71000 - 0x14a5b8a71fff
  0x14a5b8a72000 - 0x14a5b8a72fff
  0x14a5b8a73000 - 0x14a5b8a78fff
  0x14a5b8a79000 - 0x14a5b8a7afff
  0x14a5b8a7b000 - 0x14a5b8a7bfff
  0x14a5b8a7c000 - 0x14a5b8a7cfff
  0x14a5b8a7d000 - 0x14a5b8a7dfff
  0x14a5b8a7e000 - 0x14a5b8aabfff
  0x14a5b8aac000 - 0x14a5b8abafff
  0x14a5b8abb000 - 0x14a5b8b60fff
  0x14a5b8b61000 - 0x14a5b8bf7fff
  0x14a5b8bf8000 - 0x14a5b8bf8fff
  0x14a5b8bf9000 - 0x14a5b8bf9fff
  0x14a5b8bfa000 - 0x14a5b8c0dfff
  0x14a5b8c0e000 - 0x14a5b8c35fff
  0x14a5b8c36000 - 0x14a5b8c3ffff
  0x14a5b8c40000 - 0x14a5b8c41fff
  0x14a5b8c42000 - 0x14a5b8c47fff
  0x14a5b8c48000 - 0x14a5b8c4afff
  0x14a5b8c4d000 - 0x14a5b8c4dfff
  0x14a5b8c4e000 - 0x14a5b8c4efff
  0x14a5b8c4f000 - 0x14a5b8c4ffff
  0x14a5b8c50000 - 0x14a5b8c50fff
  0x14a5b8c51000 - 0x14a5b8c51fff
  0x14a5b8c52000 - 0x14a5b8c58fff
  0x14a5b8c59000 - 0x14a5b8c5bfff
  0x14a5b8c5c000 - 0x14a5b8c5cfff
  0x14a5b8c5d000 - 0x14a5b8c7dfff
  0x14a5b8c7e000 - 0x14a5b8c85fff
  0x14a5b8c86000 - 0x14a5b8c86fff
  0x14a5b8c87000 - 0x14a5b8c87fff
  0x14a5b8c88000 - 0x14a5b8c88fff
  0x562e9cd1c000 - 0x562e9ce0cfff
  0x562e9ce0d000 - 0x562e9cf16fff
  0x562e9cf17000 - 0x562e9cf76fff
  0x562e9cf78000 - 0x562e9cfa6fff
  0x562e9cfa7000 - 0x562e9cfd7fff
  0x562e9cfd8000 - 0x562e9cfdbfff
  0x562e9ddca000 - 0x562e9ddeafff
  0x7ffe84657000 - 0x7ffe84677fff
  0x7ffe84695000 - 0x7ffe84698fff
  0x7ffe84699000 - 0x7ffe8469afff
https://ideone.com/gpLnxx
language:
Common Lisp (clisp 2.49.92)
created:
11 hours 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!