fork download
copy 
  1. (defun fortunecookie ()
  2. (princ "名前または学籍番号を入力：")
  3. (let* ((id (read-line))
  4. (seed (reduce (lambda(a b)(+ a b)) (map 'list #'char-code id)))
  5. (result (nth (mod seed 5)
  6. '("大吉！ 挑戦を続けよう"
  7. "中吉！ 今日は集中の日"
  8. "小吉！ まずは一歩"
  9. "吉！ 粘り勝ちを目指そう"
  10. "凶...でも明日がある！ "))))
  11.  (format t "結果：~A~%" result)))
  12.  (fortunecookie)
  13. 25/40
  14.  
  15.  
  16.  
Success #stdin #stdout #stderr 0.02s 9448KB
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
  0x153174200000 - 0x1531744e4fff
  0x153174615000 - 0x153174639fff
  0x15317463a000 - 0x1531747acfff
  0x1531747ad000 - 0x1531747f5fff
  0x1531747f6000 - 0x1531747f8fff
  0x1531747f9000 - 0x1531747fbfff
  0x1531747fc000 - 0x1531747fffff
  0x153174800000 - 0x153174802fff
  0x153174803000 - 0x153174a01fff
  0x153174a02000 - 0x153174a02fff
  0x153174a03000 - 0x153174a03fff
  0x153174a80000 - 0x153174a8ffff
  0x153174a90000 - 0x153174ac3fff
  0x153174ac4000 - 0x153174bfafff
  0x153174bfb000 - 0x153174bfbfff
  0x153174bfc000 - 0x153174bfefff
  0x153174bff000 - 0x153174bfffff
  0x153174c00000 - 0x153174c03fff
  0x153174c04000 - 0x153174e03fff
  0x153174e04000 - 0x153174e04fff
  0x153174e05000 - 0x153174e05fff
  0x153174e9b000 - 0x153174e9efff
  0x153174e9f000 - 0x153174e9ffff
  0x153174ea0000 - 0x153174ea1fff
  0x153174ea2000 - 0x153174ea2fff
  0x153174ea3000 - 0x153174ea3fff
  0x153174ea4000 - 0x153174ea4fff
  0x153174ea5000 - 0x153174eb2fff
  0x153174eb3000 - 0x153174ec0fff
  0x153174ec1000 - 0x153174ecdfff
  0x153174ece000 - 0x153174ed1fff
  0x153174ed2000 - 0x153174ed2fff
  0x153174ed3000 - 0x153174ed3fff
  0x153174ed4000 - 0x153174ed9fff
  0x153174eda000 - 0x153174edbfff
  0x153174edc000 - 0x153174edcfff
  0x153174edd000 - 0x153174eddfff
  0x153174ede000 - 0x153174edefff
  0x153174edf000 - 0x153174f0cfff
  0x153174f0d000 - 0x153174f1bfff
  0x153174f1c000 - 0x153174fc1fff
  0x153174fc2000 - 0x153175058fff
  0x153175059000 - 0x153175059fff
  0x15317505a000 - 0x15317505afff
  0x15317505b000 - 0x15317506efff
  0x15317506f000 - 0x153175096fff
  0x153175097000 - 0x1531750a0fff
  0x1531750a1000 - 0x1531750a2fff
  0x1531750a3000 - 0x1531750a8fff
  0x1531750a9000 - 0x1531750abfff
  0x1531750ae000 - 0x1531750aefff
  0x1531750af000 - 0x1531750affff
  0x1531750b0000 - 0x1531750b0fff
  0x1531750b1000 - 0x1531750b1fff
  0x1531750b2000 - 0x1531750b2fff
  0x1531750b3000 - 0x1531750b9fff
  0x1531750ba000 - 0x1531750bcfff
  0x1531750bd000 - 0x1531750bdfff
  0x1531750be000 - 0x1531750defff
  0x1531750df000 - 0x1531750e6fff
  0x1531750e7000 - 0x1531750e7fff
  0x1531750e8000 - 0x1531750e8fff
  0x1531750e9000 - 0x1531750e9fff
  0x557bba54b000 - 0x557bba63bfff
  0x557bba63c000 - 0x557bba745fff
  0x557bba746000 - 0x557bba7a5fff
  0x557bba7a7000 - 0x557bba7d5fff
  0x557bba7d6000 - 0x557bba806fff
  0x557bba807000 - 0x557bba80afff
  0x557bbaba4000 - 0x557bbabc4fff
  0x7ffe546c3000 - 0x7ffe546e3fff
  0x7ffe547b1000 - 0x7ffe547b4fff
  0x7ffe547b5000 - 0x7ffe547b6fff
https://ideone.com/hVYANJ
language:
Common Lisp (clisp 2.49.92)
created:
12 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!