fork download
copy 
  1. (defun fortunecookie ()
  2.   (princ "名前または学籍番号を入力：")
  3.   (let* ((id (read-line))
  4.          (seed (reduce #'+ (map 'list #'char-code id)))
  5.          (result (nth (mod seed 5)
  6.                       '("大吉！挑戦を続けよう"
  7.                         "中吉！今日は集中の日"
  8.                         "小吉！まずは一歩"
  9.                         "吉！粘り勝ちを目指そう"
  10.                         "凶…でも明日がある！"))))
  11.     (format t "結果：~A~%" result)))
  12. (fortunecookie)
Success #stdin #stdout #stderr 0.02s 9680KB
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
  0x145788600000 - 0x1457888e4fff
  0x145788a15000 - 0x145788a39fff
  0x145788a3a000 - 0x145788bacfff
  0x145788bad000 - 0x145788bf5fff
  0x145788bf6000 - 0x145788bf8fff
  0x145788bf9000 - 0x145788bfbfff
  0x145788bfc000 - 0x145788bfffff
  0x145788c00000 - 0x145788c02fff
  0x145788c03000 - 0x145788e01fff
  0x145788e02000 - 0x145788e02fff
  0x145788e03000 - 0x145788e03fff
  0x145788e80000 - 0x145788e8ffff
  0x145788e90000 - 0x145788ec3fff
  0x145788ec4000 - 0x145788ffafff
  0x145788ffb000 - 0x145788ffbfff
  0x145788ffc000 - 0x145788ffefff
  0x145788fff000 - 0x145788ffffff
  0x145789000000 - 0x145789003fff
  0x145789004000 - 0x145789203fff
  0x145789204000 - 0x145789204fff
  0x145789205000 - 0x145789205fff
  0x145789220000 - 0x145789223fff
  0x145789224000 - 0x145789224fff
  0x145789225000 - 0x145789226fff
  0x145789227000 - 0x145789227fff
  0x145789228000 - 0x145789228fff
  0x145789229000 - 0x145789229fff
  0x14578922a000 - 0x145789237fff
  0x145789238000 - 0x145789245fff
  0x145789246000 - 0x145789252fff
  0x145789253000 - 0x145789256fff
  0x145789257000 - 0x145789257fff
  0x145789258000 - 0x145789258fff
  0x145789259000 - 0x14578925efff
  0x14578925f000 - 0x145789260fff
  0x145789261000 - 0x145789261fff
  0x145789262000 - 0x145789262fff
  0x145789263000 - 0x145789263fff
  0x145789264000 - 0x145789291fff
  0x145789292000 - 0x1457892a0fff
  0x1457892a1000 - 0x145789346fff
  0x145789347000 - 0x1457893ddfff
  0x1457893de000 - 0x1457893defff
  0x1457893df000 - 0x1457893dffff
  0x1457893e0000 - 0x1457893f3fff
  0x1457893f4000 - 0x14578941bfff
  0x14578941c000 - 0x145789425fff
  0x145789426000 - 0x145789427fff
  0x145789428000 - 0x14578942dfff
  0x14578942e000 - 0x145789430fff
  0x145789433000 - 0x145789433fff
  0x145789434000 - 0x145789434fff
  0x145789435000 - 0x145789435fff
  0x145789436000 - 0x145789436fff
  0x145789437000 - 0x145789437fff
  0x145789438000 - 0x14578943efff
  0x14578943f000 - 0x145789441fff
  0x145789442000 - 0x145789442fff
  0x145789443000 - 0x145789463fff
  0x145789464000 - 0x14578946bfff
  0x14578946c000 - 0x14578946cfff
  0x14578946d000 - 0x14578946dfff
  0x14578946e000 - 0x14578946efff
  0x5593008de000 - 0x5593009cefff
  0x5593009cf000 - 0x559300ad8fff
  0x559300ad9000 - 0x559300b38fff
  0x559300b3a000 - 0x559300b68fff
  0x559300b69000 - 0x559300b99fff
  0x559300b9a000 - 0x559300b9dfff
  0x559302834000 - 0x559302854fff
  0x7ffd95f8c000 - 0x7ffd95facfff
  0x7ffd95fe6000 - 0x7ffd95fe9fff
  0x7ffd95fea000 - 0x7ffd95febfff
https://ideone.com/8Iw47i
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!