🚀 go-pugleaf

  $B$3$s$P$s$O!"CfEg!w$"$5$R$M$C$H$G$9!#$465<x$"$j$,$H$&$4$6$$$^$9!#(B

From: kazukun@cv.sony.co.jp (Kazuhito NARITA)
Subject: Re: combination
Date: 8 May 97 09:31:23 GMT
Message-ID: <KAZUKUN.97May8183123@cvdb11w0.cv.sony.co.jp>

kazukun> $B$?$V$s!"$b$C$H8zN($NNI$$J}K!$,$"$k$H;W$$$^$9$,(B
kazukun> $B:n$C$F$_$^$7$?!#(B
kazukun> ($B8eN,(B)

$B8=:_$N$H$3$m!"(BKawashima Manabu <kaw@lp.nm.fujitsu.co.jp> $B$5$s$+$i$$(B
$B$?$@$$$?4X?t$r!"@nEg$5$s$N$4N;2r$rF@$F!"$=$N$^$^(B SKK $B$N3+H/%P!<%8%g(B
$B%s$K<h$j9~$s$G$$$^$9!#$=$N4X?t$H$O2<5-$N$b$N$G$9!#(B

(defun skk-flatten-list (list)
  ;; $BM?$($i$l$?%j%9%H$N3FMWAG$+$iAH$_9g$;2DG=$JJ8;zNs$NO"@\$r:n$j!"%j%9%H$GJV(B
  ;; $B$9!#(B
  ;; (("A" "B") "1" ("X" "Y")) -> ("A1X" "A1Y" "B1X" "B1Y")
  (do ((result
        (if (atom (car list)) (list (car list)) (car list))
        (mapcan (function
                 (lambda (a)
                   (mapcar (function (lambda (b) (concat a b)))
                           (if (atom (car tail)) (list (car tail))
                             (car tail) ))))
                result ))
       (tail (cdr list) (cdr tail)) )
      ((null tail) result) ))

$B!t(B $B85!9@nEg$5$s$N:nIJ$,(B Common Lisp $B$G=P$F$-$?$?$a!"(BEmacs $B$N(B CL
$B!t(B package $B$r;H$C$F$[$H$s$I$=$N$^$^N.MQ$7$F$$$^$9!#(B

$B;d$NFHCG$G$9$,!":#Kx$$$/$D$+65$($F$b$i$C$?Cf$G$O@nEg$5$s$N$b$N$,!"(B
$B0lHV4J7i$J2sEz$@$H;W$C$F$$$^$9!#$$$:$l$K$;$h!"@.ED$5$s$N$b$N$bBgJQ(B
$B;29M$K$J$j$^$7$?!#=E$M$F$*Ni?=$7>e$2$^$9!#(B

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