🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.lisp
Article #76

組み合わせ関数

#76
From: Mikio Nakajima
Date: Wed, 30 Apr 1997 00:00
23 lines
1604 bytes
  $B$3$s$K$A$O!"CfEg!w$"$5$R$M$C$H$G$9!#(B
 
  SKK 9.6 (Emacs Lisp $B$G<BAu(B) $B$G<BAu$7$?$H;W$C$F$$$??tCMJQ49$K4X$9(B
$B$k4X?t$K%P%0$,$"$k$3$H$,J,$j!"D>$=$&$H$7$F6l$7$s$G$$$^$9!#0lHLE*$K(B
$B8@$($P!"(B

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

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

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

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

$B$h$m$7$/$*4j$$$$$?$7$^$9!#(B

$BCfEg44IW(B <minakaji@osaka.email.ne.jp>
http://www.asahi-net.or.jp/~gy2m-nkjm/
Technical Details
Message-ID: <19970430113102U.minakaji@osaka.email.ne.jp>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: 10eba4,cee8831244ce8046,start
X-Google-Attributes: gid10eba4,public
X-Google-Thread: 1421c0,cee8831244ce8046,start
X-Google-Attributes: gid1421c0,public
X-Google-Thread: ff358,cee8831244ce8046,start
X-Google-Attributes: gidff358,public
From: Mikio Nakajima <minakaji@osaka.email.ne.jp>
Subject: 組み合わせ関数
Date: 1997/04/30
Message-ID: <19970430113102U.minakaji@osaka.email.ne.jp>
X-Deja-AN: 238302550
Followup-To: fj.lang.lisp
X-Dispatcher: impost version 0.99g (Mar. 28, 1997)
X-fingerprint: DE 1C 5F A7 FD CE F8 F1  3F 11 FD EC 23 A3 0B 46
Organization: Asahi Net
Newsgroups: fj.lang.lisp,fj.editor.emacs,fj.editor.mule