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 9548KB
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
  0x145a16800000 - 0x145a16ae4fff
  0x145a16c15000 - 0x145a16c39fff
  0x145a16c3a000 - 0x145a16dacfff
  0x145a16dad000 - 0x145a16df5fff
  0x145a16df6000 - 0x145a16df8fff
  0x145a16df9000 - 0x145a16dfbfff
  0x145a16dfc000 - 0x145a16dfffff
  0x145a16e00000 - 0x145a16e02fff
  0x145a16e03000 - 0x145a17001fff
  0x145a17002000 - 0x145a17002fff
  0x145a17003000 - 0x145a17003fff
  0x145a17080000 - 0x145a1708ffff
  0x145a17090000 - 0x145a170c3fff
  0x145a170c4000 - 0x145a171fafff
  0x145a171fb000 - 0x145a171fbfff
  0x145a171fc000 - 0x145a171fefff
  0x145a171ff000 - 0x145a171fffff
  0x145a17200000 - 0x145a17203fff
  0x145a17204000 - 0x145a17403fff
  0x145a17404000 - 0x145a17404fff
  0x145a17405000 - 0x145a17405fff
  0x145a174d6000 - 0x145a174d9fff
  0x145a174da000 - 0x145a174dafff
  0x145a174db000 - 0x145a174dcfff
  0x145a174dd000 - 0x145a174ddfff
  0x145a174de000 - 0x145a174defff
  0x145a174df000 - 0x145a174dffff
  0x145a174e0000 - 0x145a174edfff
  0x145a174ee000 - 0x145a174fbfff
  0x145a174fc000 - 0x145a17508fff
  0x145a17509000 - 0x145a1750cfff
  0x145a1750d000 - 0x145a1750dfff
  0x145a1750e000 - 0x145a1750efff
  0x145a1750f000 - 0x145a17514fff
  0x145a17515000 - 0x145a17516fff
  0x145a17517000 - 0x145a17517fff
  0x145a17518000 - 0x145a17518fff
  0x145a17519000 - 0x145a17519fff
  0x145a1751a000 - 0x145a17547fff
  0x145a17548000 - 0x145a17556fff
  0x145a17557000 - 0x145a175fcfff
  0x145a175fd000 - 0x145a17693fff
  0x145a17694000 - 0x145a17694fff
  0x145a17695000 - 0x145a17695fff
  0x145a17696000 - 0x145a176a9fff
  0x145a176aa000 - 0x145a176d1fff
  0x145a176d2000 - 0x145a176dbfff
  0x145a176dc000 - 0x145a176ddfff
  0x145a176de000 - 0x145a176e3fff
  0x145a176e4000 - 0x145a176e6fff
  0x145a176e9000 - 0x145a176e9fff
  0x145a176ea000 - 0x145a176eafff
  0x145a176eb000 - 0x145a176ebfff
  0x145a176ec000 - 0x145a176ecfff
  0x145a176ed000 - 0x145a176edfff
  0x145a176ee000 - 0x145a176f4fff
  0x145a176f5000 - 0x145a176f7fff
  0x145a176f8000 - 0x145a176f8fff
  0x145a176f9000 - 0x145a17719fff
  0x145a1771a000 - 0x145a17721fff
  0x145a17722000 - 0x145a17722fff
  0x145a17723000 - 0x145a17723fff
  0x145a17724000 - 0x145a17724fff
  0x55e7038ea000 - 0x55e7039dafff
  0x55e7039db000 - 0x55e703ae4fff
  0x55e703ae5000 - 0x55e703b44fff
  0x55e703b46000 - 0x55e703b74fff
  0x55e703b75000 - 0x55e703ba5fff
  0x55e703ba6000 - 0x55e703ba9fff
  0x55e705186000 - 0x55e7051a6fff
  0x7ffc625b9000 - 0x7ffc625d9fff
  0x7ffc625dd000 - 0x7ffc625e0fff
  0x7ffc625e1000 - 0x7ffc625e2fff
https://ideone.com/4ljJI4
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!