fork download 
  1. (defun fortunecookie ()
  2.   (princ "名前または学籍番号を入力：")
  3.   (let* ((id (read-line))
  4.          ;; 日付の取得
  5.          (now (get-universal-time))
  6.          (decoded-time (multiple-value-list (decode-universal-time now)))
  7.          (year (nth 5 decoded-time))
  8.          (month (nth 4 decoded-time))
  9.          (day (nth 3 decoded-time))
  10.          ;; 日付を数字にまとめる（例：20250617）
  11.          (date-number (+ (* year 10000) (* month 100) day))
  12.          ;; 文字列IDの文字コードの合計
  13.          (char-codes (map 'list #'char-code id))
  14.          ;; シード = IDの文字コード合計 + 日付
  15.          (seed (+ (reduce #'+ char-codes :initial-value 0)
  16.                   date-number))
  17.          ;; 結果リスト
  18.          (result (nth (mod seed 5)
  19.                       '("大吉！挑戦を続けよう"
  20.                         "中吉！今日は集中の日"
  21.                         "小吉！まずは一歩"
  22.                         "吉！粘り勝ちを目指そう"
  23.                         "凶…でも明日がある！"))))
  24.     (format t "~%日付：~4,'0D-~2,'0D-~2,'0D~%" year month day)
  25.     (format t "結果：~A~%" result)))
Success #stdin #stdout #stderr 0.01s 9564KB
comments (?)
stdin 
202203876
stdout 
Standard output is empty
stderr 
Warning: reserving address range 0x80000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later!
Memory dump:
  0x8000000000 - 0x80000bffff
  0x154682000000 - 0x1546822e4fff
  0x154682400000 - 0x154682402fff
  0x154682403000 - 0x154682601fff
  0x154682602000 - 0x154682602fff
  0x154682603000 - 0x154682603fff
  0x154682615000 - 0x154682639fff
  0x15468263a000 - 0x1546827acfff
  0x1546827ad000 - 0x1546827f5fff
  0x1546827f6000 - 0x1546827f8fff
  0x1546827f9000 - 0x1546827fbfff
  0x1546827fc000 - 0x1546827fffff
  0x154682800000 - 0x154682803fff
  0x154682804000 - 0x154682a03fff
  0x154682a04000 - 0x154682a04fff
  0x154682a05000 - 0x154682a05fff
  0x154682a0f000 - 0x154682a10fff
  0x154682a11000 - 0x154682a20fff
  0x154682a21000 - 0x154682a54fff
  0x154682a55000 - 0x154682b8bfff
  0x154682b8c000 - 0x154682b8cfff
  0x154682b8d000 - 0x154682b8ffff
  0x154682b90000 - 0x154682b90fff
  0x154682b91000 - 0x154682b92fff
  0x154682b93000 - 0x154682b93fff
  0x154682b94000 - 0x154682b95fff
  0x154682b96000 - 0x154682b96fff
  0x154682b97000 - 0x154682b97fff
  0x154682b98000 - 0x154682b98fff
  0x154682b99000 - 0x154682ba6fff
  0x154682ba7000 - 0x154682bb4fff
  0x154682bb5000 - 0x154682bc1fff
  0x154682bc2000 - 0x154682bc5fff
  0x154682bc6000 - 0x154682bc6fff
  0x154682bc7000 - 0x154682bc7fff
  0x154682bc8000 - 0x154682bcdfff
  0x154682bce000 - 0x154682bcffff
  0x154682bd0000 - 0x154682bd0fff
  0x154682bd1000 - 0x154682bd1fff
  0x154682bd2000 - 0x154682bd2fff
  0x154682bd3000 - 0x154682c00fff
  0x154682c01000 - 0x154682c0ffff
  0x154682c10000 - 0x154682cb5fff
  0x154682cb6000 - 0x154682d4cfff
  0x154682d4d000 - 0x154682d4dfff
  0x154682d4e000 - 0x154682d4efff
  0x154682d4f000 - 0x154682d62fff
  0x154682d63000 - 0x154682d8afff
  0x154682d8b000 - 0x154682d94fff
  0x154682d95000 - 0x154682d96fff
  0x154682d97000 - 0x154682d9cfff
  0x154682d9d000 - 0x154682d9ffff
  0x154682da2000 - 0x154682da2fff
  0x154682da3000 - 0x154682da3fff
  0x154682da4000 - 0x154682da4fff
  0x154682da5000 - 0x154682da5fff
  0x154682da6000 - 0x154682da6fff
  0x154682da7000 - 0x154682dadfff
  0x154682dae000 - 0x154682db0fff
  0x154682db1000 - 0x154682db1fff
  0x154682db2000 - 0x154682dd2fff
  0x154682dd3000 - 0x154682ddafff
  0x154682ddb000 - 0x154682ddbfff
  0x154682ddc000 - 0x154682ddcfff
  0x154682ddd000 - 0x154682dddfff
  0x565184753000 - 0x565184843fff
  0x565184844000 - 0x56518494dfff
  0x56518494e000 - 0x5651849adfff
  0x5651849af000 - 0x5651849ddfff
  0x5651849de000 - 0x565184a0efff
  0x565184a0f000 - 0x565184a12fff
  0x5651853db000 - 0x5651853fbfff
  0x7fffb658d000 - 0x7fffb65adfff
  0x7fffb65da000 - 0x7fffb65ddfff
  0x7fffb65de000 - 0x7fffb65dffff
https://ideone.com/khTnEI
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!