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.01s 9524KB
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
  0x152998600000 - 0x1529988e4fff
  0x152998a00000 - 0x152998a02fff
  0x152998a03000 - 0x152998c01fff
  0x152998c02000 - 0x152998c02fff
  0x152998c03000 - 0x152998c03fff
  0x152998c15000 - 0x152998c39fff
  0x152998c3a000 - 0x152998dacfff
  0x152998dad000 - 0x152998df5fff
  0x152998df6000 - 0x152998df8fff
  0x152998df9000 - 0x152998dfbfff
  0x152998dfc000 - 0x152998dfffff
  0x152998e00000 - 0x152998e03fff
  0x152998e04000 - 0x152999003fff
  0x152999004000 - 0x152999004fff
  0x152999005000 - 0x152999005fff
  0x15299906a000 - 0x15299906bfff
  0x15299906c000 - 0x15299907bfff
  0x15299907c000 - 0x1529990affff
  0x1529990b0000 - 0x1529991e6fff
  0x1529991e7000 - 0x1529991e7fff
  0x1529991e8000 - 0x1529991eafff
  0x1529991eb000 - 0x1529991ebfff
  0x1529991ec000 - 0x1529991edfff
  0x1529991ee000 - 0x1529991eefff
  0x1529991ef000 - 0x1529991f0fff
  0x1529991f1000 - 0x1529991f1fff
  0x1529991f2000 - 0x1529991f2fff
  0x1529991f3000 - 0x1529991f3fff
  0x1529991f4000 - 0x152999201fff
  0x152999202000 - 0x15299920ffff
  0x152999210000 - 0x15299921cfff
  0x15299921d000 - 0x152999220fff
  0x152999221000 - 0x152999221fff
  0x152999222000 - 0x152999222fff
  0x152999223000 - 0x152999228fff
  0x152999229000 - 0x15299922afff
  0x15299922b000 - 0x15299922bfff
  0x15299922c000 - 0x15299922cfff
  0x15299922d000 - 0x15299922dfff
  0x15299922e000 - 0x15299925bfff
  0x15299925c000 - 0x15299926afff
  0x15299926b000 - 0x152999310fff
  0x152999311000 - 0x1529993a7fff
  0x1529993a8000 - 0x1529993a8fff
  0x1529993a9000 - 0x1529993a9fff
  0x1529993aa000 - 0x1529993bdfff
  0x1529993be000 - 0x1529993e5fff
  0x1529993e6000 - 0x1529993effff
  0x1529993f0000 - 0x1529993f1fff
  0x1529993f2000 - 0x1529993f7fff
  0x1529993f8000 - 0x1529993fafff
  0x1529993fd000 - 0x1529993fdfff
  0x1529993fe000 - 0x1529993fefff
  0x1529993ff000 - 0x1529993fffff
  0x152999400000 - 0x152999400fff
  0x152999401000 - 0x152999401fff
  0x152999402000 - 0x152999408fff
  0x152999409000 - 0x15299940bfff
  0x15299940c000 - 0x15299940cfff
  0x15299940d000 - 0x15299942dfff
  0x15299942e000 - 0x152999435fff
  0x152999436000 - 0x152999436fff
  0x152999437000 - 0x152999437fff
  0x152999438000 - 0x152999438fff
  0x55d6f8546000 - 0x55d6f8636fff
  0x55d6f8637000 - 0x55d6f8740fff
  0x55d6f8741000 - 0x55d6f87a0fff
  0x55d6f87a2000 - 0x55d6f87d0fff
  0x55d6f87d1000 - 0x55d6f8801fff
  0x55d6f8802000 - 0x55d6f8805fff
  0x55d6f90c5000 - 0x55d6f90e5fff
  0x7ffcde83a000 - 0x7ffcde85afff
  0x7ffcde8c6000 - 0x7ffcde8c9fff
  0x7ffcde8ca000 - 0x7ffcde8cbfff
https://ideone.com/9UzpdY
language:
Common Lisp (clisp 2.49.92)
created:
12 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!