多少小さくなった。ハードコーディング気味。なぜ？おそらく foreach という発想から抜け出さないとうまくかけないのだろう。私は抜け出せていない。 (asdf:oos 'asdf:load-op 'cl-ppcre) (defun my-file-input () (with-open-stream (stream (open "yanau_c…

できました。cl-ppcre つかったら一発だったりして。 (asdf:oos 'asdf:load-op 'cl-ppcre) (defvar xoutput 'nil) (defvar youtput 'nil) (defvar all-output 'nil) ;(setf wq (string #\")) ;(setf wq (coerce wq 'string)) (defun |#%-reader| (stream sub…

foreach 的な発想がやっぱりミスリード。直積を求めるのが先決だ。 (setf pt0 '("XXX" ("x_A" "x_B" "x_C"))) (setf pt1 '("YYY" ("y_A" "y_B" "y_C"))) (defun make-pair (pt) (let ((src (car pt)) (ln-dst (cadr pt))) (mapcar (lambda (x) (list src x))…