🚀 go-pugleaf

$@$F$-$H!<$K:n$C$?$N$GL5BL$,B?$$$H;W$$$^$9$,!"$H$j$"$($:F0:n$7$^$9(J

(defun combination (a)
  (interactive)
  (cond ((cdr a)
	 (cond ((cdr (cdr a))
		(combination (cons (subcombin (car a) (car (cdr a)))
				   (cdr (cdr a)))))
	       (t
		(subcombin (car a) (car (cdr a))))))
	((listp a)
	 (cond ((listp (car a))
		(car a))
	       (t
		a)))
	(t
	 (list a))))

(defun subcombin (a b)
  (cond ((nlistp a) (setq a (list a))))
  (cond ((nlistp b) (setq b (list b))))
  (let ((resultA nil)
	(resultB nil)
	(c nil))
    (while (car a)
      (setq resultB nil)
      (setq c b)
      (while (car c)
	(setq resultB (append resultB (list (concat (car a) (car c)))))
	(setq c (cdr c)))
      (setq resultA (append resultA resultB))
      (setq a (cdr a)))
    resultA))


$@<B9T7k2L(J
(combination '(("A" "B") "1" ("X" "Y")))
 -> ("A1X" "A1Y" "B1X" "B1Y")
--
==-----------==
Kazuhito Narita
==-----------==