🚀 go-pugleaf

--pgp-sign-Multipart_Thu_May__1_03:50:09_1997-1
Content-Type: text/plain; charset=ISO-2022-JP

>>>>> <19970430113102U.minakaji@osaka.email.ne.jp> $B$K$F(B
>>>>> $B!HCfEg!I(B= Mikio Nakajima <minakaji@osaka.email.ne.jp> $B$5$^[)$/(B:
 
$BCfEg(B>   SKK 9.6 (Emacs Lisp $B$G<BAu(B) $B$G<BAu$7$?$H;W$C$F$$$??tCMJQ49$K4X(B
$BCfEg(B> $B$9$k4X?t$K%P%0$,$"$k$3$H$,J,$j!"D>$=$&$H$7$F6l$7$s$G$$$^$9!#0lHL(B
$BCfEg(B> $BE*$K8@$($P!"(B

$BCfEg(B>    (("A" "B") "1" ("X" "Y")) -> ("A1X" "A1Y" "B1X" "B1Y")

$BCfEg(B> $B$N$h$&$J%j%9%HJQ49$r9T$J$$$?$$$N$G$9!#3FMWAG$+$iAH$_9g$o$;2DG=$J(B
$BCfEg(B> $BJ8;zNs$N%j%9%H$KJQ49$7$FJV$9!"$H$$$&$b$N$G$9!#(B

$BCfEg(B> $B%H%C%W%l%Y%k$NMWAG$O!"J#?t$NJ8;zNs$r4^$`>l9g$O%j%9%H!"C10l$NMWAG(B
$BCfEg(B> $B$N>l9g$OJ8;zNs$,G[CV$5$l$F$$$k$H$7$^$9!#(B

$BCfEg(B>   $B%R%s%H$G$b7k9=$G$9$7!"<B:]$N%3!<%I$r$4HdO*$$$?$@$1$l$P>04r$7$$(B
$BCfEg(B> $B$G$9!#(BEmacs Lisp $B$G=q$$$F$$$?$@$1$l$P:G9b$G$9$,!"(BScheme $B$d(B 
$BCfEg(B> Common Lisp $B$G$b%+%?%3%H$J$iJ,$j$^$9$N$G!"$3$A$i$G$b7k9=$G$9!#(B

  $B$3$&$$$&$N$r:n$C$F$_$^$7$?!'(B

(defun string-every-combination (prev &rest rest)
  (if rest
      (let (dest
	    (pr (cond ((null prev)
		       '(nil)
		       )
		      ((stringp prev)
		       (list prev)
		       )
		      (t prev)))
	    (rest-mixed (apply (function string-every-combination) rest))
	    )
	(while pr
	  (let ((rr rest-mixed))
	    (while rr
	      (setq dest (cons (concat (car pr)(car rr)) dest))
	      (setq rr (cdr rr))
	      ))
	  (setq pr (cdr pr))
	  )
	(nreverse dest)
	)
    prev))

speed $B$r9MN8$7$F(B while $B$K$7$^$7$?$,(B map $B$r;H$C$?J}$,e:No$G$7$g$&!#(B

-- 
===$B!X4v@i2/$NJ,;R$KJ,$+$l$F$b(B ========================================
     $B7h$7$FK:$l$J$$!#(B    
     $B$3$N1'Ch$,=*$k$^$G!Y(B              $B<i2,(B $BCNI'(B (MORIOKA Tomohiko)
====================================== Email: <morioka@jaist.ac.jp> ==
# PGP public key: http://www-ks.jaist.ac.jp/~morioka/tomohiko/pgp.key

--pgp-sign-Multipart_Thu_May__1_03:50:09_1997-1
Content-Type: application/pgp-signature
Content-Transfer-Encoding: 7bit

-----BEGIN PGP MESSAGE-----
Version: 2.6.3ia
Comment: Processed by Mailcrypt 3.4, an Emacs/PGP interface

iQCVAwUBM2eUZhnuUGV7wuH5AQHsDAQAhdJwawReeLkDVRN1ffRch72K4ZlDl0ni
CWmajhjw1TW0LFY9wdj9WgEFn5qHeyO0N7Hf93g4V0Rbjz8cA46O0Xtq6FZpZzi+
x2dI4lc2qfnOezesaJ+4z5DFu03OyisXHru1mkUs7nCBKK0oqXdEIuBfGJR/tX6O
5l/D9tquPzI=
=bVex
-----END PGP MESSAGE-----

--pgp-sign-Multipart_Thu_May__1_03:50:09_1997-1--