これは簡単。 あえてcl-pprecを使ってみた。 ;;どう書く？org 条件を満たす行を取り除く (require :asdf) (asdf:oos 'asdf:load-op :cl-ppcre) (defun remcomment(in out) (with-open-file (is in :direction :input) (with-open-file (os out :direction :o…

久しぶりに続き。 どう書く？に出題がどんどんでちゃって、追い付く気配が全くない。 マイペースでやってくか。 今回も処理速度とか無視。 例題は通ったけどバグはあるかも。 ;;どう書く？org 分数を小数に展開 (defun calc(x) (multiple-value-bind (a b) (…