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 9584KB
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
  0x146552400000 - 0x1465526e4fff
  0x146552800000 - 0x146552802fff
  0x146552803000 - 0x146552a01fff
  0x146552a02000 - 0x146552a02fff
  0x146552a03000 - 0x146552a03fff
  0x146552a15000 - 0x146552a39fff
  0x146552a3a000 - 0x146552bacfff
  0x146552bad000 - 0x146552bf5fff
  0x146552bf6000 - 0x146552bf8fff
  0x146552bf9000 - 0x146552bfbfff
  0x146552bfc000 - 0x146552bfffff
  0x146552c00000 - 0x146552c03fff
  0x146552c04000 - 0x146552e03fff
  0x146552e04000 - 0x146552e04fff
  0x146552e05000 - 0x146552e05fff
  0x146552e29000 - 0x146552e2afff
  0x146552e2b000 - 0x146552e3afff
  0x146552e3b000 - 0x146552e6efff
  0x146552e6f000 - 0x146552fa5fff
  0x146552fa6000 - 0x146552fa6fff
  0x146552fa7000 - 0x146552fa9fff
  0x146552faa000 - 0x146552faafff
  0x146552fab000 - 0x146552facfff
  0x146552fad000 - 0x146552fadfff
  0x146552fae000 - 0x146552faffff
  0x146552fb0000 - 0x146552fb0fff
  0x146552fb1000 - 0x146552fb1fff
  0x146552fb2000 - 0x146552fb2fff
  0x146552fb3000 - 0x146552fc0fff
  0x146552fc1000 - 0x146552fcefff
  0x146552fcf000 - 0x146552fdbfff
  0x146552fdc000 - 0x146552fdffff
  0x146552fe0000 - 0x146552fe0fff
  0x146552fe1000 - 0x146552fe1fff
  0x146552fe2000 - 0x146552fe7fff
  0x146552fe8000 - 0x146552fe9fff
  0x146552fea000 - 0x146552feafff
  0x146552feb000 - 0x146552febfff
  0x146552fec000 - 0x146552fecfff
  0x146552fed000 - 0x14655301afff
  0x14655301b000 - 0x146553029fff
  0x14655302a000 - 0x1465530cffff
  0x1465530d0000 - 0x146553166fff
  0x146553167000 - 0x146553167fff
  0x146553168000 - 0x146553168fff
  0x146553169000 - 0x14655317cfff
  0x14655317d000 - 0x1465531a4fff
  0x1465531a5000 - 0x1465531aefff
  0x1465531af000 - 0x1465531b0fff
  0x1465531b1000 - 0x1465531b6fff
  0x1465531b7000 - 0x1465531b9fff
  0x1465531bc000 - 0x1465531bcfff
  0x1465531bd000 - 0x1465531bdfff
  0x1465531be000 - 0x1465531befff
  0x1465531bf000 - 0x1465531bffff
  0x1465531c0000 - 0x1465531c0fff
  0x1465531c1000 - 0x1465531c7fff
  0x1465531c8000 - 0x1465531cafff
  0x1465531cb000 - 0x1465531cbfff
  0x1465531cc000 - 0x1465531ecfff
  0x1465531ed000 - 0x1465531f4fff
  0x1465531f5000 - 0x1465531f5fff
  0x1465531f6000 - 0x1465531f6fff
  0x1465531f7000 - 0x1465531f7fff
  0x5597075e2000 - 0x5597076d2fff
  0x5597076d3000 - 0x5597077dcfff
  0x5597077dd000 - 0x55970783cfff
  0x55970783e000 - 0x55970786cfff
  0x55970786d000 - 0x55970789dfff
  0x55970789e000 - 0x5597078a1fff
  0x55970970b000 - 0x55970972bfff
  0x7ffff8589000 - 0x7ffff85a9fff
  0x7ffff85eb000 - 0x7ffff85eefff
  0x7ffff85ef000 - 0x7ffff85f0fff
https://ideone.com/UoUry9
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!