M000478.html in facets-0.7.2

- old
+ new
@@ -3,16 +3,22 @@
      PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
      "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
 <html>
 <head>
-  <title>explode (Lisp)</title>
+  <title>zip (Lisp)</title>
   <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
   <link rel="stylesheet" href="../.././rdoc-style.css" type="text/css" media="screen" />
 </head>
 <body class="standalone-code">
-  <pre><span class="ruby-comment cmt"># File lib/facet/lisp.rb, line 314</span>
-  <span class="ruby-keyword kw">def</span> <span class="ruby-identifier">explode</span>(<span class="ruby-identifier">string</span>)
-    <span class="ruby-identifier">list</span>(<span class="ruby-operator">*</span>(<span class="ruby-identifier">string</span>.<span class="ruby-identifier">split</span>(<span class="ruby-regexp re">//</span>)))
+  <pre><span class="ruby-comment cmt"># File lib/facet/lisp.rb, line 223</span>
+  <span class="ruby-keyword kw">def</span> <span class="ruby-identifier">zip</span>(<span class="ruby-identifier">fun</span>, <span class="ruby-identifier">l</span>, <span class="ruby-identifier">m</span>)
+    <span class="ruby-keyword kw">if</span> <span class="ruby-identifier">null?</span>(<span class="ruby-identifier">l</span>) <span class="ruby-keyword kw">and</span> <span class="ruby-identifier">null?</span>(<span class="ruby-identifier">m</span>)
+      <span class="ruby-keyword kw">nil</span>
+    <span class="ruby-keyword kw">elsif</span> <span class="ruby-identifier">null?</span>(<span class="ruby-identifier">l</span>) <span class="ruby-keyword kw">or</span> <span class="ruby-identifier">null?</span>(<span class="ruby-identifier">m</span>)
+      <span class="ruby-identifier">raise</span> <span class="ruby-constant">ArgumentError</span>.<span class="ruby-identifier">new</span>(<span class="ruby-value str">&quot;zip with unequal length lists&quot;</span>)
+    <span class="ruby-keyword kw">else</span>
+      <span class="ruby-identifier">cons</span>(<span class="ruby-identifier">fun</span>.<span class="ruby-identifier">call</span>(<span class="ruby-identifier">car</span>(<span class="ruby-identifier">l</span>), <span class="ruby-identifier">car</span>(<span class="ruby-identifier">m</span>)), <span class="ruby-identifier">zip</span>(<span class="ruby-identifier">fun</span>, <span class="ruby-identifier">cdr</span>(<span class="ruby-identifier">l</span>), <span class="ruby-identifier">cdr</span>(<span class="ruby-identifier">m</span>)))
+    <span class="ruby-keyword kw">end</span>
   <span class="ruby-keyword kw">end</span></pre>
 </body>
 </html>
\ No newline at end of file