fork download
copy 
  1. (defun fortunecookie ()
  2.   (princ "名前または学籍番号を入力：")
  3.   (let* ((id (read-line))
  4.          ;; 今日の日付を取得して文字列にする（YYYYMMDD形式）
  5.          (date (multiple-value-bind (sec min hour day month year)
  6.                     (get-decoded-time)
  7.                   (format nil "~4,'0d~2,'0d~2,'0d" year month day)))
  8.          ;; 名前と日付をつなげる
  9.          (combined (concatenate 'string id date))
  10.          ;; 各文字の文字コードを合計
  11.          (seed (reduce #'+ (map 'list #'char-code combined)))
  12.          ;; seedを5で割った余りでおみくじを選ぶ
  13.          (index (mod seed 5))
  14.          (result (nth index
  15.                       '("大吉！ 挑戦を続けよう"
  16.                         "中吉！ 今日は集中の日"
  17.                         "小吉！ まずは一歩"
  18.                         "吉！ 粘り勝ちを目指そう"
  19.                         "凶...でも明日がある！"))))
  20.     (format t "結果：~A~%" result)))
  21.  
  22. (fortunecookie)
Success #stdin #stdout #stderr 0.01s 9512KB
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
  0x14bedce00000 - 0x14bedd0e4fff
  0x14bedd215000 - 0x14bedd239fff
  0x14bedd23a000 - 0x14bedd3acfff
  0x14bedd3ad000 - 0x14bedd3f5fff
  0x14bedd3f6000 - 0x14bedd3f8fff
  0x14bedd3f9000 - 0x14bedd3fbfff
  0x14bedd3fc000 - 0x14bedd3fffff
  0x14bedd400000 - 0x14bedd402fff
  0x14bedd403000 - 0x14bedd601fff
  0x14bedd602000 - 0x14bedd602fff
  0x14bedd603000 - 0x14bedd603fff
  0x14bedd680000 - 0x14bedd68ffff
  0x14bedd690000 - 0x14bedd6c3fff
  0x14bedd6c4000 - 0x14bedd7fafff
  0x14bedd7fb000 - 0x14bedd7fbfff
  0x14bedd7fc000 - 0x14bedd7fefff
  0x14bedd7ff000 - 0x14bedd7fffff
  0x14bedd800000 - 0x14bedd803fff
  0x14bedd804000 - 0x14bedda03fff
  0x14bedda04000 - 0x14bedda04fff
  0x14bedda05000 - 0x14bedda05fff
  0x14beddb83000 - 0x14beddb86fff
  0x14beddb87000 - 0x14beddb87fff
  0x14beddb88000 - 0x14beddb89fff
  0x14beddb8a000 - 0x14beddb8afff
  0x14beddb8b000 - 0x14beddb8bfff
  0x14beddb8c000 - 0x14beddb8cfff
  0x14beddb8d000 - 0x14beddb9afff
  0x14beddb9b000 - 0x14beddba8fff
  0x14beddba9000 - 0x14beddbb5fff
  0x14beddbb6000 - 0x14beddbb9fff
  0x14beddbba000 - 0x14beddbbafff
  0x14beddbbb000 - 0x14beddbbbfff
  0x14beddbbc000 - 0x14beddbc1fff
  0x14beddbc2000 - 0x14beddbc3fff
  0x14beddbc4000 - 0x14beddbc4fff
  0x14beddbc5000 - 0x14beddbc5fff
  0x14beddbc6000 - 0x14beddbc6fff
  0x14beddbc7000 - 0x14beddbf4fff
  0x14beddbf5000 - 0x14beddc03fff
  0x14beddc04000 - 0x14beddca9fff
  0x14beddcaa000 - 0x14beddd40fff
  0x14beddd41000 - 0x14beddd41fff
  0x14beddd42000 - 0x14beddd42fff
  0x14beddd43000 - 0x14beddd56fff
  0x14beddd57000 - 0x14beddd7efff
  0x14beddd7f000 - 0x14beddd88fff
  0x14beddd89000 - 0x14beddd8afff
  0x14beddd8b000 - 0x14beddd90fff
  0x14beddd91000 - 0x14beddd93fff
  0x14beddd96000 - 0x14beddd96fff
  0x14beddd97000 - 0x14beddd97fff
  0x14beddd98000 - 0x14beddd98fff
  0x14beddd99000 - 0x14beddd99fff
  0x14beddd9a000 - 0x14beddd9afff
  0x14beddd9b000 - 0x14beddda1fff
  0x14beddda2000 - 0x14beddda4fff
  0x14beddda5000 - 0x14beddda5fff
  0x14beddda6000 - 0x14bedddc6fff
  0x14bedddc7000 - 0x14bedddcefff
  0x14bedddcf000 - 0x14bedddcffff
  0x14bedddd0000 - 0x14bedddd0fff
  0x14bedddd1000 - 0x14bedddd1fff
  0x55c4dc96d000 - 0x55c4dca5dfff
  0x55c4dca5e000 - 0x55c4dcb67fff
  0x55c4dcb68000 - 0x55c4dcbc7fff
  0x55c4dcbc9000 - 0x55c4dcbf7fff
  0x55c4dcbf8000 - 0x55c4dcc28fff
  0x55c4dcc29000 - 0x55c4dcc2cfff
  0x55c4ddaed000 - 0x55c4ddb0dfff
  0x7fffe0276000 - 0x7fffe0296fff
  0x7fffe0368000 - 0x7fffe036bfff
  0x7fffe036c000 - 0x7fffe036dfff
https://ideone.com/4ItOD9
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!