1*eeb7e5b3SAdam Hornáček<?xml version="1.0" encoding="UTF-8"?> 2*eeb7e5b3SAdam Hornáček<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" 3*eeb7e5b3SAdam Hornáček "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> 4*eeb7e5b3SAdam Hornáček<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en" 5*eeb7e5b3SAdam Hornáček class="xref"> 6*eeb7e5b3SAdam Hornáček<head> 7*eeb7e5b3SAdam Hornáček<title>sampleFile - OpenGrok cross reference for /sampleFile</title></head><body> 8*eeb7e5b3SAdam Hornáček<script type="text/javascript">/* <![CDATA[ */ 9*eeb7e5b3SAdam Hornáčekfunction get_sym_list(){return [["Function","xf",[["WRONG-FUNCTION-2",72],["WRONG-FUNCTION-3",73],["test-mapcar-and-reduce",75],["test-mapcar-basics",15],["test-mapcar-multiple-lists",25],["test-reduce-basics",51],["test-reduce-right-to-left",59],["test-reduce-with-initial-value",66],["test-transpose-using-mapcar",33]]]];} /* ]]> */</script><a class="l" name="1" href="#1">1</a><span class="c">;; Copyright 2013 Google Inc.</span> 10*eeb7e5b3SAdam Hornáček<a class="l" name="2" href="#2">2</a><span class="c">;;</span> 11*eeb7e5b3SAdam Hornáček<a class="l" name="3" href="#3">3</a><span class="c">;; Licensed under the Apache License, Version 2.0 (the "License");</span> 12*eeb7e5b3SAdam Hornáček<a class="l" name="4" href="#4">4</a><span class="c">;; you may not use this file except in compliance with the License.</span> 13*eeb7e5b3SAdam Hornáček<a class="l" name="5" href="#5">5</a><span class="c">;; You may obtain a copy of the License at</span> 14*eeb7e5b3SAdam Hornáček<a class="l" name="6" href="#6">6</a><span class="c">;;</span> 15*eeb7e5b3SAdam Hornáček<a class="l" name="7" href="#7">7</a><span class="c">;; <a href="http://www.apache.org/licenses/LICENSE-2.0">http://www.apache.org/licenses/LICENSE-2.0</a></span> 16*eeb7e5b3SAdam Hornáček<a class="l" name="8" href="#8">8</a><span class="c">;;</span> 17*eeb7e5b3SAdam Hornáček<a class="l" name="9" href="#9">9</a><span class="c">;; Unless required by applicable law or agreed to in writing, software</span> 18*eeb7e5b3SAdam Hornáček<a class="hl" name="10" href="#10">10</a><span class="c">;; distributed under the License is distributed on an "AS IS" BASIS,</span> 19*eeb7e5b3SAdam Hornáček<a class="l" name="11" href="#11">11</a><span class="c">;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.</span> 20*eeb7e5b3SAdam Hornáček<a class="l" name="12" href="#12">12</a><span class="c">;; See the License for the specific language governing permissions and</span> 21*eeb7e5b3SAdam Hornáček<a class="l" name="13" href="#13">13</a><span class="c">;; limitations under the License.</span> 22*eeb7e5b3SAdam Hornáček<a class="l" name="14" href="#14">14</a> 23*eeb7e5b3SAdam Hornáček<a class="l" name="15" href="#15">15</a>(<a href="/source/s?defs=%22define-test%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">define-test</a> <a class="xf" name="test-mapcar-basics"/><a href="/source/s?refs=%22test-mapcar-basics%22" class="xf intelliWindow-symbol" data-definition-place="def">test-mapcar-basics</a> 24*eeb7e5b3SAdam Hornáček<a class="l" name="16" href="#16">16</a> <span class="s">"We can apply a function to each member 25*eeb7e5b3SAdam Hornáček<a class="l" name="17" href="#17">17</a> of a list using mapcar."</span> 26*eeb7e5b3SAdam Hornáček<a class="l" name="18" href="#18">18</a> (<b>defun</b> <a href="/source/s?defs=%22times-two%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">times-two</a> (<a href="/source/s?defs=x" class="intelliWindow-symbol" data-definition-place="undefined-in-file">x</a>) (<a href="/source/s?defs=%22*%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">*</a> <a href="/source/s?defs=x" class="intelliWindow-symbol" data-definition-place="undefined-in-file">x</a> <a href="/source/s?defs=2" class="intelliWindow-symbol" data-definition-place="undefined-in-file">2</a>)) 27*eeb7e5b3SAdam Hornáček<a class="l" name="19" href="#19">19</a> (<a href="/source/s?defs=%22assert-equal%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">assert-equal</a> <a href="/source/s?defs=____" class="intelliWindow-symbol" data-definition-place="undefined-in-file">____</a> (<a href="/source/s?defs=mapcar" class="intelliWindow-symbol" data-definition-place="undefined-in-file">mapcar</a> #'<a href="/source/s?defs=%22times-two%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">times-two</a> '(<a href="/source/s?defs=1" class="intelliWindow-symbol" data-definition-place="undefined-in-file">1</a> <a href="/source/s?defs=2" class="intelliWindow-symbol" data-definition-place="undefined-in-file">2</a> <a href="/source/s?defs=3" class="intelliWindow-symbol" data-definition-place="undefined-in-file">3</a>))) 28*eeb7e5b3SAdam Hornáček<a class="hl" name="20" href="#20">20</a> (<a href="/source/s?defs=%22assert-equal%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">assert-equal</a> <a href="/source/s?defs=____" class="intelliWindow-symbol" data-definition-place="undefined-in-file">____</a> (<a href="/source/s?defs=mapcar" class="intelliWindow-symbol" data-definition-place="undefined-in-file">mapcar</a> #'<a href="/source/s?defs=first" class="intelliWindow-symbol" data-definition-place="undefined-in-file">first</a> '((<a href="/source/s?defs=3" class="intelliWindow-symbol" data-definition-place="undefined-in-file">3</a> <a href="/source/s?defs=2" class="intelliWindow-symbol" data-definition-place="undefined-in-file">2</a> <a href="/source/s?defs=1" class="intelliWindow-symbol" data-definition-place="undefined-in-file">1</a>) 29*eeb7e5b3SAdam Hornáček<a class="l" name="21" href="#21">21</a> (<span class="s">"little" "small" "tiny"</span>) 30*eeb7e5b3SAdam Hornáček<a class="l" name="22" href="#22">22</a> (<span class="s">"pigs" "hogs" "swine"</span>))))) 31*eeb7e5b3SAdam Hornáček<a class="l" name="23" href="#23">23</a> 32*eeb7e5b3SAdam Hornáček<a class="l" name="24" href="#24">24</a> 33*eeb7e5b3SAdam Hornáček<a class="l" name="25" href="#25">25</a>(<a href="/source/s?defs=%22define-test%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">define-test</a> <a class="xf" name="test-mapcar-multiple-lists"/><a href="/source/s?refs=%22test-mapcar-multiple-lists%22" class="xf intelliWindow-symbol" data-definition-place="def">test-mapcar-multiple-lists</a> 34*eeb7e5b3SAdam Hornáček<a class="l" name="26" href="#26">26</a> <span class="s">"The mapcar function can be applied to 35*eeb7e5b3SAdam Hornáček<a class="l" name="27" href="#27">27</a> more than one list. It applies a function 36*eeb7e5b3SAdam Hornáček<a class="l" name="28" href="#28">28</a> to successive elements of the lists."</span> 37*eeb7e5b3SAdam Hornáček<a class="l" name="29" href="#29">29</a> (<a href="/source/s?defs=%22assert-equal%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">assert-equal</a> <a href="/source/s?defs=____" class="intelliWindow-symbol" data-definition-place="undefined-in-file">____</a> (<a href="/source/s?defs=mapcar" class="intelliWindow-symbol" data-definition-place="undefined-in-file">mapcar</a> #'<a href="/source/s?defs=%22*%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">*</a> '(<a href="/source/s?defs=1" class="intelliWindow-symbol" data-definition-place="undefined-in-file">1</a> <a href="/source/s?defs=2" class="intelliWindow-symbol" data-definition-place="undefined-in-file">2</a> <a href="/source/s?defs=3" class="intelliWindow-symbol" data-definition-place="undefined-in-file">3</a>) '(<a href="/source/s?defs=4" class="intelliWindow-symbol" data-definition-place="undefined-in-file">4</a> <a href="/source/s?defs=5" class="intelliWindow-symbol" data-definition-place="undefined-in-file">5</a> <a href="/source/s?defs=6" class="intelliWindow-symbol" data-definition-place="undefined-in-file">6</a>))) 38*eeb7e5b3SAdam Hornáček<a class="hl" name="30" href="#30">30</a> (<a href="/source/s?defs=%22assert-equal%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">assert-equal</a> <a href="/source/s?defs=____" class="intelliWindow-symbol" data-definition-place="undefined-in-file">____</a> (<a href="/source/s?defs=mapcar" class="intelliWindow-symbol" data-definition-place="undefined-in-file">mapcar</a> #'<a href="/source/s?defs=list" class="intelliWindow-symbol" data-definition-place="undefined-in-file">list</a> '(<span class="s">"lisp" "are"</span>) '(<span class="s">"koans" "fun"</span>)))) 39*eeb7e5b3SAdam Hornáček<a class="l" name="31" href="#31">31</a> 40*eeb7e5b3SAdam Hornáček<a class="l" name="32" href="#32">32</a> 41*eeb7e5b3SAdam Hornáček<a class="l" name="33" href="#33">33</a>(<a href="/source/s?defs=%22define-test%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">define-test</a> <a class="xf" name="test-transpose-using-mapcar"/><a href="/source/s?refs=%22test-transpose-using-mapcar%22" class="xf intelliWindow-symbol" data-definition-place="def">test-transpose-using-mapcar</a> 42*eeb7e5b3SAdam Hornáček<a class="l" name="34" href="#34">34</a> <span class="s">"Replace the usage of WRONG-FUNCTION in 'transpose' with the 43*eeb7e5b3SAdam Hornáček<a class="l" name="35" href="#35">35</a> correct lisp function (don't forget the #')."</span> 44*eeb7e5b3SAdam Hornáček<a class="l" name="36" href="#36">36</a> (<b>defun</b> <a href="/source/s?defs=%22WRONG-FUNCTION-1%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">WRONG-FUNCTION-1</a> (<a href="/source/s?defs=%22%26rest%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">&rest</a> <a href="/source/s?defs=rest" class="intelliWindow-symbol" data-definition-place="undefined-in-file">rest</a>) '()) 45*eeb7e5b3SAdam Hornáček<a class="l" name="37" href="#37">37</a> (<b>defun</b> <a href="/source/s?defs=transpose" class="intelliWindow-symbol" data-definition-place="undefined-in-file">transpose</a> (<a href="/source/s?defs=L" class="intelliWindow-symbol" data-definition-place="undefined-in-file">L</a>) (<a href="/source/s?defs=apply" class="intelliWindow-symbol" data-definition-place="undefined-in-file">apply</a> #'<a href="/source/s?defs=mapcar" class="intelliWindow-symbol" data-definition-place="undefined-in-file">mapcar</a> (<a href="/source/s?defs=cons" class="intelliWindow-symbol" data-definition-place="undefined-in-file">cons</a> #'<a href="/source/s?defs=%22WRONG-FUNCTION-1%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">WRONG-FUNCTION-1</a> <a href="/source/s?defs=L" class="intelliWindow-symbol" data-definition-place="undefined-in-file">L</a>))) 46*eeb7e5b3SAdam Hornáček<a class="l" name="38" href="#38">38</a> (<a href="/source/s?defs=%22assert-equal%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">assert-equal</a> '((<a href="/source/s?defs=1" class="intelliWindow-symbol" data-definition-place="undefined-in-file">1</a> <a href="/source/s?defs=4" class="intelliWindow-symbol" data-definition-place="undefined-in-file">4</a> <a href="/source/s?defs=7" class="intelliWindow-symbol" data-definition-place="undefined-in-file">7</a>) 47*eeb7e5b3SAdam Hornáček<a class="l" name="39" href="#39">39</a> (<a href="/source/s?defs=2" class="intelliWindow-symbol" data-definition-place="undefined-in-file">2</a> <a href="/source/s?defs=5" class="intelliWindow-symbol" data-definition-place="undefined-in-file">5</a> <a href="/source/s?defs=8" class="intelliWindow-symbol" data-definition-place="undefined-in-file">8</a>) 48*eeb7e5b3SAdam Hornáček<a class="hl" name="40" href="#40">40</a> (<a href="/source/s?defs=3" class="intelliWindow-symbol" data-definition-place="undefined-in-file">3</a> <a href="/source/s?defs=6" class="intelliWindow-symbol" data-definition-place="undefined-in-file">6</a> <a href="/source/s?defs=9" class="intelliWindow-symbol" data-definition-place="undefined-in-file">9</a>)) 49*eeb7e5b3SAdam Hornáček<a class="l" name="41" href="#41">41</a> (<a href="/source/s?defs=transpose" class="intelliWindow-symbol" data-definition-place="undefined-in-file">transpose</a> '((<a href="/source/s?defs=1" class="intelliWindow-symbol" data-definition-place="undefined-in-file">1</a> <a href="/source/s?defs=2" class="intelliWindow-symbol" data-definition-place="undefined-in-file">2</a> <a href="/source/s?defs=3" class="intelliWindow-symbol" data-definition-place="undefined-in-file">3</a>) 50*eeb7e5b3SAdam Hornáček<a class="l" name="42" href="#42">42</a> (<a href="/source/s?defs=4" class="intelliWindow-symbol" data-definition-place="undefined-in-file">4</a> <a href="/source/s?defs=5" class="intelliWindow-symbol" data-definition-place="undefined-in-file">5</a> <a href="/source/s?defs=6" class="intelliWindow-symbol" data-definition-place="undefined-in-file">6</a>) 51*eeb7e5b3SAdam Hornáček<a class="l" name="43" href="#43">43</a> (<a href="/source/s?defs=7" class="intelliWindow-symbol" data-definition-place="undefined-in-file">7</a> <a href="/source/s?defs=8" class="intelliWindow-symbol" data-definition-place="undefined-in-file">8</a> <a href="/source/s?defs=9" class="intelliWindow-symbol" data-definition-place="undefined-in-file">9</a>)))) 52*eeb7e5b3SAdam Hornáček<a class="l" name="44" href="#44">44</a> (<a href="/source/s?defs=%22assert-equal%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">assert-equal</a> '((<span class="s">"these" "pretzels" "are"</span>) 53*eeb7e5b3SAdam Hornáček<a class="l" name="45" href="#45">45</a> (<span class="s">"making" "me" "thirsty"</span>)) 54*eeb7e5b3SAdam Hornáček<a class="l" name="46" href="#46">46</a> (<a href="/source/s?defs=transpose" class="intelliWindow-symbol" data-definition-place="undefined-in-file">transpose</a> '((<span class="s">"these" "making"</span>) 55*eeb7e5b3SAdam Hornáček<a class="l" name="47" href="#47">47</a> (<span class="s">"pretzels" "me"</span>) 56*eeb7e5b3SAdam Hornáček<a class="l" name="48" href="#48">48</a> (<span class="s">"are" "thirsty"</span>))))) 57*eeb7e5b3SAdam Hornáček<a class="l" name="49" href="#49">49</a> 58*eeb7e5b3SAdam Hornáček<a class="hl" name="50" href="#50">50</a> 59*eeb7e5b3SAdam Hornáček<a class="l" name="51" href="#51">51</a>(<a href="/source/s?defs=%22define-test%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">define-test</a> <a class="xf" name="test-reduce-basics"/><a href="/source/s?refs=%22test-reduce-basics%22" class="xf intelliWindow-symbol" data-definition-place="def">test-reduce-basics</a> 60*eeb7e5b3SAdam Hornáček<a class="l" name="52" href="#52">52</a> <span class="s">"The reduce function combines the elements 61*eeb7e5b3SAdam Hornáček<a class="l" name="53" href="#53">53</a> of a list, from left to right, by applying 62*eeb7e5b3SAdam Hornáček<a class="l" name="54" href="#54">54</a> a binary function to the list elements."</span> 63*eeb7e5b3SAdam Hornáček<a class="l" name="55" href="#55">55</a> (<a href="/source/s?defs=%22assert-equal%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">assert-equal</a> <a href="/source/s?defs=___" class="intelliWindow-symbol" data-definition-place="undefined-in-file">___</a> (<a href="/source/s?defs=reduce" class="intelliWindow-symbol" data-definition-place="undefined-in-file">reduce</a> #'<a href="/source/s?defs=%22%2B%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">+</a> '(<a href="/source/s?defs=1" class="intelliWindow-symbol" data-definition-place="undefined-in-file">1</a> <a href="/source/s?defs=2" class="intelliWindow-symbol" data-definition-place="undefined-in-file">2</a> <a href="/source/s?defs=3" class="intelliWindow-symbol" data-definition-place="undefined-in-file">3</a> <a href="/source/s?defs=4" class="intelliWindow-symbol" data-definition-place="undefined-in-file">4</a>))) 64*eeb7e5b3SAdam Hornáček<a class="l" name="56" href="#56">56</a> (<a href="/source/s?defs=%22assert-equal%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">assert-equal</a> <a href="/source/s?defs=___" class="intelliWindow-symbol" data-definition-place="undefined-in-file">___</a> (<a href="/source/s?defs=reduce" class="intelliWindow-symbol" data-definition-place="undefined-in-file">reduce</a> #'<a href="/source/s?defs=expt" class="intelliWindow-symbol" data-definition-place="undefined-in-file">expt</a> '(<a href="/source/s?defs=2" class="intelliWindow-symbol" data-definition-place="undefined-in-file">2</a> <a href="/source/s?defs=3" class="intelliWindow-symbol" data-definition-place="undefined-in-file">3</a> <a href="/source/s?defs=2" class="intelliWindow-symbol" data-definition-place="undefined-in-file">2</a>)))) 65*eeb7e5b3SAdam Hornáček<a class="l" name="57" href="#57">57</a> 66*eeb7e5b3SAdam Hornáček<a class="l" name="58" href="#58">58</a> 67*eeb7e5b3SAdam Hornáček<a class="l" name="59" href="#59">59</a>(<a href="/source/s?defs=%22define-test%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">define-test</a> <a class="xf" name="test-reduce-right-to-left"/><a href="/source/s?refs=%22test-reduce-right-to-left%22" class="xf intelliWindow-symbol" data-definition-place="def">test-reduce-right-to-left</a> 68*eeb7e5b3SAdam Hornáček<a class="hl" name="60" href="#60">60</a> <span class="s">"The keyword :from-end allows us to apply 69*eeb7e5b3SAdam Hornáček<a class="l" name="61" href="#61">61</a> reduce from right to left."</span> 70*eeb7e5b3SAdam Hornáček<a class="l" name="62" href="#62">62</a> (<a href="/source/s?defs=%22assert-equal%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">assert-equal</a> <a href="/source/s?defs=___" class="intelliWindow-symbol" data-definition-place="undefined-in-file">___</a> (<a href="/source/s?defs=reduce" class="intelliWindow-symbol" data-definition-place="undefined-in-file">reduce</a> #'<a href="/source/s?defs=%22%2B%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">+</a> '(<a href="/source/s?defs=1" class="intelliWindow-symbol" data-definition-place="undefined-in-file">1</a> <a href="/source/s?defs=2" class="intelliWindow-symbol" data-definition-place="undefined-in-file">2</a> <a href="/source/s?defs=3" class="intelliWindow-symbol" data-definition-place="undefined-in-file">3</a> <a href="/source/s?defs=4" class="intelliWindow-symbol" data-definition-place="undefined-in-file">4</a>) <a href="/source/s?defs=%22%3Afrom-end%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">:from-end</a> <b>t</b>)) 71*eeb7e5b3SAdam Hornáček<a class="l" name="63" href="#63">63</a> (<a href="/source/s?defs=%22assert-equal%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">assert-equal</a> <a href="/source/s?defs=___" class="intelliWindow-symbol" data-definition-place="undefined-in-file">___</a> (<a href="/source/s?defs=reduce" class="intelliWindow-symbol" data-definition-place="undefined-in-file">reduce</a> #'<a href="/source/s?defs=expt" class="intelliWindow-symbol" data-definition-place="undefined-in-file">expt</a> '(<a href="/source/s?defs=2" class="intelliWindow-symbol" data-definition-place="undefined-in-file">2</a> <a href="/source/s?defs=3" class="intelliWindow-symbol" data-definition-place="undefined-in-file">3</a> <a href="/source/s?defs=2" class="intelliWindow-symbol" data-definition-place="undefined-in-file">2</a>) <a href="/source/s?defs=%22%3Afrom-end%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">:from-end</a> <b>t</b>))) 72*eeb7e5b3SAdam Hornáček<a class="l" name="64" href="#64">64</a> 73*eeb7e5b3SAdam Hornáček<a class="l" name="65" href="#65">65</a> 74*eeb7e5b3SAdam Hornáček<a class="l" name="66" href="#66">66</a>(<a href="/source/s?defs=%22define-test%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">define-test</a> <a class="xf" name="test-reduce-with-initial-value"/><a href="/source/s?refs=%22test-reduce-with-initial-value%22" class="xf intelliWindow-symbol" data-definition-place="def">test-reduce-with-initial-value</a> 75*eeb7e5b3SAdam Hornáček<a class="l" name="67" href="#67">67</a> <span class="s">"We can supply an initial value to reduce."</span> 76*eeb7e5b3SAdam Hornáček<a class="l" name="68" href="#68">68</a> (<a href="/source/s?defs=%22assert-equal%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">assert-equal</a> <a href="/source/s?defs=___" class="intelliWindow-symbol" data-definition-place="undefined-in-file">___</a> (<a href="/source/s?defs=reduce" class="intelliWindow-symbol" data-definition-place="undefined-in-file">reduce</a> #'<a href="/source/s?defs=expt" class="intelliWindow-symbol" data-definition-place="undefined-in-file">expt</a> '(<a href="/source/s?defs=10" class="intelliWindow-symbol" data-definition-place="undefined-in-file">10</a> <a href="/source/s?defs=21" class="intelliWindow-symbol" data-definition-place="undefined-in-file">21</a> <a href="/source/s?defs=34" class="intelliWindow-symbol" data-definition-place="undefined-in-file">34</a> <a href="/source/s?defs=43" class="intelliWindow-symbol" data-definition-place="undefined-in-file">43</a>) <a href="/source/s?defs=%22%3Ainitial-value%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">:initial-value</a> <a href="/source/s?defs=1" class="intelliWindow-symbol" data-definition-place="undefined-in-file">1</a>)) 77*eeb7e5b3SAdam Hornáček<a class="l" name="69" href="#69">69</a> (<a href="/source/s?defs=%22assert-equal%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">assert-equal</a> <a href="/source/s?defs=___" class="intelliWindow-symbol" data-definition-place="undefined-in-file">___</a> (<a href="/source/s?defs=reduce" class="intelliWindow-symbol" data-definition-place="undefined-in-file">reduce</a> #'<a href="/source/s?defs=expt" class="intelliWindow-symbol" data-definition-place="undefined-in-file">expt</a> '(<a href="/source/s?defs=10" class="intelliWindow-symbol" data-definition-place="undefined-in-file">10</a> <a href="/source/s?defs=21" class="intelliWindow-symbol" data-definition-place="undefined-in-file">21</a> <a href="/source/s?defs=34" class="intelliWindow-symbol" data-definition-place="undefined-in-file">34</a> <a href="/source/s?defs=43" class="intelliWindow-symbol" data-definition-place="undefined-in-file">43</a>) <a href="/source/s?defs=%22%3Ainitial-value%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">:initial-value</a> <a href="/source/s?defs=0" class="intelliWindow-symbol" data-definition-place="undefined-in-file">0</a>))) 78*eeb7e5b3SAdam Hornáček<a class="hl" name="70" href="#70">70</a> 79*eeb7e5b3SAdam Hornáček<a class="l" name="71" href="#71">71</a> 80*eeb7e5b3SAdam Hornáček<a class="l" name="72" href="#72">72</a>(<b>defun</b> <a class="xf" name="WRONG-FUNCTION-2"/><a href="/source/s?refs=%22WRONG-FUNCTION-2%22" class="xf intelliWindow-symbol" data-definition-place="def">WRONG-FUNCTION-2</a> (<a href="/source/s?defs=a" class="intelliWindow-symbol" data-definition-place="undefined-in-file">a</a> <a href="/source/s?defs=b" class="intelliWindow-symbol" data-definition-place="undefined-in-file">b</a>) (<a href="/source/s?defs=a" class="intelliWindow-symbol" data-definition-place="undefined-in-file">a</a>)) 81*eeb7e5b3SAdam Hornáček<a class="l" name="73" href="#73">73</a>(<b>defun</b> <a class="xf" name="WRONG-FUNCTION-3"/><a href="/source/s?refs=%22WRONG-FUNCTION-3%22" class="xf intelliWindow-symbol" data-definition-place="def">WRONG-FUNCTION-3</a> (<a href="/source/s?defs=a" class="intelliWindow-symbol" data-definition-place="undefined-in-file">a</a> <a href="/source/s?defs=b" class="intelliWindow-symbol" data-definition-place="undefined-in-file">b</a>) (<a href="/source/s?defs=a" class="intelliWindow-symbol" data-definition-place="undefined-in-file">a</a>)) 82*eeb7e5b3SAdam Hornáček<a class="l" name="74" href="#74">74</a> 83*eeb7e5b3SAdam Hornáček<a class="l" name="75" href="#75">75</a>(<a href="/source/s?defs=%22define-test%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">define-test</a> <a class="xf" name="test-mapcar-and-reduce"/><a href="/source/s?refs=%22test-mapcar-and-reduce%22" class="xf intelliWindow-symbol" data-definition-place="def">test-mapcar-and-reduce</a> 84*eeb7e5b3SAdam Hornáček<a class="l" name="76" href="#76">76</a> <span class="s">"mapcar and reduce are a powerful combination. 85*eeb7e5b3SAdam Hornáček<a class="l" name="77" href="#77">77</a> insert the correct function names, instead of WRONG-FUNCTION-X 86*eeb7e5b3SAdam Hornáček<a class="l" name="78" href="#78">78</a> to define an inner product."</span> 87*eeb7e5b3SAdam Hornáček<a class="l" name="79" href="#79">79</a> (<b>defun</b> <a href="/source/s?defs=inner" class="intelliWindow-symbol" data-definition-place="undefined-in-file">inner</a> (<a href="/source/s?defs=x" class="intelliWindow-symbol" data-definition-place="undefined-in-file">x</a> <a href="/source/s?defs=y" class="intelliWindow-symbol" data-definition-place="undefined-in-file">y</a>) 88*eeb7e5b3SAdam Hornáček<a class="hl" name="80" href="#80">80</a> (<a href="/source/s?defs=reduce" class="intelliWindow-symbol" data-definition-place="undefined-in-file">reduce</a> #'<a class="d intelliWindow-symbol" href="#WRONG-FUNCTION-2" data-definition-place="defined-in-file">WRONG-FUNCTION-2</a> (<a href="/source/s?defs=mapcar" class="intelliWindow-symbol" data-definition-place="undefined-in-file">mapcar</a> #'<a class="d intelliWindow-symbol" href="#WRONG-FUNCTION-3" data-definition-place="defined-in-file">WRONG-FUNCTION-3</a> <a href="/source/s?defs=x" class="intelliWindow-symbol" data-definition-place="undefined-in-file">x</a> <a href="/source/s?defs=y" class="intelliWindow-symbol" data-definition-place="undefined-in-file">y</a>))) 89*eeb7e5b3SAdam Hornáček<a class="l" name="81" href="#81">81</a> (<a href="/source/s?defs=%22assert-equal%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">assert-equal</a> <a href="/source/s?defs=32" class="intelliWindow-symbol" data-definition-place="undefined-in-file">32</a> (<a href="/source/s?defs=inner" class="intelliWindow-symbol" data-definition-place="undefined-in-file">inner</a> '(<a href="/source/s?defs=1" class="intelliWindow-symbol" data-definition-place="undefined-in-file">1</a> <a href="/source/s?defs=2" class="intelliWindow-symbol" data-definition-place="undefined-in-file">2</a> <a href="/source/s?defs=3" class="intelliWindow-symbol" data-definition-place="undefined-in-file">3</a>) '(<a href="/source/s?defs=4" class="intelliWindow-symbol" data-definition-place="undefined-in-file">4</a> <a href="/source/s?defs=5" class="intelliWindow-symbol" data-definition-place="undefined-in-file">5</a> <a href="/source/s?defs=6" class="intelliWindow-symbol" data-definition-place="undefined-in-file">6</a>))) 90*eeb7e5b3SAdam Hornáček<a class="l" name="82" href="#82">82</a> (<a href="/source/s?defs=%22assert-equal%22" class="intelliWindow-symbol" data-definition-place="undefined-in-file">assert-equal</a> <a href="/source/s?defs=310" class="intelliWindow-symbol" data-definition-place="undefined-in-file">310</a> (<a href="/source/s?defs=inner" class="intelliWindow-symbol" data-definition-place="undefined-in-file">inner</a> '(<a href="/source/s?defs=10" class="intelliWindow-symbol" data-definition-place="undefined-in-file">10</a> <a href="/source/s?defs=20" class="intelliWindow-symbol" data-definition-place="undefined-in-file">20</a> <a href="/source/s?defs=30" class="intelliWindow-symbol" data-definition-place="undefined-in-file">30</a>) '(<a href="/source/s?defs=4" class="intelliWindow-symbol" data-definition-place="undefined-in-file">4</a> <a href="/source/s?defs=3" class="intelliWindow-symbol" data-definition-place="undefined-in-file">3</a> <a href="/source/s?defs=7" class="intelliWindow-symbol" data-definition-place="undefined-in-file">7</a>)))) 91*eeb7e5b3SAdam Hornáček<a class="l" name="83" href="#83">83</a></body> 92*eeb7e5b3SAdam Hornáček</html> 93