<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<oembed>
  <author_name>syou6162</author_name>
  <author_url>https://blog.hatena.ne.jp/syou6162/</author_url>
  <blog_title>yasuhisa's blog</blog_title>
  <blog_url>https://www.yasuhisay.info/</blog_url>
  <categories>
    <anon>Gauch</anon>
  </categories>
  <description>メモです。 flatten 学習用データ作成 - 主にアルゴリズムの実験日誌 (define (flatten ls) (cond ((null? ls) '()) ((pair? ls) (append (flatten (car ls)) (flatten (cdr ls)))) (else (list ls)))) LISP Scheme Part8 (define (flatten a) (if (list? a) (apply append (map flatten a)) (list a))) なかなか変態なコードですよね。 deep-copy-list プログラミングGauche…</description>
  <height>190</height>
  <html>&lt;iframe src=&quot;https://hatenablog-parts.com/embed?url=https%3A%2F%2Fwww.yasuhisay.info%2Fentry%2F20080326%2F1206476663&quot; title=&quot;ネストしたリストの操作 - yasuhisa&amp;#39;s blog&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></image_url>
  <provider_name>Hatena Blog</provider_name>
  <provider_url>https://hatena.blog</provider_url>
  <published>2008-03-26 05:24:23</published>
  <title>ネストしたリストの操作</title>
  <type>rich</type>
  <url>https://www.yasuhisay.info/entry/20080326/1206476663</url>
  <version>1.0</version>
  <width>100%</width>
</oembed>
