fork download 
  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 9544KB
comments (?)
stdin 
新
stdout 
名前または学籍番号を入力：結果：小吉！ まずは一歩
stderr 
Warning: reserving address range 0x80000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later!
Memory dump:
  0x8000000000 - 0x80000bffff
  0x15288c600000 - 0x15288c8e4fff
  0x15288ca15000 - 0x15288ca39fff
  0x15288ca3a000 - 0x15288cbacfff
  0x15288cbad000 - 0x15288cbf5fff
  0x15288cbf6000 - 0x15288cbf8fff
  0x15288cbf9000 - 0x15288cbfbfff
  0x15288cbfc000 - 0x15288cbfffff
  0x15288cc00000 - 0x15288cc02fff
  0x15288cc03000 - 0x15288ce01fff
  0x15288ce02000 - 0x15288ce02fff
  0x15288ce03000 - 0x15288ce03fff
  0x15288ce80000 - 0x15288ce8ffff
  0x15288ce90000 - 0x15288cec3fff
  0x15288cec4000 - 0x15288cffafff
  0x15288cffb000 - 0x15288cffbfff
  0x15288cffc000 - 0x15288cffefff
  0x15288cfff000 - 0x15288cffffff
  0x15288d000000 - 0x15288d003fff
  0x15288d004000 - 0x15288d203fff
  0x15288d204000 - 0x15288d204fff
  0x15288d205000 - 0x15288d205fff
  0x15288d35f000 - 0x15288d362fff
  0x15288d363000 - 0x15288d363fff
  0x15288d364000 - 0x15288d365fff
  0x15288d366000 - 0x15288d366fff
  0x15288d367000 - 0x15288d367fff
  0x15288d368000 - 0x15288d368fff
  0x15288d369000 - 0x15288d376fff
  0x15288d377000 - 0x15288d384fff
  0x15288d385000 - 0x15288d391fff
  0x15288d392000 - 0x15288d395fff
  0x15288d396000 - 0x15288d396fff
  0x15288d397000 - 0x15288d397fff
  0x15288d398000 - 0x15288d39dfff
  0x15288d39e000 - 0x15288d39ffff
  0x15288d3a0000 - 0x15288d3a0fff
  0x15288d3a1000 - 0x15288d3a1fff
  0x15288d3a2000 - 0x15288d3a2fff
  0x15288d3a3000 - 0x15288d3d0fff
  0x15288d3d1000 - 0x15288d3dffff
  0x15288d3e0000 - 0x15288d485fff
  0x15288d486000 - 0x15288d51cfff
  0x15288d51d000 - 0x15288d51dfff
  0x15288d51e000 - 0x15288d51efff
  0x15288d51f000 - 0x15288d532fff
  0x15288d533000 - 0x15288d55afff
  0x15288d55b000 - 0x15288d564fff
  0x15288d565000 - 0x15288d566fff
  0x15288d567000 - 0x15288d56cfff
  0x15288d56d000 - 0x15288d56ffff
  0x15288d572000 - 0x15288d572fff
  0x15288d573000 - 0x15288d573fff
  0x15288d574000 - 0x15288d574fff
  0x15288d575000 - 0x15288d575fff
  0x15288d576000 - 0x15288d576fff
  0x15288d577000 - 0x15288d57dfff
  0x15288d57e000 - 0x15288d580fff
  0x15288d581000 - 0x15288d581fff
  0x15288d582000 - 0x15288d5a2fff
  0x15288d5a3000 - 0x15288d5aafff
  0x15288d5ab000 - 0x15288d5abfff
  0x15288d5ac000 - 0x15288d5acfff
  0x15288d5ad000 - 0x15288d5adfff
  0x555b31598000 - 0x555b31688fff
  0x555b31689000 - 0x555b31792fff
  0x555b31793000 - 0x555b317f2fff
  0x555b317f4000 - 0x555b31822fff
  0x555b31823000 - 0x555b31853fff
  0x555b31854000 - 0x555b31857fff
  0x555b324fd000 - 0x555b3251dfff
  0x7ffd786ad000 - 0x7ffd786cdfff
  0x7ffd786e6000 - 0x7ffd786e9fff
  0x7ffd786ea000 - 0x7ffd786ebfff
https://ideone.com/UIAAGP
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!