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.  
Success #stdin #stdout #stderr 0.02s 9564KB
comments (?)
stdin
copy 
12345
stdout
copy 
Standard output is empty
stderr
copy 
Warning: reserving address range 0x80000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later!
Memory dump:
  0x8000000000 - 0x80000bffff
  0x14f1bc600000 - 0x14f1bc8e4fff
  0x14f1bca00000 - 0x14f1bca02fff
  0x14f1bca03000 - 0x14f1bcc01fff
  0x14f1bcc02000 - 0x14f1bcc02fff
  0x14f1bcc03000 - 0x14f1bcc03fff
  0x14f1bcc15000 - 0x14f1bcc39fff
  0x14f1bcc3a000 - 0x14f1bcdacfff
  0x14f1bcdad000 - 0x14f1bcdf5fff
  0x14f1bcdf6000 - 0x14f1bcdf8fff
  0x14f1bcdf9000 - 0x14f1bcdfbfff
  0x14f1bcdfc000 - 0x14f1bcdfffff
  0x14f1bce00000 - 0x14f1bce03fff
  0x14f1bce04000 - 0x14f1bd003fff
  0x14f1bd004000 - 0x14f1bd004fff
  0x14f1bd005000 - 0x14f1bd005fff
  0x14f1bd060000 - 0x14f1bd061fff
  0x14f1bd062000 - 0x14f1bd071fff
  0x14f1bd072000 - 0x14f1bd0a5fff
  0x14f1bd0a6000 - 0x14f1bd1dcfff
  0x14f1bd1dd000 - 0x14f1bd1ddfff
  0x14f1bd1de000 - 0x14f1bd1e0fff
  0x14f1bd1e1000 - 0x14f1bd1e1fff
  0x14f1bd1e2000 - 0x14f1bd1e3fff
  0x14f1bd1e4000 - 0x14f1bd1e4fff
  0x14f1bd1e5000 - 0x14f1bd1e6fff
  0x14f1bd1e7000 - 0x14f1bd1e7fff
  0x14f1bd1e8000 - 0x14f1bd1e8fff
  0x14f1bd1e9000 - 0x14f1bd1e9fff
  0x14f1bd1ea000 - 0x14f1bd1f7fff
  0x14f1bd1f8000 - 0x14f1bd205fff
  0x14f1bd206000 - 0x14f1bd212fff
  0x14f1bd213000 - 0x14f1bd216fff
  0x14f1bd217000 - 0x14f1bd217fff
  0x14f1bd218000 - 0x14f1bd218fff
  0x14f1bd219000 - 0x14f1bd21efff
  0x14f1bd21f000 - 0x14f1bd220fff
  0x14f1bd221000 - 0x14f1bd221fff
  0x14f1bd222000 - 0x14f1bd222fff
  0x14f1bd223000 - 0x14f1bd223fff
  0x14f1bd224000 - 0x14f1bd251fff
  0x14f1bd252000 - 0x14f1bd260fff
  0x14f1bd261000 - 0x14f1bd306fff
  0x14f1bd307000 - 0x14f1bd39dfff
  0x14f1bd39e000 - 0x14f1bd39efff
  0x14f1bd39f000 - 0x14f1bd39ffff
  0x14f1bd3a0000 - 0x14f1bd3b3fff
  0x14f1bd3b4000 - 0x14f1bd3dbfff
  0x14f1bd3dc000 - 0x14f1bd3e5fff
  0x14f1bd3e6000 - 0x14f1bd3e7fff
  0x14f1bd3e8000 - 0x14f1bd3edfff
  0x14f1bd3ee000 - 0x14f1bd3f0fff
  0x14f1bd3f3000 - 0x14f1bd3f3fff
  0x14f1bd3f4000 - 0x14f1bd3f4fff
  0x14f1bd3f5000 - 0x14f1bd3f5fff
  0x14f1bd3f6000 - 0x14f1bd3f6fff
  0x14f1bd3f7000 - 0x14f1bd3f7fff
  0x14f1bd3f8000 - 0x14f1bd3fefff
  0x14f1bd3ff000 - 0x14f1bd401fff
  0x14f1bd402000 - 0x14f1bd402fff
  0x14f1bd403000 - 0x14f1bd423fff
  0x14f1bd424000 - 0x14f1bd42bfff
  0x14f1bd42c000 - 0x14f1bd42cfff
  0x14f1bd42d000 - 0x14f1bd42dfff
  0x14f1bd42e000 - 0x14f1bd42efff
  0x556321459000 - 0x556321549fff
  0x55632154a000 - 0x556321653fff
  0x556321654000 - 0x5563216b3fff
  0x5563216b5000 - 0x5563216e3fff
  0x5563216e4000 - 0x556321714fff
  0x556321715000 - 0x556321718fff
  0x556321b28000 - 0x556321b48fff
  0x7ffc744c9000 - 0x7ffc744e9fff
  0x7ffc74580000 - 0x7ffc74583fff
  0x7ffc74584000 - 0x7ffc74585fff
https://ideone.com/feAgGB
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!