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)))
  26.  
Success #stdin #stdout #stderr 0.01s 9588KB
comments (?)
stdin 
工藤嘉悦
stdout 
Standard output is empty
stderr 
Warning: reserving address range 0x80000c0000...0x1fffffffffff that contains memory mappings. clisp might crash later!
Memory dump:
  0x8000000000 - 0x80000bffff
  0x147cd6e00000 - 0x147cd70e4fff
  0x147cd7200000 - 0x147cd7202fff
  0x147cd7203000 - 0x147cd7401fff
  0x147cd7402000 - 0x147cd7402fff
  0x147cd7403000 - 0x147cd7403fff
  0x147cd7415000 - 0x147cd7439fff
  0x147cd743a000 - 0x147cd75acfff
  0x147cd75ad000 - 0x147cd75f5fff
  0x147cd75f6000 - 0x147cd75f8fff
  0x147cd75f9000 - 0x147cd75fbfff
  0x147cd75fc000 - 0x147cd75fffff
  0x147cd7600000 - 0x147cd7603fff
  0x147cd7604000 - 0x147cd7803fff
  0x147cd7804000 - 0x147cd7804fff
  0x147cd7805000 - 0x147cd7805fff
  0x147cd782f000 - 0x147cd7830fff
  0x147cd7831000 - 0x147cd7840fff
  0x147cd7841000 - 0x147cd7874fff
  0x147cd7875000 - 0x147cd79abfff
  0x147cd79ac000 - 0x147cd79acfff
  0x147cd79ad000 - 0x147cd79affff
  0x147cd79b0000 - 0x147cd79b0fff
  0x147cd79b1000 - 0x147cd79b2fff
  0x147cd79b3000 - 0x147cd79b3fff
  0x147cd79b4000 - 0x147cd79b5fff
  0x147cd79b6000 - 0x147cd79b6fff
  0x147cd79b7000 - 0x147cd79b7fff
  0x147cd79b8000 - 0x147cd79b8fff
  0x147cd79b9000 - 0x147cd79c6fff
  0x147cd79c7000 - 0x147cd79d4fff
  0x147cd79d5000 - 0x147cd79e1fff
  0x147cd79e2000 - 0x147cd79e5fff
  0x147cd79e6000 - 0x147cd79e6fff
  0x147cd79e7000 - 0x147cd79e7fff
  0x147cd79e8000 - 0x147cd79edfff
  0x147cd79ee000 - 0x147cd79effff
  0x147cd79f0000 - 0x147cd79f0fff
  0x147cd79f1000 - 0x147cd79f1fff
  0x147cd79f2000 - 0x147cd79f2fff
  0x147cd79f3000 - 0x147cd7a20fff
  0x147cd7a21000 - 0x147cd7a2ffff
  0x147cd7a30000 - 0x147cd7ad5fff
  0x147cd7ad6000 - 0x147cd7b6cfff
  0x147cd7b6d000 - 0x147cd7b6dfff
  0x147cd7b6e000 - 0x147cd7b6efff
  0x147cd7b6f000 - 0x147cd7b82fff
  0x147cd7b83000 - 0x147cd7baafff
  0x147cd7bab000 - 0x147cd7bb4fff
  0x147cd7bb5000 - 0x147cd7bb6fff
  0x147cd7bb7000 - 0x147cd7bbcfff
  0x147cd7bbd000 - 0x147cd7bbffff
  0x147cd7bc2000 - 0x147cd7bc2fff
  0x147cd7bc3000 - 0x147cd7bc3fff
  0x147cd7bc4000 - 0x147cd7bc4fff
  0x147cd7bc5000 - 0x147cd7bc5fff
  0x147cd7bc6000 - 0x147cd7bc6fff
  0x147cd7bc7000 - 0x147cd7bcdfff
  0x147cd7bce000 - 0x147cd7bd0fff
  0x147cd7bd1000 - 0x147cd7bd1fff
  0x147cd7bd2000 - 0x147cd7bf2fff
  0x147cd7bf3000 - 0x147cd7bfafff
  0x147cd7bfb000 - 0x147cd7bfbfff
  0x147cd7bfc000 - 0x147cd7bfcfff
  0x147cd7bfd000 - 0x147cd7bfdfff
  0x55f09c867000 - 0x55f09c957fff
  0x55f09c958000 - 0x55f09ca61fff
  0x55f09ca62000 - 0x55f09cac1fff
  0x55f09cac3000 - 0x55f09caf1fff
  0x55f09caf2000 - 0x55f09cb22fff
  0x55f09cb23000 - 0x55f09cb26fff
  0x55f09cc9c000 - 0x55f09ccbcfff
  0x7ffc585ea000 - 0x7ffc5860afff
  0x7ffc587bc000 - 0x7ffc587bffff
  0x7ffc587c0000 - 0x7ffc587c1fff
https://ideone.com/0mgxKD
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!