<?xml version="1.0" encoding="UTF-8"?><rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	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/"
		>
<channel>
	<title>Comments on: My First Lisp Program</title>
	<atom:link href="http://jasonswett.net/my-first-lisp-program/feed/" rel="self" type="application/rss+xml" />
	<link>http://jasonswett.net/my-first-lisp-program/</link>
	<description>A Blog About Software Development, Databases, And Stuff That Doesn&#039;t Have To Do With Computers</description>
	<lastBuildDate>Mon, 06 Sep 2010 18:44:06 +0000</lastBuildDate>
	<generator>http://wordpress.org/?v=2.9.1</generator>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
		<item>
		<title>By: jason</title>
		<link>http://jasonswett.net/my-first-lisp-program/comment-page-1/#comment-7</link>
		<dc:creator>jason</dc:creator>
		<pubDate>Tue, 12 Jan 2010 20:33:54 +0000</pubDate>
		<guid isPermaLink="false">http://jasonswett.net/blog/?p=160#comment-7</guid>
		<description>Thanks for the input. You&#039;ve introduced a few ideas I don&#039;t fully understand yet:

- The CASE function
- The MAP function
- Backticks

I also didn&#039;t know about the STRING-DOWNCASE function, but that one&#039;s easy to understand: it just converts a string to lower-case.

Perhaps I&#039;ll explore these suggestions further in my next post.</description>
		<content:encoded><![CDATA[<p>Thanks for the input. You&#8217;ve introduced a few ideas I don&#8217;t fully understand yet:</p>
<p>- The CASE function<br />
- The MAP function<br />
- Backticks</p>
<p>I also didn&#8217;t know about the STRING-DOWNCASE function, but that one&#8217;s easy to understand: it just converts a string to lower-case.</p>
<p>Perhaps I&#8217;ll explore these suggestions further in my next post.</p>
]]></content:encoded>
	</item>
	<item>
		<title>By: Zach Beane</title>
		<link>http://jasonswett.net/my-first-lisp-program/comment-page-1/#comment-6</link>
		<dc:creator>Zach Beane</dc:creator>
		<pubDate>Tue, 12 Jan 2010 19:11:48 +0000</pubDate>
		<guid isPermaLink="false">http://jasonswett.net/blog/?p=160#comment-6</guid>
		<description>Peter&#039;s book is great!

I think I might do things a little differently. It&#039;s really handy to treat strings as vectors of characters (which they are) and work on the vectors directly.

Also, using strings like &quot;consonant&quot; or &quot;vowel&quot; will be slower than using a keyword like :consonant or :vowel. Here&#039;s how I might try the same task:

(defun letter-type (char) (case char ((#\a #\e #\i #\o #\u) :vowel) (t :consonant)))

(defun analyze-word (word)
  (map &#039;list &#039;letter-type (string-downcase word))</description>
		<content:encoded><![CDATA[<p>Peter&#8217;s book is great!</p>
<p>I think I might do things a little differently. It&#8217;s really handy to treat strings as vectors of characters (which they are) and work on the vectors directly.</p>
<p>Also, using strings like &#8220;consonant&#8221; or &#8220;vowel&#8221; will be slower than using a keyword like :consonant or :vowel. Here&#8217;s how I might try the same task:</p>
<p>(defun letter-type (char) (case char ((#\a #\e #\i #\o #\u) :vowel) (t :consonant)))</p>
<p>(defun analyze-word (word)<br />
  (map &#8216;list &#8216;letter-type (string-downcase word))</p>
]]></content:encoded>
	</item>
</channel>
</rss>
