お客様と講座開催日程の連絡をすることがあるので、 あってもよいかなと。 (defun weekday (year month day) (nth (nth 6 (decode-time (encode-time 0 0 0 day month year))) '(日 月 火 水 木 金 土))) (defun string-to-weekday (yyyymmdd) (let* ((ymd (…

市民講座でやってました。 ;最大部分列和問題 ;数列の中で和が最大となる、連続している部分列の和を求める (def x [31,-41,59,26,-53,58,97,-93]) (defn sum [a b] (if (< 0 (+ a b)) (+ a b) 0)) (defn s ([coll-x] (s (next coll-x) (list (first coll-x)…