fork download 
  1. (defun fortunecookie ()
  2.   (princ "名前または学籍番号を入力：")
  3.   (let* ((id (read-line *standard-input* nil ""))
  4.          (chars (mapcar #'char-code (coerce id 'list)))
  5.          (seed (reduce #'+ chars))
  6.          (result (nth (mod seed 5)
  7.                       '("大吉！ 挑戦を続けよう"
  8.                         "中吉！ 今日は集中の日"
  9.                         "小吉！ まずは一歩"
  10.                         "吉！ 粘り勝ちを目指そう"
  11.                         "凶...でも明日がある！"))))
  12.     (format t "結果：~A~%" result)))
  13.  
  14. (fortunecookie)
Success #stdin #stdout #stderr 0.02s 9420KB
comments (?)
stdin 
原彰吾
stdout 
名前または学籍番号を入力：結果：大吉！ 挑戦を続けよう
stderr 
Warning: reserving address range 0x80000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later!
Memory dump:
  0x8000000000 - 0x80000bffff
  0x152e85a00000 - 0x152e85ce4fff
  0x152e85e15000 - 0x152e85e39fff
  0x152e85e3a000 - 0x152e85facfff
  0x152e85fad000 - 0x152e85ff5fff
  0x152e85ff6000 - 0x152e85ff8fff
  0x152e85ff9000 - 0x152e85ffbfff
  0x152e85ffc000 - 0x152e85ffffff
  0x152e86000000 - 0x152e86002fff
  0x152e86003000 - 0x152e86201fff
  0x152e86202000 - 0x152e86202fff
  0x152e86203000 - 0x152e86203fff
  0x152e86280000 - 0x152e8628ffff
  0x152e86290000 - 0x152e862c3fff
  0x152e862c4000 - 0x152e863fafff
  0x152e863fb000 - 0x152e863fbfff
  0x152e863fc000 - 0x152e863fefff
  0x152e863ff000 - 0x152e863fffff
  0x152e86400000 - 0x152e86403fff
  0x152e86404000 - 0x152e86603fff
  0x152e86604000 - 0x152e86604fff
  0x152e86605000 - 0x152e86605fff
  0x152e8672e000 - 0x152e86731fff
  0x152e86732000 - 0x152e86732fff
  0x152e86733000 - 0x152e86734fff
  0x152e86735000 - 0x152e86735fff
  0x152e86736000 - 0x152e86736fff
  0x152e86737000 - 0x152e86737fff
  0x152e86738000 - 0x152e86745fff
  0x152e86746000 - 0x152e86753fff
  0x152e86754000 - 0x152e86760fff
  0x152e86761000 - 0x152e86764fff
  0x152e86765000 - 0x152e86765fff
  0x152e86766000 - 0x152e86766fff
  0x152e86767000 - 0x152e8676cfff
  0x152e8676d000 - 0x152e8676efff
  0x152e8676f000 - 0x152e8676ffff
  0x152e86770000 - 0x152e86770fff
  0x152e86771000 - 0x152e86771fff
  0x152e86772000 - 0x152e8679ffff
  0x152e867a0000 - 0x152e867aefff
  0x152e867af000 - 0x152e86854fff
  0x152e86855000 - 0x152e868ebfff
  0x152e868ec000 - 0x152e868ecfff
  0x152e868ed000 - 0x152e868edfff
  0x152e868ee000 - 0x152e86901fff
  0x152e86902000 - 0x152e86929fff
  0x152e8692a000 - 0x152e86933fff
  0x152e86934000 - 0x152e86935fff
  0x152e86936000 - 0x152e8693bfff
  0x152e8693c000 - 0x152e8693efff
  0x152e86941000 - 0x152e86941fff
  0x152e86942000 - 0x152e86942fff
  0x152e86943000 - 0x152e86943fff
  0x152e86944000 - 0x152e86944fff
  0x152e86945000 - 0x152e86945fff
  0x152e86946000 - 0x152e8694cfff
  0x152e8694d000 - 0x152e8694ffff
  0x152e86950000 - 0x152e86950fff
  0x152e86951000 - 0x152e86971fff
  0x152e86972000 - 0x152e86979fff
  0x152e8697a000 - 0x152e8697afff
  0x152e8697b000 - 0x152e8697bfff
  0x152e8697c000 - 0x152e8697cfff
  0x5613cb6a2000 - 0x5613cb792fff
  0x5613cb793000 - 0x5613cb89cfff
  0x5613cb89d000 - 0x5613cb8fcfff
  0x5613cb8fe000 - 0x5613cb92cfff
  0x5613cb92d000 - 0x5613cb95dfff
  0x5613cb95e000 - 0x5613cb961fff
  0x5613cce9e000 - 0x5613ccebefff
  0x7ffce97ab000 - 0x7ffce97cbfff
  0x7ffce97e8000 - 0x7ffce97ebfff
  0x7ffce97ec000 - 0x7ffce97edfff
https://ideone.com/t37Qfk
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!