<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>Compiled Thoughts by John Ciacia &#187; Lisp</title>
	<atom:link href="http://www.johnciacia.com/category/snippets/lisp/feed/" rel="self" type="application/rss+xml" />
	<link>http://www.johnciacia.com</link>
	<description>Science, Technology, and Beyond</description>
	<lastBuildDate>Fri, 06 Jan 2012 15:46:22 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.3.1</generator>
		<item>
		<title>Permutations</title>
		<link>http://www.johnciacia.com/2009/05/11/permutations/</link>
		<comments>http://www.johnciacia.com/2009/05/11/permutations/#comments</comments>
		<pubDate>Tue, 12 May 2009 03:24:26 +0000</pubDate>
		<dc:creator>John</dc:creator>
				<category><![CDATA[Lisp]]></category>
		<category><![CDATA[Snippets]]></category>
		<category><![CDATA[permutations]]></category>

		<guid isPermaLink="false">http://www.johnciacia.com/?p=109</guid>
		<description><![CDATA[Code to generate the permutations of a given list in Common Lisp. Code: [code](defun p (l) (if (null l) '(()) (mapcan #'(lambda (x) (mapcar #'(lambda (y) (cons x y)) (p (remove x l :count 1)))) l)))[/code] Usage/Output: [code]* (load "permute.lsp") ; Loading #p"/home/john/permute.lsp". T * (p (list 'a 'b 'c 'd 'e)) ((A B C [...]]]></description>
			<content:encoded><![CDATA[<p>Code to generate the permutations of a given list in Common Lisp.<br />
<strong>Code:</strong><br />
[code](defun p (l)<br />
  (if (null l) '(())<br />
  (mapcan #'(lambda (x)<br />
    (mapcar #'(lambda (y) (cons x y))<br />
      (p (remove x l :count 1)))) l)))[/code]</p>
<p><strong>Usage/Output:<br />
</strong>[code]* (load "permute.lsp")  </p>
<p>; Loading #p"/home/john/permute.lsp".<br />
T<br />
* (p (list 'a 'b 'c 'd 'e))</p>
<p>((A B C D E) (A B C E D) (A B D C E) (A B D E C) (A B E C D) (A B E D C)<br />
 (A C B D E) (A C B E D) (A C D B E) (A C D E B) (A C E B D) (A C E D B)<br />
 (A D B C E) (A D B E C) (A D C B E) (A D C E B) (A D E B C) (A D E C B)<br />
 (A E B C D) (A E B D C) (A E C B D) (A E C D B) (A E D B C) (A E D C B)<br />
 (B A C D E) (B A C E D) (B A D C E) (B A D E C) (B A E C D) (B A E D C)<br />
 (B C A D E) (B C A E D) (B C D A E) (B C D E A) (B C E A D) (B C E D A)<br />
 (B D A C E) (B D A E C) (B D C A E) (B D C E A) (B D E A C) (B D E C A)<br />
 (B E A C D) (B E A D C) (B E C A D) (B E C D A) (B E D A C) (B E D C A)<br />
 (C A B D E) (C A B E D) (C A D B E) (C A D E B) (C A E B D) (C A E D B)<br />
 (C B A D E) (C B A E D) (C B D A E) (C B D E A) (C B E A D) (C B E D A)<br />
 (C D A B E) (C D A E B) (C D B A E) (C D B E A) (C D E A B) (C D E B A)<br />
 (C E A B D) (C E A D B) (C E B A D) (C E B D A) (C E D A B) (C E D B A)<br />
 (D A B C E) (D A B E C) (D A C B E) (D A C E B) (D A E B C) (D A E C B)<br />
 (D B A C E) (D B A E C) (D B C A E) (D B C E A) (D B E A C) (D B E C A)<br />
 (D C A B E) (D C A E B) (D C B A E) (D C B E A) (D C E A B) (D C E B A)<br />
 (D E A B C) (D E A C B) (D E B A C) (D E B C A) (D E C A B) (D E C B A)<br />
 (E A B C D) (E A B D C) (E A C B D) (E A C D B) (E A D B C) (E A D C B)<br />
 (E B A C D) (E B A D C) (E B C A D) (E B C D A) (E B D A C) (E B D C A)<br />
 (E C A B D) (E C A D B) (E C B A D) (E C B D A) (E C D A B) (E C D B A)<br />
 (E D A B C) (E D A C B) (E D B A C) (E D B C A) (E D C A B) (E D C B A))[/code]</p>
]]></content:encoded>
			<wfw:commentRss>http://www.johnciacia.com/2009/05/11/permutations/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

<!-- Performance optimized by W3 Total Cache. Learn more: http://www.w3-edge.com/wordpress-plugins/

Page Caching using disk: enhanced

Served from: www.johnciacia.com @ 2012-02-05 11:20:06 -->
