<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<oembed>
  <author_name>shigemk2</author_name>
  <author_url>https://blog.hatena.ne.jp/shigemk2/</author_url>
  <blog_title>by shigemk2</blog_title>
  <blog_url>https://www.shigemk2.com/</blog_url>
  <categories>
    <anon>読書ノート</anon>
  </categories>
  <description>前回 リスト遊び 5-4 集合* - by shigemk2 equivを改造する また例によって、condを拡張することで、入れ子のリストも 比較出来るように拡張する。 (defun equiv (x y) (cond ((and (null x) (null y)) t) ((or (null x) (null y)) nil) (t (and (eq (car x) (car y)) (equiv (cdr x) (cdr y)))))) equiv (equiv '(1 2 3) '(1 2 3)) t (equiv '((1) 2 3) '((1) 2 3)) nil (defun …</description>
  <height>190</height>
  <html>&lt;iframe src=&quot;https://hatenablog-parts.com/embed?url=https%3A%2F%2Fwww.shigemk2.com%2Fentry%2F20120207%2F1328541554&quot; title=&quot;リスト遊び 5-5 等しいリスト* - by shigemk2&quot; class=&quot;embed-card embed-blogcard&quot; scrolling=&quot;no&quot; frameborder=&quot;0&quot; style=&quot;display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;&quot;&gt;&lt;/iframe&gt;</html>
  <image_url>http://ecx.images-amazon.com/images/I/51BZ2NQA92L.jpg</image_url>
  <provider_name>Hatena Blog</provider_name>
  <provider_url>https://hatena.blog</provider_url>
  <published>2012-02-07 00:19:14</published>
  <title>リスト遊び 5-5 等しいリスト*</title>
  <type>rich</type>
  <url>https://www.shigemk2.com/entry/20120207/1328541554</url>
  <version>1.0</version>
  <width>100%</width>
</oembed>
