fork download
copy 
  1. (defun fortunecookie ()
  2.   (let* ((id (read-line))
  3.          (time-list (multiple-value-list (decode-universal-time (get-universal-time))))
  4.          (year (+ 1900 (nth 5 time-list)))
  5.          (month (nth 4 time-list))
  6.          (day (nth 3 time-list))
  7.          (date-str (format nil "~4,'0d~2,'0d~2,'0d" year month day))
  8.          (combined (concatenate 'string id date-str))
  9.          (seed (reduce #'+ (map 'list #'char-code combined)))
  10.          (result (nth (mod seed 5)
  11.                       '("大吉！挑戦を続けよう"
  12.                         "中吉！今日は集中の日"
  13.                         "小吉！まずは一歩"
  14.                         "吉！粘り勝ちを目指そう"
  15.                         "凶…でも明日がある！"))))
  16.     (format t "入力：~A~%結果（~A）：~A~%" id date-str result)))
  17.  
  18. (fortunecookie)
  19.  
Success #stdin #stdout #stderr 0.02s 9576KB
comments (?)
stdin
copy 
工藤静香
stdout
copy 
入力：工藤静香
結果（39250617）：中吉！今日は集中の日
stderr
copy 
Warning: reserving address range 0x80000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later!
Memory dump:
  0x8000000000 - 0x80000bffff
  0x15458fa00000 - 0x15458fce4fff
  0x15458fe00000 - 0x15458fe02fff
  0x15458fe03000 - 0x154590001fff
  0x154590002000 - 0x154590002fff
  0x154590003000 - 0x154590003fff
  0x154590015000 - 0x154590039fff
  0x15459003a000 - 0x1545901acfff
  0x1545901ad000 - 0x1545901f5fff
  0x1545901f6000 - 0x1545901f8fff
  0x1545901f9000 - 0x1545901fbfff
  0x1545901fc000 - 0x1545901fffff
  0x154590200000 - 0x154590203fff
  0x154590204000 - 0x154590403fff
  0x154590404000 - 0x154590404fff
  0x154590405000 - 0x154590405fff
  0x15459041e000 - 0x15459041ffff
  0x154590420000 - 0x15459042ffff
  0x154590430000 - 0x154590463fff
  0x154590464000 - 0x15459059afff
  0x15459059b000 - 0x15459059bfff
  0x15459059c000 - 0x15459059efff
  0x15459059f000 - 0x15459059ffff
  0x1545905a0000 - 0x1545905a1fff
  0x1545905a2000 - 0x1545905a2fff
  0x1545905a3000 - 0x1545905a4fff
  0x1545905a5000 - 0x1545905a5fff
  0x1545905a6000 - 0x1545905a6fff
  0x1545905a7000 - 0x1545905a7fff
  0x1545905a8000 - 0x1545905b5fff
  0x1545905b6000 - 0x1545905c3fff
  0x1545905c4000 - 0x1545905d0fff
  0x1545905d1000 - 0x1545905d4fff
  0x1545905d5000 - 0x1545905d5fff
  0x1545905d6000 - 0x1545905d6fff
  0x1545905d7000 - 0x1545905dcfff
  0x1545905dd000 - 0x1545905defff
  0x1545905df000 - 0x1545905dffff
  0x1545905e0000 - 0x1545905e0fff
  0x1545905e1000 - 0x1545905e1fff
  0x1545905e2000 - 0x15459060ffff
  0x154590610000 - 0x15459061efff
  0x15459061f000 - 0x1545906c4fff
  0x1545906c5000 - 0x15459075bfff
  0x15459075c000 - 0x15459075cfff
  0x15459075d000 - 0x15459075dfff
  0x15459075e000 - 0x154590771fff
  0x154590772000 - 0x154590799fff
  0x15459079a000 - 0x1545907a3fff
  0x1545907a4000 - 0x1545907a5fff
  0x1545907a6000 - 0x1545907abfff
  0x1545907ac000 - 0x1545907aefff
  0x1545907b1000 - 0x1545907b1fff
  0x1545907b2000 - 0x1545907b2fff
  0x1545907b3000 - 0x1545907b3fff
  0x1545907b4000 - 0x1545907b4fff
  0x1545907b5000 - 0x1545907b5fff
  0x1545907b6000 - 0x1545907bcfff
  0x1545907bd000 - 0x1545907bffff
  0x1545907c0000 - 0x1545907c0fff
  0x1545907c1000 - 0x1545907e1fff
  0x1545907e2000 - 0x1545907e9fff
  0x1545907ea000 - 0x1545907eafff
  0x1545907eb000 - 0x1545907ebfff
  0x1545907ec000 - 0x1545907ecfff
  0x5593e9bd8000 - 0x5593e9cc8fff
  0x5593e9cc9000 - 0x5593e9dd2fff
  0x5593e9dd3000 - 0x5593e9e32fff
  0x5593e9e34000 - 0x5593e9e62fff
  0x5593e9e63000 - 0x5593e9e93fff
  0x5593e9e94000 - 0x5593e9e97fff
  0x5593ebd4a000 - 0x5593ebd6afff
  0x7fff8a41f000 - 0x7fff8a43ffff
  0x7fff8a5c2000 - 0x7fff8a5c5fff
  0x7fff8a5c6000 - 0x7fff8a5c7fff
https://ideone.com/Sclja7
language:
Common Lisp (clisp 2.49.92)
created:
11 hours 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!