虹裏のログを数日分だけ閲覧できるサイト

画像ファイル名：1777981475579.png-(13345 B)
26/05/05(火)20:44:35No.1427042993+ 22:00頃消えます

GWだからLispの再帰プログラムを書いてみたよ

(let* ((ramen 7) (rice 12)
(n (+ ramen rice -1)) (j 0) (k 0))
(defun rr (i) (if (<= i n) (progn
(if (or (<= rice 0) (and (> ramen 0) (= (mod i 2) 0)))
(progn (setq j 0) (decf ramen))
(progn (setq j 1) (decf rice)))
(if (and (< i n) (= (mod i 2) 0)) (setq k 0) (setq k 1))
(format t "~[ラーメン~;飯~]~[食ったら~;を食う~%~]" j k)
(rr (+ i 1)))))
(rr 0))

…	126/05/05(火)20:48:00No.1427044302そうだねx1 Lispの再帰なら変数つかわずにやらないと破門されるぞ

…	226/05/05(火)21:27:31No.1427059616そうだねx1 ラーメンライスアルゴリズムがなんなのか未だにわからない

…	326/05/05(火)21:34:12No.1427062379+ あなたにバキューン