🚀 go-pugleaf

emacs$B$N!"(BGC$B$H$+(Bcons$B$N=hM}$H$+J8;zNs=hM}$H$+(Bmap$B7O4X?t$H$+$N@-G=$N%P%i%s(B
$B%9$,$I$s$J$b$N$+CN$j$^$;$s$,!"$3$s$J$N$b$"$j$H$$$&$3$H$G!#(B

(defun skk-flatten-list (l)
  (let ((result '()))
    (skk-flatten-list-loop '() l)
    (nreverse result)))
skk-flatten-list

(defun skk-flatten-list-loop (ss l)
  (let (a d)
    (while l
      (setq a (car l)
	    l (cdr l))
      (cond ((stringp a)
	     (setq ss (cons a ss)))
	    (a
	     (setq d (cdr a))
	     (while d
	       (skk-flatten-list-loop ss (cons (car a) l))
	       (setq a d
		     d (cdr d)))
	     (setq l (cons (car a) l)))
	    (t
	     (setq l nil
		   ss nil)))))
  (if ss
      (setq result (cons (apply 'concat (reverse ss)) result))))
skk-flatten-list-loop

(skk-flatten-list '(("A" "B" "C") "1" ("X" "Y")))
("A1X" "A1Y" "B1X" "B1Y" "C1X" "C1Y")

emacs$B$,KvHx4X?t8F$S=P$7$N:GE,2=$r$A$c$s$H$7$F$/$l$k!"$"$k$$$O!"$=$s$J(B
$B$3$H$O5$$K$7$J$$$N$J$i!"(Bskk-flatten-list-loop$B$O$b$C$HC1=c$K=q$1$^$9$M!#(B

-- 
$B?\F#(B $B@60l(B <suto@merry.xmath.ous.ac.jp>
$B")(B700 $B2,;3;TM}BgD.(B1-1 $B2,;3M}2JBg3XM}3XIt1~MQ?t3X65<<(B(20$B9f4[(B6$B3,(B)
$BEEOC(B:086-252-3161($BFb@~(B3284)$B!$%U%!%/%7%_%j(B:086-255-0238