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 9528KB
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
  0x14cb3a400000 - 0x14cb3a6e4fff
  0x14cb3a815000 - 0x14cb3a839fff
  0x14cb3a83a000 - 0x14cb3a9acfff
  0x14cb3a9ad000 - 0x14cb3a9f5fff
  0x14cb3a9f6000 - 0x14cb3a9f8fff
  0x14cb3a9f9000 - 0x14cb3a9fbfff
  0x14cb3a9fc000 - 0x14cb3a9fffff
  0x14cb3aa00000 - 0x14cb3aa02fff
  0x14cb3aa03000 - 0x14cb3ac01fff
  0x14cb3ac02000 - 0x14cb3ac02fff
  0x14cb3ac03000 - 0x14cb3ac03fff
  0x14cb3ac80000 - 0x14cb3ac8ffff
  0x14cb3ac90000 - 0x14cb3acc3fff
  0x14cb3acc4000 - 0x14cb3adfafff
  0x14cb3adfb000 - 0x14cb3adfbfff
  0x14cb3adfc000 - 0x14cb3adfefff
  0x14cb3adff000 - 0x14cb3adfffff
  0x14cb3ae00000 - 0x14cb3ae03fff
  0x14cb3ae04000 - 0x14cb3b003fff
  0x14cb3b004000 - 0x14cb3b004fff
  0x14cb3b005000 - 0x14cb3b005fff
  0x14cb3b0b6000 - 0x14cb3b0b9fff
  0x14cb3b0ba000 - 0x14cb3b0bafff
  0x14cb3b0bb000 - 0x14cb3b0bcfff
  0x14cb3b0bd000 - 0x14cb3b0bdfff
  0x14cb3b0be000 - 0x14cb3b0befff
  0x14cb3b0bf000 - 0x14cb3b0bffff
  0x14cb3b0c0000 - 0x14cb3b0cdfff
  0x14cb3b0ce000 - 0x14cb3b0dbfff
  0x14cb3b0dc000 - 0x14cb3b0e8fff
  0x14cb3b0e9000 - 0x14cb3b0ecfff
  0x14cb3b0ed000 - 0x14cb3b0edfff
  0x14cb3b0ee000 - 0x14cb3b0eefff
  0x14cb3b0ef000 - 0x14cb3b0f4fff
  0x14cb3b0f5000 - 0x14cb3b0f6fff
  0x14cb3b0f7000 - 0x14cb3b0f7fff
  0x14cb3b0f8000 - 0x14cb3b0f8fff
  0x14cb3b0f9000 - 0x14cb3b0f9fff
  0x14cb3b0fa000 - 0x14cb3b127fff
  0x14cb3b128000 - 0x14cb3b136fff
  0x14cb3b137000 - 0x14cb3b1dcfff
  0x14cb3b1dd000 - 0x14cb3b273fff
  0x14cb3b274000 - 0x14cb3b274fff
  0x14cb3b275000 - 0x14cb3b275fff
  0x14cb3b276000 - 0x14cb3b289fff
  0x14cb3b28a000 - 0x14cb3b2b1fff
  0x14cb3b2b2000 - 0x14cb3b2bbfff
  0x14cb3b2bc000 - 0x14cb3b2bdfff
  0x14cb3b2be000 - 0x14cb3b2c3fff
  0x14cb3b2c4000 - 0x14cb3b2c6fff
  0x14cb3b2c9000 - 0x14cb3b2c9fff
  0x14cb3b2ca000 - 0x14cb3b2cafff
  0x14cb3b2cb000 - 0x14cb3b2cbfff
  0x14cb3b2cc000 - 0x14cb3b2ccfff
  0x14cb3b2cd000 - 0x14cb3b2cdfff
  0x14cb3b2ce000 - 0x14cb3b2d4fff
  0x14cb3b2d5000 - 0x14cb3b2d7fff
  0x14cb3b2d8000 - 0x14cb3b2d8fff
  0x14cb3b2d9000 - 0x14cb3b2f9fff
  0x14cb3b2fa000 - 0x14cb3b301fff
  0x14cb3b302000 - 0x14cb3b302fff
  0x14cb3b303000 - 0x14cb3b303fff
  0x14cb3b304000 - 0x14cb3b304fff
  0x560a26658000 - 0x560a26748fff
  0x560a26749000 - 0x560a26852fff
  0x560a26853000 - 0x560a268b2fff
  0x560a268b4000 - 0x560a268e2fff
  0x560a268e3000 - 0x560a26913fff
  0x560a26914000 - 0x560a26917fff
  0x560a26bba000 - 0x560a26bdafff
  0x7ffd6407d000 - 0x7ffd6409dfff
  0x7ffd64148000 - 0x7ffd6414bfff
  0x7ffd6414c000 - 0x7ffd6414dfff
https://ideone.com/UGydKo
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!