fork download
copy 
  1. (defun fortunecookie ()
  2. (princ "今日の日付を入力：")
  3. (let* ((id (read-line))
  4. (seed (reduce (lambda(a b)(+ a b)) (map 'list #'char-code id)))
  5. (result (nth (mod seed 5)
  6. '("大吉！ 挑戦を続けよう"
  7. "中吉！ 今日は集中の日"
  8. "小吉！ まずは一歩"
  9. "吉！ 粘り勝ちを目指そう"
  10. "凶...でも明日がある！ "))))
  11. (format t "結果：~A~%" result)))
  12. (fortunecookie)
  13.  
Success #stdin #stdout 0.01s 29288KB
comments (?)
stdin
copy 
2025年6月17日
stdout
copy 
今日の日付を入力：結果：大吉！ 挑戦を続けよう
https://ideone.com/tY1DBz
language:
Common Lisp (sbcl 1.4.16)
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!