fork download
copy 
  1. (defun fortunecookie-by-date ()
  2.   (let* ((now (decode-universal-time (get-universal-time)))
  3.          (year (nth 5 now))
  4.          (month (nth 4 now))
  5.          (day (nth 3 now))
  6.          ;; シード：日付を数値に変換して合計
  7.          (seed (+ (* year 10000) (* month 100) day))
  8.          (fortune-list '("大吉！挑戦を続けよう"
  9.                          "中吉！今日は集中の日"
  10.                          "小吉！まずは一歩"
  11.                          "吉！粘り勝ちを目指そう"
  12.                          "凶…でも明日がある！"))
  13.          (result (nth (mod seed (length fortune-list)) fortune-list)))
  14.     (format t "~%今日は ~A~%" result)))
  15.  
Success #stdin #stdout #stderr 0.02s 9484KB
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
  0x153c55000000 - 0x153c552e4fff
  0x153c55415000 - 0x153c55439fff
  0x153c5543a000 - 0x153c555acfff
  0x153c555ad000 - 0x153c555f5fff
  0x153c555f6000 - 0x153c555f8fff
  0x153c555f9000 - 0x153c555fbfff
  0x153c555fc000 - 0x153c555fffff
  0x153c55600000 - 0x153c55602fff
  0x153c55603000 - 0x153c55801fff
  0x153c55802000 - 0x153c55802fff
  0x153c55803000 - 0x153c55803fff
  0x153c55880000 - 0x153c5588ffff
  0x153c55890000 - 0x153c558c3fff
  0x153c558c4000 - 0x153c559fafff
  0x153c559fb000 - 0x153c559fbfff
  0x153c559fc000 - 0x153c559fefff
  0x153c559ff000 - 0x153c559fffff
  0x153c55a00000 - 0x153c55a03fff
  0x153c55a04000 - 0x153c55c03fff
  0x153c55c04000 - 0x153c55c04fff
  0x153c55c05000 - 0x153c55c05fff
  0x153c55cd8000 - 0x153c55cdbfff
  0x153c55cdc000 - 0x153c55cdcfff
  0x153c55cdd000 - 0x153c55cdefff
  0x153c55cdf000 - 0x153c55cdffff
  0x153c55ce0000 - 0x153c55ce0fff
  0x153c55ce1000 - 0x153c55ce1fff
  0x153c55ce2000 - 0x153c55ceffff
  0x153c55cf0000 - 0x153c55cfdfff
  0x153c55cfe000 - 0x153c55d0afff
  0x153c55d0b000 - 0x153c55d0efff
  0x153c55d0f000 - 0x153c55d0ffff
  0x153c55d10000 - 0x153c55d10fff
  0x153c55d11000 - 0x153c55d16fff
  0x153c55d17000 - 0x153c55d18fff
  0x153c55d19000 - 0x153c55d19fff
  0x153c55d1a000 - 0x153c55d1afff
  0x153c55d1b000 - 0x153c55d1bfff
  0x153c55d1c000 - 0x153c55d49fff
  0x153c55d4a000 - 0x153c55d58fff
  0x153c55d59000 - 0x153c55dfefff
  0x153c55dff000 - 0x153c55e95fff
  0x153c55e96000 - 0x153c55e96fff
  0x153c55e97000 - 0x153c55e97fff
  0x153c55e98000 - 0x153c55eabfff
  0x153c55eac000 - 0x153c55ed3fff
  0x153c55ed4000 - 0x153c55eddfff
  0x153c55ede000 - 0x153c55edffff
  0x153c55ee0000 - 0x153c55ee5fff
  0x153c55ee6000 - 0x153c55ee8fff
  0x153c55eeb000 - 0x153c55eebfff
  0x153c55eec000 - 0x153c55eecfff
  0x153c55eed000 - 0x153c55eedfff
  0x153c55eee000 - 0x153c55eeefff
  0x153c55eef000 - 0x153c55eeffff
  0x153c55ef0000 - 0x153c55ef6fff
  0x153c55ef7000 - 0x153c55ef9fff
  0x153c55efa000 - 0x153c55efafff
  0x153c55efb000 - 0x153c55f1bfff
  0x153c55f1c000 - 0x153c55f23fff
  0x153c55f24000 - 0x153c55f24fff
  0x153c55f25000 - 0x153c55f25fff
  0x153c55f26000 - 0x153c55f26fff
  0x55609ade4000 - 0x55609aed4fff
  0x55609aed5000 - 0x55609afdefff
  0x55609afdf000 - 0x55609b03efff
  0x55609b040000 - 0x55609b06efff
  0x55609b06f000 - 0x55609b09ffff
  0x55609b0a0000 - 0x55609b0a3fff
  0x55609bf8e000 - 0x55609bfaefff
  0x7ffe26be2000 - 0x7ffe26c02fff
  0x7ffe26c63000 - 0x7ffe26c66fff
  0x7ffe26c67000 - 0x7ffe26c68fff
https://ideone.com/naDCh0
language:
Common Lisp (clisp 2.49.92)
created:
13 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!