fork download 
  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.02s 9540KB
comments (?)
stdin 
202307865
stdout 
名前または学籍番号を入力：結果：大吉！挑戦を続けよう
stderr 
Warning: reserving address range 0x80000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later!
Memory dump:
  0x8000000000 - 0x80000bffff
  0x149d56e00000 - 0x149d570e4fff
  0x149d57215000 - 0x149d57239fff
  0x149d5723a000 - 0x149d573acfff
  0x149d573ad000 - 0x149d573f5fff
  0x149d573f6000 - 0x149d573f8fff
  0x149d573f9000 - 0x149d573fbfff
  0x149d573fc000 - 0x149d573fffff
  0x149d57400000 - 0x149d57402fff
  0x149d57403000 - 0x149d57601fff
  0x149d57602000 - 0x149d57602fff
  0x149d57603000 - 0x149d57603fff
  0x149d57680000 - 0x149d5768ffff
  0x149d57690000 - 0x149d576c3fff
  0x149d576c4000 - 0x149d577fafff
  0x149d577fb000 - 0x149d577fbfff
  0x149d577fc000 - 0x149d577fefff
  0x149d577ff000 - 0x149d577fffff
  0x149d57800000 - 0x149d57803fff
  0x149d57804000 - 0x149d57a03fff
  0x149d57a04000 - 0x149d57a04fff
  0x149d57a05000 - 0x149d57a05fff
  0x149d57ad4000 - 0x149d57ad7fff
  0x149d57ad8000 - 0x149d57ad8fff
  0x149d57ad9000 - 0x149d57adafff
  0x149d57adb000 - 0x149d57adbfff
  0x149d57adc000 - 0x149d57adcfff
  0x149d57add000 - 0x149d57addfff
  0x149d57ade000 - 0x149d57aebfff
  0x149d57aec000 - 0x149d57af9fff
  0x149d57afa000 - 0x149d57b06fff
  0x149d57b07000 - 0x149d57b0afff
  0x149d57b0b000 - 0x149d57b0bfff
  0x149d57b0c000 - 0x149d57b0cfff
  0x149d57b0d000 - 0x149d57b12fff
  0x149d57b13000 - 0x149d57b14fff
  0x149d57b15000 - 0x149d57b15fff
  0x149d57b16000 - 0x149d57b16fff
  0x149d57b17000 - 0x149d57b17fff
  0x149d57b18000 - 0x149d57b45fff
  0x149d57b46000 - 0x149d57b54fff
  0x149d57b55000 - 0x149d57bfafff
  0x149d57bfb000 - 0x149d57c91fff
  0x149d57c92000 - 0x149d57c92fff
  0x149d57c93000 - 0x149d57c93fff
  0x149d57c94000 - 0x149d57ca7fff
  0x149d57ca8000 - 0x149d57ccffff
  0x149d57cd0000 - 0x149d57cd9fff
  0x149d57cda000 - 0x149d57cdbfff
  0x149d57cdc000 - 0x149d57ce1fff
  0x149d57ce2000 - 0x149d57ce4fff
  0x149d57ce7000 - 0x149d57ce7fff
  0x149d57ce8000 - 0x149d57ce8fff
  0x149d57ce9000 - 0x149d57ce9fff
  0x149d57cea000 - 0x149d57ceafff
  0x149d57ceb000 - 0x149d57cebfff
  0x149d57cec000 - 0x149d57cf2fff
  0x149d57cf3000 - 0x149d57cf5fff
  0x149d57cf6000 - 0x149d57cf6fff
  0x149d57cf7000 - 0x149d57d17fff
  0x149d57d18000 - 0x149d57d1ffff
  0x149d57d20000 - 0x149d57d20fff
  0x149d57d21000 - 0x149d57d21fff
  0x149d57d22000 - 0x149d57d22fff
  0x560a2e8c6000 - 0x560a2e9b6fff
  0x560a2e9b7000 - 0x560a2eac0fff
  0x560a2eac1000 - 0x560a2eb20fff
  0x560a2eb22000 - 0x560a2eb50fff
  0x560a2eb51000 - 0x560a2eb81fff
  0x560a2eb82000 - 0x560a2eb85fff
  0x560a2fba6000 - 0x560a2fbc6fff
  0x7ffdeacaa000 - 0x7ffdeaccafff
  0x7ffdeace4000 - 0x7ffdeace7fff
  0x7ffdeace8000 - 0x7ffdeace9fff
https://ideone.com/y47uAr
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!