fork download
copy 
  1. (defun fortunecookie ()
  2.   (princ "名前または学籍番号を入力：")
  3.   (let* ((id (read-line))
  4.          (date-str (format nil "~4,'0d~2,'0d~2,'0d"
  5.                            (+ 1900 (nth 5 (decode-universal-time (get-universal-time))))
  6.                            (nth 4 (decode-universal-time (get-universal-time)))
  7.                            (nth 3 (decode-universal-time (get-universal-time)))))
  8.          (combined (concatenate 'string id date-str))
  9.          (seed (reduce #'+ (map 'list #'char-code combined)))
  10.          (result (nth (mod seed 5)
  11.                       '("大吉！挑戦を続けよう"
  12.                         "中吉！今日は集中の日"
  13.                         "小吉！まずは一歩"
  14.                         "吉！粘り勝ちを目指そう"
  15.                         "凶…でも明日がある！"))))
  16.     ;; 出力を明示的に返すように
  17.     (princ (format nil "結果（~A）：~A~%" date-str result))))
  18.  
Success #stdin #stdout #stderr 0.01s 9504KB
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
  0x14fa95e00000 - 0x14fa960e4fff
  0x14fa96200000 - 0x14fa96202fff
  0x14fa96203000 - 0x14fa96401fff
  0x14fa96402000 - 0x14fa96402fff
  0x14fa96403000 - 0x14fa96403fff
  0x14fa96415000 - 0x14fa96439fff
  0x14fa9643a000 - 0x14fa965acfff
  0x14fa965ad000 - 0x14fa965f5fff
  0x14fa965f6000 - 0x14fa965f8fff
  0x14fa965f9000 - 0x14fa965fbfff
  0x14fa965fc000 - 0x14fa965fffff
  0x14fa96600000 - 0x14fa96603fff
  0x14fa96604000 - 0x14fa96803fff
  0x14fa96804000 - 0x14fa96804fff
  0x14fa96805000 - 0x14fa96805fff
  0x14fa9687a000 - 0x14fa9687bfff
  0x14fa9687c000 - 0x14fa9688bfff
  0x14fa9688c000 - 0x14fa968bffff
  0x14fa968c0000 - 0x14fa969f6fff
  0x14fa969f7000 - 0x14fa969f7fff
  0x14fa969f8000 - 0x14fa969fafff
  0x14fa969fb000 - 0x14fa969fbfff
  0x14fa969fc000 - 0x14fa969fdfff
  0x14fa969fe000 - 0x14fa969fefff
  0x14fa969ff000 - 0x14fa96a00fff
  0x14fa96a01000 - 0x14fa96a01fff
  0x14fa96a02000 - 0x14fa96a02fff
  0x14fa96a03000 - 0x14fa96a03fff
  0x14fa96a04000 - 0x14fa96a11fff
  0x14fa96a12000 - 0x14fa96a1ffff
  0x14fa96a20000 - 0x14fa96a2cfff
  0x14fa96a2d000 - 0x14fa96a30fff
  0x14fa96a31000 - 0x14fa96a31fff
  0x14fa96a32000 - 0x14fa96a32fff
  0x14fa96a33000 - 0x14fa96a38fff
  0x14fa96a39000 - 0x14fa96a3afff
  0x14fa96a3b000 - 0x14fa96a3bfff
  0x14fa96a3c000 - 0x14fa96a3cfff
  0x14fa96a3d000 - 0x14fa96a3dfff
  0x14fa96a3e000 - 0x14fa96a6bfff
  0x14fa96a6c000 - 0x14fa96a7afff
  0x14fa96a7b000 - 0x14fa96b20fff
  0x14fa96b21000 - 0x14fa96bb7fff
  0x14fa96bb8000 - 0x14fa96bb8fff
  0x14fa96bb9000 - 0x14fa96bb9fff
  0x14fa96bba000 - 0x14fa96bcdfff
  0x14fa96bce000 - 0x14fa96bf5fff
  0x14fa96bf6000 - 0x14fa96bfffff
  0x14fa96c00000 - 0x14fa96c01fff
  0x14fa96c02000 - 0x14fa96c07fff
  0x14fa96c08000 - 0x14fa96c0afff
  0x14fa96c0d000 - 0x14fa96c0dfff
  0x14fa96c0e000 - 0x14fa96c0efff
  0x14fa96c0f000 - 0x14fa96c0ffff
  0x14fa96c10000 - 0x14fa96c10fff
  0x14fa96c11000 - 0x14fa96c11fff
  0x14fa96c12000 - 0x14fa96c18fff
  0x14fa96c19000 - 0x14fa96c1bfff
  0x14fa96c1c000 - 0x14fa96c1cfff
  0x14fa96c1d000 - 0x14fa96c3dfff
  0x14fa96c3e000 - 0x14fa96c45fff
  0x14fa96c46000 - 0x14fa96c46fff
  0x14fa96c47000 - 0x14fa96c47fff
  0x14fa96c48000 - 0x14fa96c48fff
  0x55feccf53000 - 0x55fecd043fff
  0x55fecd044000 - 0x55fecd14dfff
  0x55fecd14e000 - 0x55fecd1adfff
  0x55fecd1af000 - 0x55fecd1ddfff
  0x55fecd1de000 - 0x55fecd20efff
  0x55fecd20f000 - 0x55fecd212fff
  0x55fecf19a000 - 0x55fecf1bafff
  0x7ffd7aeff000 - 0x7ffd7af1ffff
  0x7ffd7afb1000 - 0x7ffd7afb4fff
  0x7ffd7afb5000 - 0x7ffd7afb6fff
https://ideone.com/Gh7w7v
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!