Re: 組み合わせ関数

Article View: fj.lang.lisp

Article #186

#186

From: KURODA Hisao / くろだひさお
Date: Wed, 30 Apr 1997 00:00

34 lines
1678 bytes

In article <19970430113102U.minakaji@osaka.email.ne.jp> Mikio Nakajima <minakaji@osaka.email.ne.jp> writes:

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

$BMW5a$r40A4$KK~$?$7$F$O$$$^$;$s$,!"$3$s$J$s$I$&$G$7$g$&$+(B?

GCL (GNU Common Lisp)  Version(2.2) Thu Jun 13 20:40:09 JST 1996
Licensed under GNU Public Library License
Contains Enhancements by W. Schelter


>(defun c (lst &rest args)
   (if (null args)
       lst
     (mapcan #'(lambda (res)
                 (mapcar #'(lambda (mem)
                             (cons mem res)
                             )
                         lst)
                 )
             (apply #'c args))))
C

>(c '(1 2) '(3 4) '(5 6))
((1 3 . 5) (2 3 . 5) (1 4 . 5) (2 4 . 5) (1 3 . 6) (2 3 . 6) (1 4 . 6)
 (2 4 . 6))

>(c '("a" "b") '("1") '("x" "y"))
(("a" "1" . "x") ("b" "1" . "x") ("a" "1" . "y") ("b" "1" . "y"))

;;; $Id: .signature,v 1.3 1996/09/20 07:06:26 kuroda Exp $
(define ($B$/$m$@(B $B$R$5$*(B)
  (email kuroda@msi.co.jp))

Technical Details

Message-ID: <KURODA.97Apr30181116@undine.msi.co.jp>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References: <19970430113102U.minakaji@osaka.email.ne.jp>

Show Full Headers

Complete Article Headers

X-Google-Language: Japanese,JIS
X-Google-Thread: 1421c0,cee8831244ce8046
X-Google-Attributes: gid1421c0,public
From: kuroda@undine.msi.co.jp (KURODA Hisao / くろだ ひさお)
Subject: Re: 組み合わせ関数
Date: 1997/04/30
Message-ID: <KURODA.97Apr30181116@undine.msi.co.jp>
X-Deja-AN: 238374638
References: <19970430113102U.minakaji@osaka.email.ne.jp>
X-Nsubject: Re: $BAH$_9g$o$;4X?t(B
Followup-To: fj.lang.lisp
Organization: Mathematical Systems Inc.,Tokyo,Japan / 株式会社 数理システム
Newsgroups: fj.lang.lisp

Reply to Parent Message