fork download 
  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.  
Success #stdin #stdout #stderr 0.02s 9544KB
comments (?)
stdin 
工藤嘉悦
stdout 
Standard output is empty
stderr 
Warning: reserving address range 0x80000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later!
Memory dump:
  0x8000000000 - 0x80000bffff
  0x14d534800000 - 0x14d534ae4fff
  0x14d534c15000 - 0x14d534c39fff
  0x14d534c3a000 - 0x14d534dacfff
  0x14d534dad000 - 0x14d534df5fff
  0x14d534df6000 - 0x14d534df8fff
  0x14d534df9000 - 0x14d534dfbfff
  0x14d534dfc000 - 0x14d534dfffff
  0x14d534e00000 - 0x14d534e02fff
  0x14d534e03000 - 0x14d535001fff
  0x14d535002000 - 0x14d535002fff
  0x14d535003000 - 0x14d535003fff
  0x14d535080000 - 0x14d53508ffff
  0x14d535090000 - 0x14d5350c3fff
  0x14d5350c4000 - 0x14d5351fafff
  0x14d5351fb000 - 0x14d5351fbfff
  0x14d5351fc000 - 0x14d5351fefff
  0x14d5351ff000 - 0x14d5351fffff
  0x14d535200000 - 0x14d535203fff
  0x14d535204000 - 0x14d535403fff
  0x14d535404000 - 0x14d535404fff
  0x14d535405000 - 0x14d535405fff
  0x14d535535000 - 0x14d535538fff
  0x14d535539000 - 0x14d535539fff
  0x14d53553a000 - 0x14d53553bfff
  0x14d53553c000 - 0x14d53553cfff
  0x14d53553d000 - 0x14d53553dfff
  0x14d53553e000 - 0x14d53553efff
  0x14d53553f000 - 0x14d53554cfff
  0x14d53554d000 - 0x14d53555afff
  0x14d53555b000 - 0x14d535567fff
  0x14d535568000 - 0x14d53556bfff
  0x14d53556c000 - 0x14d53556cfff
  0x14d53556d000 - 0x14d53556dfff
  0x14d53556e000 - 0x14d535573fff
  0x14d535574000 - 0x14d535575fff
  0x14d535576000 - 0x14d535576fff
  0x14d535577000 - 0x14d535577fff
  0x14d535578000 - 0x14d535578fff
  0x14d535579000 - 0x14d5355a6fff
  0x14d5355a7000 - 0x14d5355b5fff
  0x14d5355b6000 - 0x14d53565bfff
  0x14d53565c000 - 0x14d5356f2fff
  0x14d5356f3000 - 0x14d5356f3fff
  0x14d5356f4000 - 0x14d5356f4fff
  0x14d5356f5000 - 0x14d535708fff
  0x14d535709000 - 0x14d535730fff
  0x14d535731000 - 0x14d53573afff
  0x14d53573b000 - 0x14d53573cfff
  0x14d53573d000 - 0x14d535742fff
  0x14d535743000 - 0x14d535745fff
  0x14d535748000 - 0x14d535748fff
  0x14d535749000 - 0x14d535749fff
  0x14d53574a000 - 0x14d53574afff
  0x14d53574b000 - 0x14d53574bfff
  0x14d53574c000 - 0x14d53574cfff
  0x14d53574d000 - 0x14d535753fff
  0x14d535754000 - 0x14d535756fff
  0x14d535757000 - 0x14d535757fff
  0x14d535758000 - 0x14d535778fff
  0x14d535779000 - 0x14d535780fff
  0x14d535781000 - 0x14d535781fff
  0x14d535782000 - 0x14d535782fff
  0x14d535783000 - 0x14d535783fff
  0x5596290b2000 - 0x5596291a2fff
  0x5596291a3000 - 0x5596292acfff
  0x5596292ad000 - 0x55962930cfff
  0x55962930e000 - 0x55962933cfff
  0x55962933d000 - 0x55962936dfff
  0x55962936e000 - 0x559629371fff
  0x55962aabb000 - 0x55962aadbfff
  0x7ffc12109000 - 0x7ffc12129fff
  0x7ffc121aa000 - 0x7ffc121adfff
  0x7ffc121ae000 - 0x7ffc121affff
https://ideone.com/pk1Uhw
language:
Common Lisp (clisp 2.49.92)
created:
11 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!