🚀 go-pugleaf

  $B$3$s$P$s$O!"CfEg!w$"$5$R$M$C$H$G$9!#9uED$5$s$r;O$a!"J#?t$NJ}$+$i(B
$BAaB.%a!<%k$r$$$?$@$-$^$7$?!#$"$j$,$H$&$4$6$$$^$9!#(B

From: kuroda@undine.msi.co.jp (KURODA Hisao/ $B$/$m$@(B $B$R$5$*(B)
Subject: Re: $BAH$_9g$o$;4X?t(B
Date: 30 Apr 1997 09:11:16 GMT
Message-ID: <KURODA.97Apr30181116@undine.msi.co.jp>

kuroda> In article <19970430113102U.minakaji@osaka.email.ne.jp> Mikio Nakajima <minakaji@osaka.email.ne.jp> writes:
kuroda> 
kuroda>  |    (("A" "B") "1" ("X" "Y")) -> ("A1X" "A1Y" "B1X" "B1Y")
kuroda> 
kuroda> $BMW5a$r40A4$KK~$?$7$F$O$$$^$;$s$,!"$3$s$J$s$I$&$G$7$g$&$+(B?
kuroda> 

$B$H$"$kJ}$+$i2<5-$N$h$&$J%W%m%0%i%`$r$$$?$@$-$^$7$?!#A4$/8D?ME*$J0u(B
$B>]$G$9$,!"$3$NJ}$N2rK!$,;d$N4uK>$r@53N$K$+$J$($F$/$l$F!"$+$D:G$b4J(B
$B7i$G$"$k$h$&$K;W$$$^$9!#(B

(defun foo (list)
  (if (cdr list)
      (bar (car list) (foo (cdr list)))
    (if (consp (car list))
	(car list)
      list)))

(defun bar (x y)
  (if (atom x) (setq x (list x)))
  (mapcan #'(lambda (a)
	      (mapcar #'(lambda (b) (concatenate 'string a b))
		      y))
	  x))

(foo '(("A" "B") "1" ("X" "Y"))) $B"*(B ("A1X" "A1Y" "B1X" "B1Y")

$BCfEg44IW(B <minakaji@osaka.email.ne.jp>
http://www.asahi-net.or.jp/~gy2m-nkjm/