fork download
copy 
  1. (defun fortunecookie ()
  2.   (princ "名前または学籍番号を入力：")
  3.   (let* ((id (read-line))
  4.          (char-codes (map 'list #'char-code id))
  5.          (seed (if char-codes
  6.                    (reduce #'+ char-codes)
  7.                    0))
  8.          (result (nth (mod seed 5)
  9.                       '("大吉！挑戦を続けよう"
  10.                         "中吉！今日は集中の日"
  11.                         "小吉！まずは一歩"
  12.                         "吉！粘り勝ちを目指そう"
  13.                         "凶…でも明日がある！"))))
  14.     (format t "結果：~A~%" result)))
  15.  
  16. (fortunecookie)
  17.  
Success #stdin #stdout #stderr 0.01s 9568KB
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
  0x14a492200000 - 0x14a4924e4fff
  0x14a492615000 - 0x14a492639fff
  0x14a49263a000 - 0x14a4927acfff
  0x14a4927ad000 - 0x14a4927f5fff
  0x14a4927f6000 - 0x14a4927f8fff
  0x14a4927f9000 - 0x14a4927fbfff
  0x14a4927fc000 - 0x14a4927fffff
  0x14a492800000 - 0x14a492802fff
  0x14a492803000 - 0x14a492a01fff
  0x14a492a02000 - 0x14a492a02fff
  0x14a492a03000 - 0x14a492a03fff
  0x14a492a80000 - 0x14a492a8ffff
  0x14a492a90000 - 0x14a492ac3fff
  0x14a492ac4000 - 0x14a492bfafff
  0x14a492bfb000 - 0x14a492bfbfff
  0x14a492bfc000 - 0x14a492bfefff
  0x14a492bff000 - 0x14a492bfffff
  0x14a492c00000 - 0x14a492c03fff
  0x14a492c04000 - 0x14a492e03fff
  0x14a492e04000 - 0x14a492e04fff
  0x14a492e05000 - 0x14a492e05fff
  0x14a492e63000 - 0x14a492e66fff
  0x14a492e67000 - 0x14a492e67fff
  0x14a492e68000 - 0x14a492e69fff
  0x14a492e6a000 - 0x14a492e6afff
  0x14a492e6b000 - 0x14a492e6bfff
  0x14a492e6c000 - 0x14a492e6cfff
  0x14a492e6d000 - 0x14a492e7afff
  0x14a492e7b000 - 0x14a492e88fff
  0x14a492e89000 - 0x14a492e95fff
  0x14a492e96000 - 0x14a492e99fff
  0x14a492e9a000 - 0x14a492e9afff
  0x14a492e9b000 - 0x14a492e9bfff
  0x14a492e9c000 - 0x14a492ea1fff
  0x14a492ea2000 - 0x14a492ea3fff
  0x14a492ea4000 - 0x14a492ea4fff
  0x14a492ea5000 - 0x14a492ea5fff
  0x14a492ea6000 - 0x14a492ea6fff
  0x14a492ea7000 - 0x14a492ed4fff
  0x14a492ed5000 - 0x14a492ee3fff
  0x14a492ee4000 - 0x14a492f89fff
  0x14a492f8a000 - 0x14a493020fff
  0x14a493021000 - 0x14a493021fff
  0x14a493022000 - 0x14a493022fff
  0x14a493023000 - 0x14a493036fff
  0x14a493037000 - 0x14a49305efff
  0x14a49305f000 - 0x14a493068fff
  0x14a493069000 - 0x14a49306afff
  0x14a49306b000 - 0x14a493070fff
  0x14a493071000 - 0x14a493073fff
  0x14a493076000 - 0x14a493076fff
  0x14a493077000 - 0x14a493077fff
  0x14a493078000 - 0x14a493078fff
  0x14a493079000 - 0x14a493079fff
  0x14a49307a000 - 0x14a49307afff
  0x14a49307b000 - 0x14a493081fff
  0x14a493082000 - 0x14a493084fff
  0x14a493085000 - 0x14a493085fff
  0x14a493086000 - 0x14a4930a6fff
  0x14a4930a7000 - 0x14a4930aefff
  0x14a4930af000 - 0x14a4930affff
  0x14a4930b0000 - 0x14a4930b0fff
  0x14a4930b1000 - 0x14a4930b1fff
  0x5638b9211000 - 0x5638b9301fff
  0x5638b9302000 - 0x5638b940bfff
  0x5638b940c000 - 0x5638b946bfff
  0x5638b946d000 - 0x5638b949bfff
  0x5638b949c000 - 0x5638b94ccfff
  0x5638b94cd000 - 0x5638b94d0fff
  0x5638b9ce2000 - 0x5638b9d02fff
  0x7ffc0aef0000 - 0x7ffc0af10fff
  0x7ffc0af85000 - 0x7ffc0af88fff
  0x7ffc0af89000 - 0x7ffc0af8afff
https://ideone.com/zyxsM9
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!