├── README
├── argfile.xml
├── build.xml
├── build
    └── classes
    │   └── default
    │       └── core.clj
├── clojure-build.xml
├── lib
    ├── clojure-1.1.0-alpha-SNAPSHOT.jar
    ├── clojure-contrib.jar
    └── jline-0.9.94.jar
├── manifest.mf
├── nbproject
    ├── build-impl.xml
    ├── configs
    │   └── jar.properties
    ├── genfiles.properties
    ├── private
    │   └── private.properties
    ├── project.properties
    └── project.xml
├── project.clj
├── src
    ├── ch4
    │   ├── conditionals.clj
    │   ├── declarations.clj
    │   ├── environment.clj
    │   ├── lambdas.clj
    │   ├── letting.clj
    │   ├── predicates.clj
    │   ├── scheme.clj
    │   └── scheme_helpers.clj
    ├── sec1_1
    │   └── sec_1_1_8.clj
    ├── sec1_3
    │   ├── ex1_41.clj
    │   ├── ex1_42.clj
    │   ├── ex1_43.clj
    │   └── ex1_44.clj
    ├── sec2_1
    │   └── ex2_2.clj
    └── sec2_2
    │   ├── ex2_17.clj
    │   ├── ex2_18.clj
    │   ├── ex2_19.clj
    │   ├── ex2_20.clj
    │   ├── ex2_21.clj
    │   ├── ex2_22.clj
    │   ├── ex2_23.clj
    │   ├── ex2_24.clj
    │   ├── ex2_25.clj
    │   ├── ex2_26.clj
    │   ├── ex2_27.clj
    │   ├── ex2_28.clj
    │   ├── ex2_29.clj
    │   ├── ex2_29_group.clj
    │   ├── ex2_30.clj
    │   ├── ex2_31.clj
    │   ├── ex2_32.clj
    │   ├── ex2_33.clj
    │   ├── ex2_34.clj
    │   ├── ex2_35.clj
    │   ├── ex2_36.clj
    │   ├── ex2_37.clj
    │   ├── ex2_38.clj
    │   └── ex2_39.clj
├── test
    └── ch4
    │   ├── environment_test.clj
    │   └── scheme_test.clj
└── tools
    └── repl.sh


/README:
--------------------------------------------------------------------------------
1 | book: http://mitpress.mit.edu/sicp/full-text/book/book-Z-H-4.html#%_toc_start
2 | 
3 | 
4 | 


--------------------------------------------------------------------------------
/argfile.xml:
--------------------------------------------------------------------------------
1 |  <arg value = "sicp"/>
2 | 


--------------------------------------------------------------------------------
/build.xml:
--------------------------------------------------------------------------------
 1 | <?xml version="1.0" encoding="UTF-8"?>
 2 | <!-- You may freely edit this file. See commented blocks below for -->
 3 | <!-- some examples of how to customize the build. -->
 4 | <!-- (If you delete it and reopen the project it will be recreated.) -->
 5 | <!-- By default, only the Clean and Build commands use this build script. -->
 6 | <!-- Commands such as Run, Debug, and Test only use this build script if -->
 7 | <!-- the Compile on Save feature is turned off for the project. -->
 8 | <!-- You can turn off the Compile on Save (or Deploy on Save) setting -->
 9 | <!-- in the project's Project Properties dialog box.-->
10 | <!DOCTYPE project [
11 |        <!ENTITY argfile SYSTEM "./argfile.xml">
12 | ]>
13 | <project name="sicp" default="default" basedir=".">
14 | 
15 | 
16 |     <description>Builds, tests, and runs the project sicp.</description>
17 |     <import file="clojure-build.xml"/>
18 | 
19 | </project>
20 | 
21 | 


--------------------------------------------------------------------------------
/build/classes/default/core.clj:
--------------------------------------------------------------------------------
 1 | (comment
 2 | Sample clojure source file
 3 | )
 4 | (ns sicp
 5 |     (:gen-class))
 6 | 
 7 | (defn -main
 8 |     ([greetee]
 9 |   (println (str "Hello " greetee "!")))
10 |   ([] (-main "world")))
11 | 


--------------------------------------------------------------------------------
/clojure-build.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="UTF-8"?>
  2 | <!-- You may freely edit this file. See commented blocks below for -->
  3 | <!-- some examples of how to customize the build. -->
  4 | <!-- (If you delete it and reopen the project it will be recreated.) -->
  5 | <!-- By default, only the Clean and Build commands use this build script. -->
  6 | <!-- Commands such as Run, Debug, and Test only use this build script if -->
  7 | <!-- the Compile on Save feature is turned off for the project. -->
  8 | <!-- You can turn off the Compile on Save (or Deploy on Save) setting -->
  9 | <!-- in the project's Project Properties dialog box.-->
 10 | <!DOCTYPE project [
 11 |        <!ENTITY argfile SYSTEM "./argfile.xml">
 12 | ]>
 13 | 
 14 | <project name="clojure-build" default="default" basedir=".">
 15 | 
 16 | 
 17 |     <description>Builds, tests, and runs the project org.enclojure.ide.</description>
 18 |     <import file="nbproject/build-impl.xml"/>
 19 | 
 20 | 	 <!-- Begin Clojure ANT Tasks -->
 21 | 	  <property name="argfilename" location = "argfile.xml"/>
 22 | 
 23 |       <target name="clojure-init">
 24 | 	    <tstamp/>
 25 | 	    <mkdir dir="${build.classes.dir}"/>
 26 | 		<available file="${src.dir}" type="dir"
 27 | 	           property="java.files.present"/>
 28 | 	  </target>
 29 | 
 30 | 	  <target name="clojure-compile_java" depends="clojure-init" if="java.files.present"
 31 | 	            description="Compile Java sources.">
 32 | 	    <javac srcdir="${src.dir}" destdir="${build.classes.dir}" includeJavaRuntime="yes"
 33 | 	           debug="true" target="1.5"/>
 34 | 	  </target>
 35 | 
 36 | 	  <target name="clojure-prepare_clojure_compile" depends="clojure-compile_java"
 37 | 			description="prepares for clojure compiling">
 38 | 
 39 | 			<fileset dir="${src.dir}" id="project-files.clj">
 40 | 				<include name="**/*.clj"/>
 41 | 			</fileset>
 42 | 			<pathconvert pathsep="&#34; /> &#13;&#10;&lt;arg value = &#34;" property="cljfiles" refid="project-files.clj"/>
 43 | 			<delete file="${argfilename}"/>
 44 | 			<echo file="${argfilename}"> &lt;arg value = "${cljfiles}"/></echo>
 45 | 	        <replace file="${argfilename}"
 46 | 	                         token="${basedir}${file.separator}"
 47 | 	                         value=""
 48 |                              summary="yes"/>
 49 | 	        <replace file="${argfilename}"
 50 | 	                         token="${src.dir}${file.separator}"
 51 | 	                         value=""
 52 |                              summary="yes"/>
 53 | 	        <replace file="${argfilename}"
 54 | 	                         token="_"
 55 |                              value="-"
 56 |                              summary="yes"/>
 57 | 	        <replace file="${argfilename}"
 58 | 	                         token=".clj"
 59 | 	                         value=""
 60 |                              summary="yes"/>
 61 | 	        <replace file="${argfilename}"
 62 | 	                         token="${file.separator}"
 63 | 	                         value="."
 64 |                              summary="yes"/>
 65 | 	        <replace file="${argfilename}"
 66 | 	                         token=".>"
 67 | 	                         value="/>"
 68 |                              summary="yes"/>
 69 | 			<loadfile property="newargs" srcFile="${argfilename}"/>
 70 | <!--
 71 |             <echo>cljfiles = ${cljfiles}</echo>
 72 | 			<echo>src = ${src.dir}</echo>
 73 | 			<echo>NewArgs = ${newargs}</echo>
 74 | 			<echo>baseDir = ${basedir}</echo>
 75 | 			<echo>ant.file = ${ant.file}</echo>
 76 | 			<echo>src.dir = ${src.dir}</echo>
 77 | 			<echo>base.src = ${base.src}</echo>
 78 | 	        <echo>build.classes.dir = ${build.classes.dir}</echo>
 79 | -->
 80 | 	  </target>
 81 | 
 82 | 	<target name="clojure-compile_clojure" depends="clojure-prepare_clojure_compile"
 83 | 	          description="Compile clojure sources.">
 84 | 	    <java failonerror="true"
 85 |               classname="clojure.lang.Compile"
 86 | 	          classpath="build${file.separator}classes:${src.dir}:${javac.classpath}">
 87 | 	      <sysproperty key="clojure.compile.path" value="${build.classes.dir}"/>
 88 | 		  &argfile;
 89 | 	    </java>
 90 | 	  </target>
 91 | 
 92 | 	  <target name="clojure-jar" depends="clojure-compile_clojure"
 93 | 	          description="Create jar file.">
 94 | 	    <jar jarfile="${org_enclojure_repl_jar}" basedir="${build.classes.dir}">
 95 | 	      <fileset dir="${src.dir}" includes="**/*.clj"/>
 96 | 	      <manifest>
 97 | 	        <attribute name="Class-Path" value="."/>
 98 | 	      </manifest>
 99 | 	    </jar>
100 | 	  </target>
101 | 
102 | 	<target name="-post-compile" depends="clojure-compile_clojure" />
103 | 
104 | 	  <!-- End Clojure ANT Tasks -->
105 | 
106 |     <!--
107 | 
108 |     There exist several targets which are by default empty and which can be
109 |     used for execution of your tasks. These targets are usually executed
110 |     before and after some main targets. They are:
111 | 
112 |       -pre-init:                 called before initialization of project properties
113 |       -post-init:                called after initialization of project properties
114 |       -pre-compile:              called before javac compilation
115 |       -post-compile:             called after javac compilation
116 |       -pre-compile-single:       called before javac compilation of single file
117 |       -post-compile-single:      called after javac compilation of single file
118 |       -pre-compile-test:         called before javac compilation of JUnit tests
119 |       -post-compile-test:        called after javac compilation of JUnit tests
120 |       -pre-compile-test-single:  called before javac compilation of single JUnit test
121 |       -post-compile-test-single: called after javac compilation of single JUunit test
122 |       -pre-jar:                  called before JAR building
123 |       -post-jar:                 called after JAR building
124 |       -post-clean:               called after cleaning build products
125 | 
126 |     (Targets beginning with '-' are not intended to be called on their own.)
127 | 
128 |     Example of inserting an obfuscator after compilation could look like this:
129 | 
130 |         <target name="-post-compile">
131 |             <obfuscate>
132 |                 <fileset dir="${build.classes.dir}"/>
133 |             </obfuscate>
134 |         </target>
135 | 
136 |     For list of available properties check the imported
137 |     nbproject/build-impl.xml file.
138 | 
139 | 
140 |     Another way to customize the build is by overriding existing main targets.
141 |     The targets of interest are:
142 | 
143 |       -init-macrodef-javac:     defines macro for javac compilation
144 |       -init-macrodef-junit:     defines macro for junit execution
145 |       -init-macrodef-debug:     defines macro for class debugging
146 |       -init-macrodef-java:      defines macro for class execution
147 |       -do-jar-with-manifest:    JAR building (if you are using a manifest)
148 |       -do-jar-without-manifest: JAR building (if you are not using a manifest)
149 |       run:                      execution of project
150 |       -javadoc-build:           Javadoc generation
151 |       test-report:              JUnit report generation
152 | 
153 |     An example of overriding the target for project execution could look like this:
154 | 
155 |         <target name="run" depends="org.enclojure.ide-impl.jar">
156 |             <exec dir="bin" executable="launcher.exe">
157 |                 <arg file="${dist.jar}"/>
158 |             </exec>
159 |         </target>
160 | 
161 |     Notice that the overridden target depends on the jar target and not only on
162 |     the compile target as the regular run target does. Again, for a list of available
163 |     properties which you can use, check the target you are overriding in the
164 |     nbproject/build-impl.xml file.
165 | 
166 |     -->
167 | </project>
168 | 
169 | 


--------------------------------------------------------------------------------
/lib/clojure-1.1.0-alpha-SNAPSHOT.jar:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/deobald/sicp-clojure/fc24e5114604e7a0510dab779bbff962aac7ee7e/lib/clojure-1.1.0-alpha-SNAPSHOT.jar


--------------------------------------------------------------------------------
/lib/clojure-contrib.jar:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/deobald/sicp-clojure/fc24e5114604e7a0510dab779bbff962aac7ee7e/lib/clojure-contrib.jar


--------------------------------------------------------------------------------
/lib/jline-0.9.94.jar:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/deobald/sicp-clojure/fc24e5114604e7a0510dab779bbff962aac7ee7e/lib/jline-0.9.94.jar


--------------------------------------------------------------------------------
/manifest.mf:
--------------------------------------------------------------------------------
1 | Manifest-Version: 1.0
2 | X-COMMENT: Main-Class will be added automatically by build
3 | 
4 | 


--------------------------------------------------------------------------------
/nbproject/build-impl.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="UTF-8"?>
  2 | <!--
  3 | *** GENERATED FROM project.xml - DO NOT EDIT  ***
  4 | ***         EDIT ../build.xml INSTEAD         ***
  5 | 
  6 | For the purpose of easier reading the script
  7 | is divided into following sections:
  8 | 
  9 |   - initialization
 10 |   - compilation
 11 |   - jar
 12 |   - execution
 13 |   - debugging
 14 |   - javadoc
 15 |   - junit compilation
 16 |   - junit execution
 17 |   - junit debugging
 18 |   - applet
 19 |   - cleanup
 20 | 
 21 |         -->
 22 | <project xmlns:j2seproject1="http://www.netbeans.org/ns/j2se-project/1" xmlns:j2seproject3="http://www.netbeans.org/ns/j2se-project/3" xmlns:jaxrpc="http://www.netbeans.org/ns/j2se-project/jax-rpc" basedir=".." default="default" name="sicp-impl">
 23 |     <fail message="Please build using Ant 1.7.1 or higher.">
 24 |         <condition>
 25 |             <not>
 26 |                 <antversion atleast="1.7.1"/>
 27 |             </not>
 28 |         </condition>
 29 |     </fail>
 30 |     <target depends="test,jar,javadoc" description="Build and test whole project." name="default"/>
 31 |     <!-- 
 32 |                 ======================
 33 |                 INITIALIZATION SECTION 
 34 |                 ======================
 35 |             -->
 36 |     <target name="-pre-init">
 37 |         <!-- Empty placeholder for easier customization. -->
 38 |         <!-- You can override this target in the ../build.xml file. -->
 39 |     </target>
 40 |     <target depends="-pre-init" name="-init-private">
 41 |         <property file="nbproject/private/config.properties"/>
 42 |         <property file="nbproject/private/configs/${config}.properties"/>
 43 |         <property file="nbproject/private/private.properties"/>
 44 |     </target>
 45 |     <target depends="-pre-init,-init-private" name="-init-user">
 46 |         <property file="${user.properties.file}"/>
 47 |         <!-- The two properties below are usually overridden -->
 48 |         <!-- by the active platform. Just a fallback. -->
 49 |         <property name="default.javac.source" value="1.4"/>
 50 |         <property name="default.javac.target" value="1.4"/>
 51 |     </target>
 52 |     <target depends="-pre-init,-init-private,-init-user" name="-init-project">
 53 |         <property file="nbproject/configs/${config}.properties"/>
 54 |         <property file="nbproject/project.properties"/>
 55 |     </target>
 56 |     <target depends="-pre-init,-init-private,-init-user,-init-project,-init-macrodef-property" name="-do-init">
 57 |         <available file="${manifest.file}" property="manifest.available"/>
 58 |         <condition property="main.class.available">
 59 |             <and>
 60 |                 <isset property="main.class"/>
 61 |                 <not>
 62 |                     <equals arg1="${main.class}" arg2="" trim="true"/>
 63 |                 </not>
 64 |             </and>
 65 |         </condition>
 66 |         <condition property="manifest.available+main.class">
 67 |             <and>
 68 |                 <isset property="manifest.available"/>
 69 |                 <isset property="main.class.available"/>
 70 |             </and>
 71 |         </condition>
 72 |         <condition property="do.mkdist">
 73 |             <and>
 74 |                 <isset property="libs.CopyLibs.classpath"/>
 75 |                 <not>
 76 |                     <istrue value="${mkdist.disabled}"/>
 77 |                 </not>
 78 |             </and>
 79 |         </condition>
 80 |         <condition property="manifest.available+main.class+mkdist.available">
 81 |             <and>
 82 |                 <istrue value="${manifest.available+main.class}"/>
 83 |                 <isset property="do.mkdist"/>
 84 |             </and>
 85 |         </condition>
 86 |         <condition property="manifest.available+mkdist.available">
 87 |             <and>
 88 |                 <istrue value="${manifest.available}"/>
 89 |                 <isset property="do.mkdist"/>
 90 |             </and>
 91 |         </condition>
 92 |         <condition property="manifest.available-mkdist.available">
 93 |             <or>
 94 |                 <istrue value="${manifest.available}"/>
 95 |                 <isset property="do.mkdist"/>
 96 |             </or>
 97 |         </condition>
 98 |         <condition property="manifest.available+main.class-mkdist.available">
 99 |             <or>
100 |                 <istrue value="${manifest.available+main.class}"/>
101 |                 <isset property="do.mkdist"/>
102 |             </or>
103 |         </condition>
104 |         <condition property="have.tests">
105 |             <or>
106 |                 <available file="${test.src.dir}"/>
107 |             </or>
108 |         </condition>
109 |         <condition property="have.sources">
110 |             <or>
111 |                 <available file="${src.dir}"/>
112 |             </or>
113 |         </condition>
114 |         <condition property="netbeans.home+have.tests">
115 |             <and>
116 |                 <isset property="netbeans.home"/>
117 |                 <isset property="have.tests"/>
118 |             </and>
119 |         </condition>
120 |         <condition property="no.javadoc.preview">
121 |             <and>
122 |                 <isset property="javadoc.preview"/>
123 |                 <isfalse value="${javadoc.preview}"/>
124 |             </and>
125 |         </condition>
126 |         <property name="run.jvmargs" value=""/>
127 |         <property name="javac.compilerargs" value=""/>
128 |         <property name="work.dir" value="${basedir}"/>
129 |         <condition property="no.deps">
130 |             <and>
131 |                 <istrue value="${no.dependencies}"/>
132 |             </and>
133 |         </condition>
134 |         <property name="javac.debug" value="true"/>
135 |         <property name="javadoc.preview" value="true"/>
136 |         <property name="application.args" value=""/>
137 |         <property name="source.encoding" value="${file.encoding}"/>
138 |         <property name="runtime.encoding" value="${source.encoding}"/>
139 |         <condition property="javadoc.encoding.used" value="${javadoc.encoding}">
140 |             <and>
141 |                 <isset property="javadoc.encoding"/>
142 |                 <not>
143 |                     <equals arg1="${javadoc.encoding}" arg2=""/>
144 |                 </not>
145 |             </and>
146 |         </condition>
147 |         <property name="javadoc.encoding.used" value="${source.encoding}"/>
148 |         <property name="includes" value="**"/>
149 |         <property name="excludes" value=""/>
150 |         <property name="do.depend" value="false"/>
151 |         <condition property="do.depend.true">
152 |             <istrue value="${do.depend}"/>
153 |         </condition>
154 |         <path id="endorsed.classpath.path" path="${endorsed.classpath}"/>
155 |         <condition else="" property="endorsed.classpath.cmd.line.arg" value="-Xbootclasspath/p:'${toString:endorsed.classpath.path}'">
156 |             <length length="0" string="${endorsed.classpath}" when="greater"/>
157 |         </condition>
158 |         <property name="javac.fork" value="false"/>
159 |     </target>
160 |     <target name="-post-init">
161 |         <!-- Empty placeholder for easier customization. -->
162 |         <!-- You can override this target in the ../build.xml file. -->
163 |     </target>
164 |     <target depends="-pre-init,-init-private,-init-user,-init-project,-do-init" name="-init-check">
165 |         <fail unless="src.dir">Must set src.dir</fail>
166 |         <fail unless="test.src.dir">Must set test.src.dir</fail>
167 |         <fail unless="build.dir">Must set build.dir</fail>
168 |         <fail unless="dist.dir">Must set dist.dir</fail>
169 |         <fail unless="build.classes.dir">Must set build.classes.dir</fail>
170 |         <fail unless="dist.javadoc.dir">Must set dist.javadoc.dir</fail>
171 |         <fail unless="build.test.classes.dir">Must set build.test.classes.dir</fail>
172 |         <fail unless="build.test.results.dir">Must set build.test.results.dir</fail>
173 |         <fail unless="build.classes.excludes">Must set build.classes.excludes</fail>
174 |         <fail unless="dist.jar">Must set dist.jar</fail>
175 |     </target>
176 |     <target name="-init-macrodef-property">
177 |         <macrodef name="property" uri="http://www.netbeans.org/ns/j2se-project/1">
178 |             <attribute name="name"/>
179 |             <attribute name="value"/>
180 |             <sequential>
181 |                 <property name="@{name}" value="${@{value}}"/>
182 |             </sequential>
183 |         </macrodef>
184 |     </target>
185 |     <target name="-init-macrodef-javac">
186 |         <macrodef name="javac" uri="http://www.netbeans.org/ns/j2se-project/3">
187 |             <attribute default="${src.dir}" name="srcdir"/>
188 |             <attribute default="${build.classes.dir}" name="destdir"/>
189 |             <attribute default="${javac.classpath}" name="classpath"/>
190 |             <attribute default="${includes}" name="includes"/>
191 |             <attribute default="${excludes}" name="excludes"/>
192 |             <attribute default="${javac.debug}" name="debug"/>
193 |             <attribute default="${empty.dir}" name="sourcepath"/>
194 |             <attribute default="${empty.dir}" name="gensrcdir"/>
195 |             <element name="customize" optional="true"/>
196 |             <sequential>
197 |                 <property location="${build.dir}/empty" name="empty.dir"/>
198 |                 <mkdir dir="${empty.dir}"/>
199 |                 <javac debug="@{debug}" deprecation="${javac.deprecation}" destdir="@{destdir}" encoding="${source.encoding}" excludes="@{excludes}" fork="${javac.fork}" includeantruntime="false" includes="@{includes}" source="${javac.source}" sourcepath="@{sourcepath}" srcdir="@{srcdir}" target="${javac.target}" tempdir="${java.io.tmpdir}">
200 |                     <src>
201 |                         <dirset dir="@{gensrcdir}" erroronmissingdir="false">
202 |                             <include name="*"/>
203 |                         </dirset>
204 |                     </src>
205 |                     <classpath>
206 |                         <path path="@{classpath}"/>
207 |                     </classpath>
208 |                     <compilerarg line="${endorsed.classpath.cmd.line.arg}"/>
209 |                     <compilerarg line="${javac.compilerargs}"/>
210 |                     <customize/>
211 |                 </javac>
212 |             </sequential>
213 |         </macrodef>
214 |         <macrodef name="depend" uri="http://www.netbeans.org/ns/j2se-project/3">
215 |             <attribute default="${src.dir}" name="srcdir"/>
216 |             <attribute default="${build.classes.dir}" name="destdir"/>
217 |             <attribute default="${javac.classpath}" name="classpath"/>
218 |             <sequential>
219 |                 <depend cache="${build.dir}/depcache" destdir="@{destdir}" excludes="${excludes}" includes="${includes}" srcdir="@{srcdir}">
220 |                     <classpath>
221 |                         <path path="@{classpath}"/>
222 |                     </classpath>
223 |                 </depend>
224 |             </sequential>
225 |         </macrodef>
226 |         <macrodef name="force-recompile" uri="http://www.netbeans.org/ns/j2se-project/3">
227 |             <attribute default="${build.classes.dir}" name="destdir"/>
228 |             <sequential>
229 |                 <fail unless="javac.includes">Must set javac.includes</fail>
230 |                 <pathconvert pathsep="," property="javac.includes.binary">
231 |                     <path>
232 |                         <filelist dir="@{destdir}" files="${javac.includes}"/>
233 |                     </path>
234 |                     <globmapper from="*.java" to="*.class"/>
235 |                 </pathconvert>
236 |                 <delete>
237 |                     <files includes="${javac.includes.binary}"/>
238 |                 </delete>
239 |             </sequential>
240 |         </macrodef>
241 |     </target>
242 |     <target name="-init-macrodef-junit">
243 |         <macrodef name="junit" uri="http://www.netbeans.org/ns/j2se-project/3">
244 |             <attribute default="${includes}" name="includes"/>
245 |             <attribute default="${excludes}" name="excludes"/>
246 |             <attribute default="**" name="testincludes"/>
247 |             <sequential>
248 |                 <junit dir="${work.dir}" errorproperty="tests.failed" failureproperty="tests.failed" fork="true" showoutput="true" tempdir="${build.dir}">
249 |                     <batchtest todir="${build.test.results.dir}">
250 |                         <fileset dir="${test.src.dir}" excludes="@{excludes},${excludes}" includes="@{includes}">
251 |                             <filename name="@{testincludes}"/>
252 |                         </fileset>
253 |                     </batchtest>
254 |                     <classpath>
255 |                         <path path="${run.test.classpath}"/>
256 |                     </classpath>
257 |                     <syspropertyset>
258 |                         <propertyref prefix="test-sys-prop."/>
259 |                         <mapper from="test-sys-prop.*" to="*" type="glob"/>
260 |                     </syspropertyset>
261 |                     <formatter type="brief" usefile="false"/>
262 |                     <formatter type="xml"/>
263 |                     <jvmarg line="${endorsed.classpath.cmd.line.arg}"/>
264 |                     <jvmarg line="${run.jvmargs}"/>
265 |                 </junit>
266 |             </sequential>
267 |         </macrodef>
268 |     </target>
269 |     <target depends="-init-debug-args" name="-init-macrodef-nbjpda">
270 |         <macrodef name="nbjpdastart" uri="http://www.netbeans.org/ns/j2se-project/1">
271 |             <attribute default="${main.class}" name="name"/>
272 |             <attribute default="${debug.classpath}" name="classpath"/>
273 |             <attribute default="" name="stopclassname"/>
274 |             <sequential>
275 |                 <nbjpdastart addressproperty="jpda.address" name="@{name}" stopclassname="@{stopclassname}" transport="${debug-transport}">
276 |                     <classpath>
277 |                         <path path="@{classpath}"/>
278 |                     </classpath>
279 |                 </nbjpdastart>
280 |             </sequential>
281 |         </macrodef>
282 |         <macrodef name="nbjpdareload" uri="http://www.netbeans.org/ns/j2se-project/1">
283 |             <attribute default="${build.classes.dir}" name="dir"/>
284 |             <sequential>
285 |                 <nbjpdareload>
286 |                     <fileset dir="@{dir}" includes="${fix.classes}">
287 |                         <include name="${fix.includes}*.class"/>
288 |                     </fileset>
289 |                 </nbjpdareload>
290 |             </sequential>
291 |         </macrodef>
292 |     </target>
293 |     <target name="-init-debug-args">
294 |         <property name="version-output" value="java version &quot;${ant.java.version}"/>
295 |         <condition property="have-jdk-older-than-1.4">
296 |             <or>
297 |                 <contains string="${version-output}" substring="java version &quot;1.0"/>
298 |                 <contains string="${version-output}" substring="java version &quot;1.1"/>
299 |                 <contains string="${version-output}" substring="java version &quot;1.2"/>
300 |                 <contains string="${version-output}" substring="java version &quot;1.3"/>
301 |             </or>
302 |         </condition>
303 |         <condition else="-Xdebug" property="debug-args-line" value="-Xdebug -Xnoagent -Djava.compiler=none">
304 |             <istrue value="${have-jdk-older-than-1.4}"/>
305 |         </condition>
306 |         <condition else="dt_socket" property="debug-transport-by-os" value="dt_shmem">
307 |             <os family="windows"/>
308 |         </condition>
309 |         <condition else="${debug-transport-by-os}" property="debug-transport" value="${debug.transport}">
310 |             <isset property="debug.transport"/>
311 |         </condition>
312 |     </target>
313 |     <target depends="-init-debug-args" name="-init-macrodef-debug">
314 |         <macrodef name="debug" uri="http://www.netbeans.org/ns/j2se-project/3">
315 |             <attribute default="${main.class}" name="classname"/>
316 |             <attribute default="${debug.classpath}" name="classpath"/>
317 |             <element name="customize" optional="true"/>
318 |             <sequential>
319 |                 <java classname="@{classname}" dir="${work.dir}" fork="true">
320 |                     <jvmarg line="${endorsed.classpath.cmd.line.arg}"/>
321 |                     <jvmarg line="${debug-args-line}"/>
322 |                     <jvmarg value="-Xrunjdwp:transport=${debug-transport},address=${jpda.address}"/>
323 |                     <jvmarg value="-Dfile.encoding=${runtime.encoding}"/>
324 |                     <redirector errorencoding="${runtime.encoding}" inputencoding="${runtime.encoding}" outputencoding="${runtime.encoding}"/>
325 |                     <jvmarg line="${run.jvmargs}"/>
326 |                     <classpath>
327 |                         <path path="@{classpath}"/>
328 |                     </classpath>
329 |                     <syspropertyset>
330 |                         <propertyref prefix="run-sys-prop."/>
331 |                         <mapper from="run-sys-prop.*" to="*" type="glob"/>
332 |                     </syspropertyset>
333 |                     <customize/>
334 |                 </java>
335 |             </sequential>
336 |         </macrodef>
337 |     </target>
338 |     <target name="-init-macrodef-java">
339 |         <macrodef name="java" uri="http://www.netbeans.org/ns/j2se-project/1">
340 |             <attribute default="${main.class}" name="classname"/>
341 |             <attribute default="${run.classpath}" name="classpath"/>
342 |             <element name="customize" optional="true"/>
343 |             <sequential>
344 |                 <java classname="@{classname}" dir="${work.dir}" fork="true">
345 |                     <jvmarg line="${endorsed.classpath.cmd.line.arg}"/>
346 |                     <jvmarg value="-Dfile.encoding=${runtime.encoding}"/>
347 |                     <redirector errorencoding="${runtime.encoding}" inputencoding="${runtime.encoding}" outputencoding="${runtime.encoding}"/>
348 |                     <jvmarg line="${run.jvmargs}"/>
349 |                     <classpath>
350 |                         <path path="@{classpath}"/>
351 |                     </classpath>
352 |                     <syspropertyset>
353 |                         <propertyref prefix="run-sys-prop."/>
354 |                         <mapper from="run-sys-prop.*" to="*" type="glob"/>
355 |                     </syspropertyset>
356 |                     <customize/>
357 |                 </java>
358 |             </sequential>
359 |         </macrodef>
360 |     </target>
361 |     <target name="-init-presetdef-jar">
362 |         <presetdef name="jar" uri="http://www.netbeans.org/ns/j2se-project/1">
363 |             <jar compress="${jar.compress}" jarfile="${dist.jar}">
364 |                 <j2seproject1:fileset dir="${build.classes.dir}"/>
365 |             </jar>
366 |         </presetdef>
367 |     </target>
368 |     <target depends="-pre-init,-init-private,-init-user,-init-project,-do-init,-post-init,-init-check,-init-macrodef-property,-init-macrodef-javac,-init-macrodef-junit,-init-macrodef-nbjpda,-init-macrodef-debug,-init-macrodef-java,-init-presetdef-jar" name="init"/>
369 |     <!--
370 |                 ===================
371 |                 COMPILATION SECTION
372 |                 ===================
373 |             -->
374 |     <target name="-deps-jar-init" unless="built-jar.properties">
375 |         <property location="${build.dir}/built-jar.properties" name="built-jar.properties"/>
376 |         <delete file="${built-jar.properties}" quiet="true"/>
377 |     </target>
378 |     <target if="already.built.jar.${basedir}" name="-warn-already-built-jar">
379 |         <echo level="warn" message="Cycle detected: sicp was already built"/>
380 |     </target>
381 |     <target depends="init,-deps-jar-init" name="deps-jar" unless="no.deps">
382 |         <mkdir dir="${build.dir}"/>
383 |         <touch file="${built-jar.properties}" verbose="false"/>
384 |         <property file="${built-jar.properties}" prefix="already.built.jar."/>
385 |         <antcall target="-warn-already-built-jar"/>
386 |         <propertyfile file="${built-jar.properties}">
387 |             <entry key="${basedir}" value=""/>
388 |         </propertyfile>
389 |     </target>
390 |     <target depends="init,-check-automatic-build,-clean-after-automatic-build" name="-verify-automatic-build"/>
391 |     <target depends="init" name="-check-automatic-build">
392 |         <available file="${build.classes.dir}/.netbeans_automatic_build" property="netbeans.automatic.build"/>
393 |     </target>
394 |     <target depends="init" if="netbeans.automatic.build" name="-clean-after-automatic-build">
395 |         <antcall target="clean"/>
396 |     </target>
397 |     <target depends="init,deps-jar" name="-pre-pre-compile">
398 |         <mkdir dir="${build.classes.dir}"/>
399 |     </target>
400 |     <target name="-pre-compile">
401 |         <!-- Empty placeholder for easier customization. -->
402 |         <!-- You can override this target in the ../build.xml file. -->
403 |     </target>
404 |     <target if="do.depend.true" name="-compile-depend">
405 |         <pathconvert property="build.generated.subdirs">
406 |             <dirset dir="${build.generated.sources.dir}" erroronmissingdir="false">
407 |                 <include name="*"/>
408 |             </dirset>
409 |         </pathconvert>
410 |         <j2seproject3:depend srcdir="${src.dir}:${build.generated.subdirs}"/>
411 |     </target>
412 |     <target depends="init,deps-jar,-pre-pre-compile,-pre-compile,-compile-depend" if="have.sources" name="-do-compile">
413 |         <j2seproject3:javac gensrcdir="${build.generated.sources.dir}"/>
414 |         <copy todir="${build.classes.dir}">
415 |             <fileset dir="${src.dir}" excludes="${build.classes.excludes},${excludes}" includes="${includes}"/>
416 |         </copy>
417 |     </target>
418 |     <target name="-post-compile">
419 |         <!-- Empty placeholder for easier customization. -->
420 |         <!-- You can override this target in the ../build.xml file. -->
421 |     </target>
422 |     <target depends="init,deps-jar,-verify-automatic-build,-pre-pre-compile,-pre-compile,-do-compile,-post-compile" description="Compile project." name="compile"/>
423 |     <target name="-pre-compile-single">
424 |         <!-- Empty placeholder for easier customization. -->
425 |         <!-- You can override this target in the ../build.xml file. -->
426 |     </target>
427 |     <target depends="init,deps-jar,-pre-pre-compile" name="-do-compile-single">
428 |         <fail unless="javac.includes">Must select some files in the IDE or set javac.includes</fail>
429 |         <j2seproject3:force-recompile/>
430 |         <j2seproject3:javac excludes="" gensrcdir="${build.generated.sources.dir}" includes="${javac.includes}" sourcepath="${src.dir}"/>
431 |     </target>
432 |     <target name="-post-compile-single">
433 |         <!-- Empty placeholder for easier customization. -->
434 |         <!-- You can override this target in the ../build.xml file. -->
435 |     </target>
436 |     <target depends="init,deps-jar,-verify-automatic-build,-pre-pre-compile,-pre-compile-single,-do-compile-single,-post-compile-single" name="compile-single"/>
437 |     <!--
438 |                 ====================
439 |                 JAR BUILDING SECTION
440 |                 ====================
441 |             -->
442 |     <target depends="init" name="-pre-pre-jar">
443 |         <dirname file="${dist.jar}" property="dist.jar.dir"/>
444 |         <mkdir dir="${dist.jar.dir}"/>
445 |     </target>
446 |     <target name="-pre-jar">
447 |         <!-- Empty placeholder for easier customization. -->
448 |         <!-- You can override this target in the ../build.xml file. -->
449 |     </target>
450 |     <target depends="init,compile,-pre-pre-jar,-pre-jar" name="-do-jar-without-manifest" unless="manifest.available-mkdist.available">
451 |         <j2seproject1:jar/>
452 |     </target>
453 |     <target depends="init,compile,-pre-pre-jar,-pre-jar" if="manifest.available" name="-do-jar-with-manifest" unless="manifest.available+main.class-mkdist.available">
454 |         <j2seproject1:jar manifest="${manifest.file}"/>
455 |     </target>
456 |     <target depends="init,compile,-pre-pre-jar,-pre-jar" if="manifest.available+main.class" name="-do-jar-with-mainclass" unless="manifest.available+main.class+mkdist.available">
457 |         <j2seproject1:jar manifest="${manifest.file}">
458 |             <j2seproject1:manifest>
459 |                 <j2seproject1:attribute name="Main-Class" value="${main.class}"/>
460 |             </j2seproject1:manifest>
461 |         </j2seproject1:jar>
462 |         <echo>To run this application from the command line without Ant, try:</echo>
463 |         <property location="${build.classes.dir}" name="build.classes.dir.resolved"/>
464 |         <property location="${dist.jar}" name="dist.jar.resolved"/>
465 |         <pathconvert property="run.classpath.with.dist.jar">
466 |             <path path="${run.classpath}"/>
467 |             <map from="${build.classes.dir.resolved}" to="${dist.jar.resolved}"/>
468 |         </pathconvert>
469 |         <echo>java -cp "${run.classpath.with.dist.jar}" ${main.class}</echo>
470 |     </target>
471 |     <target depends="init,compile,-pre-pre-jar,-pre-jar" if="manifest.available+main.class+mkdist.available" name="-do-jar-with-libraries">
472 |         <property location="${build.classes.dir}" name="build.classes.dir.resolved"/>
473 |         <pathconvert property="run.classpath.without.build.classes.dir">
474 |             <path path="${run.classpath}"/>
475 |             <map from="${build.classes.dir.resolved}" to=""/>
476 |         </pathconvert>
477 |         <pathconvert pathsep=" " property="jar.classpath">
478 |             <path path="${run.classpath.without.build.classes.dir}"/>
479 |             <chainedmapper>
480 |                 <flattenmapper/>
481 |                 <globmapper from="*" to="lib/*"/>
482 |             </chainedmapper>
483 |         </pathconvert>
484 |         <taskdef classname="org.netbeans.modules.java.j2seproject.copylibstask.CopyLibs" classpath="${libs.CopyLibs.classpath}" name="copylibs"/>
485 |         <copylibs compress="${jar.compress}" jarfile="${dist.jar}" manifest="${manifest.file}" runtimeclasspath="${run.classpath.without.build.classes.dir}">
486 |             <fileset dir="${build.classes.dir}"/>
487 |             <manifest>
488 |                 <attribute name="Main-Class" value="${main.class}"/>
489 |                 <attribute name="Class-Path" value="${jar.classpath}"/>
490 |             </manifest>
491 |         </copylibs>
492 |         <echo>To run this application from the command line without Ant, try:</echo>
493 |         <property location="${dist.jar}" name="dist.jar.resolved"/>
494 |         <echo>java -jar "${dist.jar.resolved}"</echo>
495 |     </target>
496 |     <target depends="init,compile,-pre-pre-jar,-pre-jar" if="manifest.available+mkdist.available" name="-do-jar-with-libraries-without-mainclass" unless="main.class.available">
497 |         <property location="${build.classes.dir}" name="build.classes.dir.resolved"/>
498 |         <pathconvert property="run.classpath.without.build.classes.dir">
499 |             <path path="${run.classpath}"/>
500 |             <map from="${build.classes.dir.resolved}" to=""/>
501 |         </pathconvert>
502 |         <pathconvert pathsep=" " property="jar.classpath">
503 |             <path path="${run.classpath.without.build.classes.dir}"/>
504 |             <chainedmapper>
505 |                 <flattenmapper/>
506 |                 <globmapper from="*" to="lib/*"/>
507 |             </chainedmapper>
508 |         </pathconvert>
509 |         <taskdef classname="org.netbeans.modules.java.j2seproject.copylibstask.CopyLibs" classpath="${libs.CopyLibs.classpath}" name="copylibs"/>
510 |         <copylibs compress="${jar.compress}" jarfile="${dist.jar}" manifest="${manifest.file}" runtimeclasspath="${run.classpath.without.build.classes.dir}">
511 |             <fileset dir="${build.classes.dir}"/>
512 |             <manifest>
513 |                 <attribute name="Class-Path" value="${jar.classpath}"/>
514 |             </manifest>
515 |         </copylibs>
516 |     </target>
517 |     <target depends="init,compile,-pre-pre-jar,-pre-jar" if="do.mkdist" name="-do-jar-with-libraries-without-manifest" unless="manifest.available">
518 |         <property location="${build.classes.dir}" name="build.classes.dir.resolved"/>
519 |         <pathconvert property="run.classpath.without.build.classes.dir">
520 |             <path path="${run.classpath}"/>
521 |             <map from="${build.classes.dir.resolved}" to=""/>
522 |         </pathconvert>
523 |         <pathconvert pathsep=" " property="jar.classpath">
524 |             <path path="${run.classpath.without.build.classes.dir}"/>
525 |             <chainedmapper>
526 |                 <flattenmapper/>
527 |                 <globmapper from="*" to="lib/*"/>
528 |             </chainedmapper>
529 |         </pathconvert>
530 |         <taskdef classname="org.netbeans.modules.java.j2seproject.copylibstask.CopyLibs" classpath="${libs.CopyLibs.classpath}" name="copylibs"/>
531 |         <copylibs compress="${jar.compress}" jarfile="${dist.jar}" runtimeclasspath="${run.classpath.without.build.classes.dir}">
532 |             <fileset dir="${build.classes.dir}"/>
533 |             <manifest>
534 |                 <attribute name="Class-Path" value="${jar.classpath}"/>
535 |             </manifest>
536 |         </copylibs>
537 |     </target>
538 |     <target name="-post-jar">
539 |         <!-- Empty placeholder for easier customization. -->
540 |         <!-- You can override this target in the ../build.xml file. -->
541 |     </target>
542 |     <target depends="init,compile,-pre-jar,-do-jar-with-manifest,-do-jar-without-manifest,-do-jar-with-mainclass,-do-jar-with-libraries,-do-jar-with-libraries-without-mainclass,-do-jar-with-libraries-without-manifest,-post-jar" description="Build JAR." name="jar"/>
543 |     <!--
544 |                 =================
545 |                 EXECUTION SECTION
546 |                 =================
547 |             -->
548 |     <target depends="init,compile" description="Run a main class." name="run">
549 |         <j2seproject1:java>
550 |             <customize>
551 |                 <arg line="${application.args}"/>
552 |             </customize>
553 |         </j2seproject1:java>
554 |     </target>
555 |     <target name="-do-not-recompile">
556 |         <property name="javac.includes.binary" value=""/>
557 |     </target>
558 |     <target depends="init,compile-single" name="run-single">
559 |         <fail unless="run.class">Must select one file in the IDE or set run.class</fail>
560 |         <j2seproject1:java classname="${run.class}"/>
561 |     </target>
562 |     <target depends="init,compile-test-single" name="run-test-with-main">
563 |         <fail unless="run.class">Must select one file in the IDE or set run.class</fail>
564 |         <j2seproject1:java classname="${run.class}" classpath="${run.test.classpath}"/>
565 |     </target>
566 |     <!--
567 |                 =================
568 |                 DEBUGGING SECTION
569 |                 =================
570 |             -->
571 |     <target depends="init" if="netbeans.home" name="-debug-start-debugger">
572 |         <j2seproject1:nbjpdastart name="${debug.class}"/>
573 |     </target>
574 |     <target depends="init" if="netbeans.home" name="-debug-start-debugger-main-test">
575 |         <j2seproject1:nbjpdastart classpath="${debug.test.classpath}" name="${debug.class}"/>
576 |     </target>
577 |     <target depends="init,compile" name="-debug-start-debuggee">
578 |         <j2seproject3:debug>
579 |             <customize>
580 |                 <arg line="${application.args}"/>
581 |             </customize>
582 |         </j2seproject3:debug>
583 |     </target>
584 |     <target depends="init,compile,-debug-start-debugger,-debug-start-debuggee" description="Debug project in IDE." if="netbeans.home" name="debug"/>
585 |     <target depends="init" if="netbeans.home" name="-debug-start-debugger-stepinto">
586 |         <j2seproject1:nbjpdastart stopclassname="${main.class}"/>
587 |     </target>
588 |     <target depends="init,compile,-debug-start-debugger-stepinto,-debug-start-debuggee" if="netbeans.home" name="debug-stepinto"/>
589 |     <target depends="init,compile-single" if="netbeans.home" name="-debug-start-debuggee-single">
590 |         <fail unless="debug.class">Must select one file in the IDE or set debug.class</fail>
591 |         <j2seproject3:debug classname="${debug.class}"/>
592 |     </target>
593 |     <target depends="init,compile-single,-debug-start-debugger,-debug-start-debuggee-single" if="netbeans.home" name="debug-single"/>
594 |     <target depends="init,compile-test-single" if="netbeans.home" name="-debug-start-debuggee-main-test">
595 |         <fail unless="debug.class">Must select one file in the IDE or set debug.class</fail>
596 |         <j2seproject3:debug classname="${debug.class}" classpath="${debug.test.classpath}"/>
597 |     </target>
598 |     <target depends="init,compile-test-single,-debug-start-debugger-main-test,-debug-start-debuggee-main-test" if="netbeans.home" name="debug-test-with-main"/>
599 |     <target depends="init" name="-pre-debug-fix">
600 |         <fail unless="fix.includes">Must set fix.includes</fail>
601 |         <property name="javac.includes" value="${fix.includes}.java"/>
602 |     </target>
603 |     <target depends="init,-pre-debug-fix,compile-single" if="netbeans.home" name="-do-debug-fix">
604 |         <j2seproject1:nbjpdareload/>
605 |     </target>
606 |     <target depends="init,-pre-debug-fix,-do-debug-fix" if="netbeans.home" name="debug-fix"/>
607 |     <!--
608 |                 ===============
609 |                 JAVADOC SECTION
610 |                 ===============
611 |             -->
612 |     <target depends="init" name="-javadoc-build">
613 |         <mkdir dir="${dist.javadoc.dir}"/>
614 |         <javadoc additionalparam="${javadoc.additionalparam}" author="${javadoc.author}" charset="UTF-8" destdir="${dist.javadoc.dir}" docencoding="UTF-8" encoding="${javadoc.encoding.used}" failonerror="true" noindex="${javadoc.noindex}" nonavbar="${javadoc.nonavbar}" notree="${javadoc.notree}" private="${javadoc.private}" source="${javac.source}" splitindex="${javadoc.splitindex}" use="${javadoc.use}" useexternalfile="true" version="${javadoc.version}" windowtitle="${javadoc.windowtitle}">
615 |             <classpath>
616 |                 <path path="${javac.classpath}"/>
617 |             </classpath>
618 |             <fileset dir="${src.dir}" excludes="${excludes}" includes="${includes}">
619 |                 <filename name="**/*.java"/>
620 |             </fileset>
621 |             <fileset dir="${build.generated.sources.dir}" erroronmissingdir="false">
622 |                 <include name="**/*.java"/>
623 |             </fileset>
624 |         </javadoc>
625 |     </target>
626 |     <target depends="init,-javadoc-build" if="netbeans.home" name="-javadoc-browse" unless="no.javadoc.preview">
627 |         <nbbrowse file="${dist.javadoc.dir}/index.html"/>
628 |     </target>
629 |     <target depends="init,-javadoc-build,-javadoc-browse" description="Build Javadoc." name="javadoc"/>
630 |     <!--
631 |                 =========================
632 |                 JUNIT COMPILATION SECTION
633 |                 =========================
634 |             -->
635 |     <target depends="init,compile" if="have.tests" name="-pre-pre-compile-test">
636 |         <mkdir dir="${build.test.classes.dir}"/>
637 |     </target>
638 |     <target name="-pre-compile-test">
639 |         <!-- Empty placeholder for easier customization. -->
640 |         <!-- You can override this target in the ../build.xml file. -->
641 |     </target>
642 |     <target if="do.depend.true" name="-compile-test-depend">
643 |         <j2seproject3:depend classpath="${javac.test.classpath}" destdir="${build.test.classes.dir}" srcdir="${test.src.dir}"/>
644 |     </target>
645 |     <target depends="init,compile,-pre-pre-compile-test,-pre-compile-test,-compile-test-depend" if="have.tests" name="-do-compile-test">
646 |         <j2seproject3:javac classpath="${javac.test.classpath}" debug="true" destdir="${build.test.classes.dir}" srcdir="${test.src.dir}"/>
647 |         <copy todir="${build.test.classes.dir}">
648 |             <fileset dir="${test.src.dir}" excludes="${build.classes.excludes},${excludes}" includes="${includes}"/>
649 |         </copy>
650 |     </target>
651 |     <target name="-post-compile-test">
652 |         <!-- Empty placeholder for easier customization. -->
653 |         <!-- You can override this target in the ../build.xml file. -->
654 |     </target>
655 |     <target depends="init,compile,-pre-pre-compile-test,-pre-compile-test,-do-compile-test,-post-compile-test" name="compile-test"/>
656 |     <target name="-pre-compile-test-single">
657 |         <!-- Empty placeholder for easier customization. -->
658 |         <!-- You can override this target in the ../build.xml file. -->
659 |     </target>
660 |     <target depends="init,compile,-pre-pre-compile-test,-pre-compile-test-single" if="have.tests" name="-do-compile-test-single">
661 |         <fail unless="javac.includes">Must select some files in the IDE or set javac.includes</fail>
662 |         <j2seproject3:force-recompile destdir="${build.test.classes.dir}"/>
663 |         <j2seproject3:javac classpath="${javac.test.classpath}" debug="true" destdir="${build.test.classes.dir}" excludes="" includes="${javac.includes}" sourcepath="${test.src.dir}" srcdir="${test.src.dir}"/>
664 |         <copy todir="${build.test.classes.dir}">
665 |             <fileset dir="${test.src.dir}" excludes="${build.classes.excludes},${excludes}" includes="${includes}"/>
666 |         </copy>
667 |     </target>
668 |     <target name="-post-compile-test-single">
669 |         <!-- Empty placeholder for easier customization. -->
670 |         <!-- You can override this target in the ../build.xml file. -->
671 |     </target>
672 |     <target depends="init,compile,-pre-pre-compile-test,-pre-compile-test-single,-do-compile-test-single,-post-compile-test-single" name="compile-test-single"/>
673 |     <!--
674 |                 =======================
675 |                 JUNIT EXECUTION SECTION
676 |                 =======================
677 |             -->
678 |     <target depends="init" if="have.tests" name="-pre-test-run">
679 |         <mkdir dir="${build.test.results.dir}"/>
680 |     </target>
681 |     <target depends="init,compile-test,-pre-test-run" if="have.tests" name="-do-test-run">
682 |         <j2seproject3:junit testincludes="**/*Test.java"/>
683 |     </target>
684 |     <target depends="init,compile-test,-pre-test-run,-do-test-run" if="have.tests" name="-post-test-run">
685 |         <fail if="tests.failed" unless="ignore.failing.tests">Some tests failed; see details above.</fail>
686 |     </target>
687 |     <target depends="init" if="have.tests" name="test-report"/>
688 |     <target depends="init" if="netbeans.home+have.tests" name="-test-browse"/>
689 |     <target depends="init,compile-test,-pre-test-run,-do-test-run,test-report,-post-test-run,-test-browse" description="Run unit tests." name="test"/>
690 |     <target depends="init" if="have.tests" name="-pre-test-run-single">
691 |         <mkdir dir="${build.test.results.dir}"/>
692 |     </target>
693 |     <target depends="init,compile-test-single,-pre-test-run-single" if="have.tests" name="-do-test-run-single">
694 |         <fail unless="test.includes">Must select some files in the IDE or set test.includes</fail>
695 |         <j2seproject3:junit excludes="" includes="${test.includes}"/>
696 |     </target>
697 |     <target depends="init,compile-test-single,-pre-test-run-single,-do-test-run-single" if="have.tests" name="-post-test-run-single">
698 |         <fail if="tests.failed" unless="ignore.failing.tests">Some tests failed; see details above.</fail>
699 |     </target>
700 |     <target depends="init,compile-test-single,-pre-test-run-single,-do-test-run-single,-post-test-run-single" description="Run single unit test." name="test-single"/>
701 |     <!--
702 |                 =======================
703 |                 JUNIT DEBUGGING SECTION
704 |                 =======================
705 |             -->
706 |     <target depends="init,compile-test" if="have.tests" name="-debug-start-debuggee-test">
707 |         <fail unless="test.class">Must select one file in the IDE or set test.class</fail>
708 |         <property location="${build.test.results.dir}/TEST-${test.class}.xml" name="test.report.file"/>
709 |         <delete file="${test.report.file}"/>
710 |         <mkdir dir="${build.test.results.dir}"/>
711 |         <j2seproject3:debug classname="org.apache.tools.ant.taskdefs.optional.junit.JUnitTestRunner" classpath="${ant.home}/lib/ant.jar:${ant.home}/lib/ant-junit.jar:${debug.test.classpath}">
712 |             <customize>
713 |                 <syspropertyset>
714 |                     <propertyref prefix="test-sys-prop."/>
715 |                     <mapper from="test-sys-prop.*" to="*" type="glob"/>
716 |                 </syspropertyset>
717 |                 <arg value="${test.class}"/>
718 |                 <arg value="showoutput=true"/>
719 |                 <arg value="formatter=org.apache.tools.ant.taskdefs.optional.junit.BriefJUnitResultFormatter"/>
720 |                 <arg value="formatter=org.apache.tools.ant.taskdefs.optional.junit.XMLJUnitResultFormatter,${test.report.file}"/>
721 |             </customize>
722 |         </j2seproject3:debug>
723 |     </target>
724 |     <target depends="init,compile-test" if="netbeans.home+have.tests" name="-debug-start-debugger-test">
725 |         <j2seproject1:nbjpdastart classpath="${debug.test.classpath}" name="${test.class}"/>
726 |     </target>
727 |     <target depends="init,compile-test-single,-debug-start-debugger-test,-debug-start-debuggee-test" name="debug-test"/>
728 |     <target depends="init,-pre-debug-fix,compile-test-single" if="netbeans.home" name="-do-debug-fix-test">
729 |         <j2seproject1:nbjpdareload dir="${build.test.classes.dir}"/>
730 |     </target>
731 |     <target depends="init,-pre-debug-fix,-do-debug-fix-test" if="netbeans.home" name="debug-fix-test"/>
732 |     <!--
733 |                 =========================
734 |                 APPLET EXECUTION SECTION
735 |                 =========================
736 |             -->
737 |     <target depends="init,compile-single" name="run-applet">
738 |         <fail unless="applet.url">Must select one file in the IDE or set applet.url</fail>
739 |         <j2seproject1:java classname="sun.applet.AppletViewer">
740 |             <customize>
741 |                 <arg value="${applet.url}"/>
742 |             </customize>
743 |         </j2seproject1:java>
744 |     </target>
745 |     <!--
746 |                 =========================
747 |                 APPLET DEBUGGING  SECTION
748 |                 =========================
749 |             -->
750 |     <target depends="init,compile-single" if="netbeans.home" name="-debug-start-debuggee-applet">
751 |         <fail unless="applet.url">Must select one file in the IDE or set applet.url</fail>
752 |         <j2seproject3:debug classname="sun.applet.AppletViewer">
753 |             <customize>
754 |                 <arg value="${applet.url}"/>
755 |             </customize>
756 |         </j2seproject3:debug>
757 |     </target>
758 |     <target depends="init,compile-single,-debug-start-debugger,-debug-start-debuggee-applet" if="netbeans.home" name="debug-applet"/>
759 |     <!--
760 |                 ===============
761 |                 CLEANUP SECTION
762 |                 ===============
763 |             -->
764 |     <target name="-deps-clean-init" unless="built-clean.properties">
765 |         <property location="${build.dir}/built-clean.properties" name="built-clean.properties"/>
766 |         <delete file="${built-clean.properties}" quiet="true"/>
767 |     </target>
768 |     <target if="already.built.clean.${basedir}" name="-warn-already-built-clean">
769 |         <echo level="warn" message="Cycle detected: sicp was already built"/>
770 |     </target>
771 |     <target depends="init,-deps-clean-init" name="deps-clean" unless="no.deps">
772 |         <mkdir dir="${build.dir}"/>
773 |         <touch file="${built-clean.properties}" verbose="false"/>
774 |         <property file="${built-clean.properties}" prefix="already.built.clean."/>
775 |         <antcall target="-warn-already-built-clean"/>
776 |         <propertyfile file="${built-clean.properties}">
777 |             <entry key="${basedir}" value=""/>
778 |         </propertyfile>
779 |     </target>
780 |     <target depends="init" name="-do-clean">
781 |         <delete dir="${build.dir}"/>
782 |         <delete dir="${dist.dir}" followsymlinks="false" includeemptydirs="true"/>
783 |     </target>
784 |     <target name="-post-clean">
785 |         <!-- Empty placeholder for easier customization. -->
786 |         <!-- You can override this target in the ../build.xml file. -->
787 |     </target>
788 |     <target depends="init,deps-clean,-do-clean,-post-clean" description="Clean build products." name="clean"/>
789 |     <target name="-check-call-dep">
790 |         <property file="${call.built.properties}" prefix="already.built."/>
791 |         <condition property="should.call.dep">
792 |             <not>
793 |                 <isset property="already.built.${call.subproject}"/>
794 |             </not>
795 |         </condition>
796 |     </target>
797 |     <target depends="-check-call-dep" if="should.call.dep" name="-maybe-call-dep">
798 |         <ant antfile="${call.script}" inheritall="false" target="${call.target}">
799 |             <propertyset>
800 |                 <propertyref prefix="transfer."/>
801 |                 <mapper from="transfer.*" to="*" type="glob"/>
802 |             </propertyset>
803 |         </ant>
804 |     </target>
805 | </project>
806 | 


--------------------------------------------------------------------------------
/nbproject/configs/jar.properties:
--------------------------------------------------------------------------------
1 | main.class=sicp
2 | 


--------------------------------------------------------------------------------
/nbproject/genfiles.properties:
--------------------------------------------------------------------------------
1 | # This file is used by a NetBeans-based IDE to track changes in generated files such as build-impl.xml.
2 | # Do not edit this file. You may delete it but then the IDE will never regenerate such files for you.
3 | nbproject/build-impl.xml.data.CRC32=19bce9e4
4 | nbproject/build-impl.xml.script.CRC32=dff996e9
5 | nbproject/build-impl.xml.stylesheet.CRC32=576378a2@1.32.1.45
6 | 


--------------------------------------------------------------------------------
/nbproject/private/private.properties:
--------------------------------------------------------------------------------
1 | jaxbwiz.endorsed.dirs=/Applications/NetBeans/NetBeans 6.8.app/Contents/Resources/NetBeans/ide12/modules/ext/jaxb/api
2 | user.properties.file=/Users/sdeobald/.netbeans/6.8/build.properties
3 | 


--------------------------------------------------------------------------------
/nbproject/project.properties:
--------------------------------------------------------------------------------
 1 | application.title=sicp
 2 | application.vendor=enclojure
 3 | build.classes.dir=${build.dir}/classes
 4 | build.classes.excludes=**/*.java,**/*.form
 5 | # This directory is removed when the project is cleaned:
 6 | build.dir=build
 7 | build.generated.dir=${build.dir}/generated
 8 | build.generated.sources.dir=${build.dir}/generated-sources
 9 | # Only compile against the classpath explicitly listed here:
10 | build.sysclasspath=ignore
11 | build.test.classes.dir=${build.dir}/test/classes
12 | build.test.results.dir=${build.dir}/test/results
13 | debug.classpath=\
14 |     ${run.classpath}
15 | debug.test.classpath=\
16 |     ${run.test.classpath}
17 | # This directory is removed when the project is cleaned:
18 | dist.dir=dist
19 | dist.jar=${dist.dir}/sicp.jar
20 | dist.javadoc.dir=${dist.dir}/javadoc
21 | excludes=
22 | includes=**
23 | jar.compress=false
24 | javac.classpath=\
25 |     ${libs.Clojure-1.0.0.classpath}
26 | # Space-separated list of extra javac options
27 | javac.compilerargs=
28 | javac.deprecation=false
29 | javac.source=1.5
30 | javac.target=1.5
31 | javac.test.classpath=\
32 |     ${javac.classpath}:\
33 |     ${build.classes.dir}:\
34 |     ${libs.junit.classpath}:\
35 |     ${libs.junit_4.classpath}
36 | javadoc.additionalparam=
37 | javadoc.author=false
38 | javadoc.encoding=${source.encoding}
39 | javadoc.noindex=false
40 | javadoc.nonavbar=false
41 | javadoc.notree=false
42 | javadoc.private=false
43 | javadoc.splitindex=true
44 | javadoc.use=true
45 | javadoc.version=false
46 | javadoc.windowtitle=
47 | jaxbwiz.endorsed.dirs="${netbeans.home}/../ide12/modules/ext/jaxb/api"
48 | main.class=sicp
49 | manifest.file=manifest.mf
50 | meta.inf.dir=${src.dir}/META-INF
51 | platform.active=default_platform
52 | run.classpath=\
53 |     ${javac.classpath}:\
54 |     ${build.classes.dir}
55 | run.test.classpath=\
56 |     ${javac.test.classpath}:\
57 |     ${build.test.classes.dir}
58 | source.encoding=UTF-8
59 | src.dir=src
60 | test.src.dir=test
61 | 


--------------------------------------------------------------------------------
/nbproject/project.xml:
--------------------------------------------------------------------------------
 1 | <?xml version="1.0" encoding="UTF-8"?>
 2 | <project xmlns="http://www.netbeans.org/ns/project/1">
 3 |     <type>org.netbeans.modules.java.j2seproject</type>
 4 |     <configuration>
 5 |         <data xmlns="http://www.netbeans.org/ns/j2se-project/3">
 6 |             <name>sicp</name>
 7 |             <minimum-ant-version>1.6.5</minimum-ant-version>
 8 |             <source-roots>
 9 |                 <root id="src.dir"/>
10 |             </source-roots>
11 |             <test-roots>
12 |                 <root id="test.src.dir"/>
13 |             </test-roots>
14 |         </data>
15 |     </configuration>
16 | </project>
17 | 


--------------------------------------------------------------------------------
/project.clj:
--------------------------------------------------------------------------------
1 | 
2 | (defproject sicp "1.0.0-SNAPSHOT"
3 |   :description "Solutions to SICP"
4 |   :dependencies [[org.clojure/clojure "1.2.0-master-SNAPSHOT"]
5 |                  [org.clojure/clojure-contrib "1.2.0-master-SNAPSHOT"]])
6 | 


--------------------------------------------------------------------------------
/src/ch4/conditionals.clj:
--------------------------------------------------------------------------------
 1 | 
 2 | (ns ch4.conditionals
 3 |   (:use ch4.scheme-helpers
 4 |         ch4.predicates
 5 |         ch4.declarations))
 6 | 
 7 | (defn if-predicate [exp] (cadr exp))
 8 | 
 9 | (defn if-consequent [exp] (caddr exp))
10 | 
11 | (defn if-alternative [exp]
12 |   (if (not (nil? (cdddr exp)))
13 |     (cadddr exp)
14 |     'false))
15 | 
16 | (defn make-if [predicate consequent alternative]
17 |   (list 'if predicate consequent alternative))
18 | 
19 | (defn extended-cond? [clause]
20 |   (and (list? clause)
21 |        (> (count clause) 2)
22 |        (= (second clause) '=>)))
23 | 
24 | (defn extended-cond-test [clause]
25 |   (first clause))
26 | 
27 | (defn extended-cond-recipient [clause]
28 |   (nth clause 2))
29 | 
30 | (defn cond? [exp] (tagged-list? exp 'cond))
31 | 
32 | (defn cond-clauses [exp] (cdr exp))
33 | 
34 | (defn cond-predicate [clause] (car clause))
35 | 
36 | (defn cond-else-clause? [clause]
37 |   (= (cond-predicate clause) 'else))
38 | 
39 | (defn cond-actions [clause] (cdr clause))
40 | 
41 | (declare expand-clauses)
42 | 
43 | (defn cond->if [exp]
44 |   (expand-clauses (cond-clauses exp)))
45 | 
46 | (defn expand-clauses [clauses]
47 |   (if (null? clauses)
48 |     'false
49 |     (let [first-clause (car clauses)
50 |           rest-clauses (cdr clauses)]
51 |       (cond (cond-else-clause? first-clause)
52 |             (if (null? rest-clauses)
53 |               (sequence->exp (cond-actions first-clause))
54 |               (Error. (str "ELSE clause isn't last -- COND->IF"
55 |                             clauses)))
56 |             (extended-cond? first-clause)
57 |             (make-if (extended-cond-test first-clause)
58 |                      (list
59 |                       (extended-cond-recipient first-clause)
60 |                       (extended-cond-test first-clause))
61 |                      (expand-clauses rest-clauses))
62 |             :else
63 |             (make-if (cond-predicate first-clause)
64 |                      (sequence->exp (cond-actions first-clause))
65 |                      (expand-clauses rest-clauses))))))
66 | 


--------------------------------------------------------------------------------
/src/ch4/declarations.clj:
--------------------------------------------------------------------------------
 1 | 
 2 | (ns ch4.declarations
 3 |   (:use ch4.scheme-helpers
 4 |         ch4.predicates))
 5 | 
 6 | (defn make-begin [xs] (cons 'begin xs))
 7 | 
 8 | (defn make-definition [fn-name parameters body]
 9 |   (list 'define (cons fn-name parameters) body))
10 | 
11 | (defn sequence->exp [xs]
12 |   (cond (null? xs) xs
13 |         (last-exp? xs) (first-exp xs)
14 |         :else (make-begin xs)))
15 | 


--------------------------------------------------------------------------------
/src/ch4/environment.clj:
--------------------------------------------------------------------------------
 1 | 
 2 | (ns ch4.environment
 3 |   (:use ch4.scheme-helpers))
 4 | 
 5 | (defn enclosing-environment [env] (rest env))
 6 | 
 7 | (defn first-frame [env] (car env))
 8 | 
 9 | (def the-empty-environment '())
10 | 
11 | (defn make-frame [variables values]
12 |   (atom (zipmap variables values)))
13 | 
14 | (defn frame-variables [frame] (keys @frame))
15 | 
16 | (defn frame-values [frame] (vals @frame))
17 | 
18 | (defn add-binding-to-frame! [var val frame]
19 |   (swap! frame assoc var val))
20 | 
21 | (defn extend-environment [vars vals base-env]
22 |   (if (= (count vars) (count vals))
23 |     (cons (make-frame vars vals) base-env)
24 |     (if (< (count vars) (count vals))
25 |       (Error. (str "Too many arguments supplied " vars vals))
26 |       (Error. (str "Too few arguments supplied " vars vals)))))
27 | 
28 | (defn copy-environment [e]
29 |   (doall (map #(atom @%) e)))
30 | 
31 | (defn environments-equal? [x y]
32 |   (reduce #(and %1 %2) true (map #(= @%1 @%2) x y)))
33 | 
34 | (defn lookup-variable-value [variable env]
35 |   (letfn [(env-loop [env]
36 |                     (letfn [(scan [frame]
37 |                                   (if (contains? frame variable)
38 |                                     (let [value (get frame variable)]
39 |                                       (if (= value '*unassigned*)
40 |                                         (Error. (str "Unassigned variable " variable))
41 |                                         value))
42 |                                     (env-loop (enclosing-environment env))))]
43 |                       (if (= env the-empty-environment)
44 |                         (Error. (str "Unbound variable " variable))
45 |                         (let [frame (first-frame env)]
46 |                           (scan @frame)))))]
47 |     (env-loop env)))
48 | 
49 | 
50 | (defn set-variable-value! [variable value env]
51 |   (letfn [(env-loop [env]
52 |                     (letfn [(scan [frame]
53 |                                   (if (contains? @frame variable)
54 |                                     (swap! frame assoc variable value)
55 |                                     (env-loop (enclosing-environment env))))]
56 |                       (if (= env the-empty-environment)
57 |                         (Error. (str "Unbound variable -- SET! " variable))
58 |                         (scan (first-frame env)))))]
59 |     (env-loop env)))
60 | 
61 | (defn define-variable! [variable value env]
62 |   (swap! (first-frame env) assoc variable value))
63 | 
64 | (defn unbind-variable! [variable env]
65 |   (swap! (first-frame env) dissoc variable))
66 | 
67 | 


--------------------------------------------------------------------------------
/src/ch4/lambdas.clj:
--------------------------------------------------------------------------------
 1 | 
 2 | (ns ch4.lambdas
 3 |   ;(:require )
 4 |   ;(:use )
 5 |   ;(:import )
 6 |   )
 7 | 
 8 | 
 9 | (defn lambda-parameters [exp] (second exp))
10 | 
11 | (defn lambda-body [exp] (rest (rest exp)))
12 | 
13 | (defn make-lambda [parameters body]
14 |   (cons 'lambda (cons parameters body)))
15 | 
16 | 


--------------------------------------------------------------------------------
/src/ch4/letting.clj:
--------------------------------------------------------------------------------
 1 | 
 2 | (ns ch4.letting
 3 |   (:use ch4.predicates
 4 |         ch4.declarations
 5 |         ch4.lambdas))
 6 | 
 7 | (defn let? [exp]
 8 |   (tagged-list? exp 'let))
 9 | 
10 | (defn named-let? [exp]
11 |   (symbol? (second exp)))
12 | 
13 | (defn let-body [exp]
14 |   (if (named-let? exp)
15 |     (nth exp 3)
16 |     (nth exp 2)))
17 | 
18 | (defn make-let [clauses body]
19 |   (list 'let clauses body))
20 | 
21 | (defn let-variables [exp]
22 |   (if (named-let? exp)
23 |     (map first (nth exp 2))
24 |     (map first (second exp))))
25 | 
26 | (defn let-values [exp]
27 |   (if (named-let? exp)
28 |     (map second (nth exp 2))
29 |     (map second (second exp))))
30 | 
31 | (defn let-name [exp]
32 |   (second exp))
33 | 
34 | (defn let*? [exp]
35 |   (tagged-list? exp 'let*))
36 | 
37 | (defn let*->nested-lets [exp]
38 |   (let [let-clauses (reverse (second exp))
39 |         body (let-body exp)]
40 |     (reduce #(make-let (list %2) %1) body let-clauses)))
41 | 
42 | ; define function
43 | ; eval function with arguments
44 | (defn let->combination [exp]
45 |   (let [parameters (let-variables exp)
46 |         args (let-values exp)
47 |         body (let-body exp)]
48 |     (if (named-let? exp)
49 |       (sequence->exp
50 |        (list
51 |         (make-definition (let-name exp)
52 |                          parameters
53 |                          body)
54 |         (cons
55 |          (let-name exp)
56 |          args)))
57 |       (cons
58 |        (make-lambda (let-variables exp)
59 |                     (list (let-body exp)))
60 |        (let-values exp)))))
61 | 


--------------------------------------------------------------------------------
/src/ch4/predicates.clj:
--------------------------------------------------------------------------------
 1 | 
 2 | (ns ch4.predicates
 3 |   (:use ch4.scheme-helpers))
 4 | 
 5 | 
 6 | (defn first-exp [xs] (car xs))
 7 | 
 8 | (defn rest-exps [xs] (cdr xs))
 9 | 
10 | (defn tagged-list? [exp tag]
11 |   (if (seq? exp)
12 |     (= (first exp) tag)
13 |     false))
14 | 
15 | (defn last-exp? [xs] (null? (cdr xs)))
16 | 
17 | (declare last-exp? first-exp rest-exps)
18 | 
19 | (defn begin? [exp] (tagged-list? exp 'begin))
20 | 
21 | (defn quoted? [exp]
22 |   (tagged-list? exp 'quote))
23 | 
24 | (defn pair? [x] (seq? x))
25 | 
26 | (defn application? [exp] (pair? exp))
27 | 
28 | (defn definition? [exp]
29 |   (tagged-list? exp 'define))
30 | 
31 | (defn assignment? [exp]
32 |   (tagged-list? exp 'set!))
33 | 
34 | (defn variable? [exp]
35 |   (or (symbol? exp)
36 |       (= 'true exp)
37 |       (= 'false exp)))
38 | 
39 | (defn if? [exp] (tagged-list? exp 'if))
40 | 
41 | (defn lambda? [exp] (tagged-list? exp 'lambda))
42 | 
43 | (defn self-evaluating? [exp]
44 |   (or (number? exp)
45 |       (string? exp)
46 |       (and (seq? exp) (self-evaluating? (first exp)))))
47 | 


--------------------------------------------------------------------------------
/src/ch4/scheme.clj:
--------------------------------------------------------------------------------
  1 | 
  2 | (ns ch4.scheme
  3 |   (:use ch4.scheme-helpers
  4 |         ch4.environment
  5 |         ch4.predicates
  6 |         ch4.declarations
  7 |         ch4.lambdas
  8 |         ch4.letting
  9 |         ch4.conditionals))
 10 | 
 11 | (declare execute-application
 12 |          primitive-procedure-names
 13 |          primitive-procedure-objects)
 14 | 
 15 | (declare my-eval
 16 |          my-apply
 17 |          analyze)
 18 | 
 19 | (declare no-operands?
 20 |          first-operand
 21 |          rest-operands)
 22 | 
 23 | ; Exercise 4.1
 24 | (defn list-of-values [exps env]
 25 |   (if (no-operands? exps)
 26 |     '()
 27 |     (let [left (my-eval (first-operand exps) env)
 28 |           right (list-of-values (rest-operands exps) env)]
 29 |       (cons left right))))
 30 | ; Above function imposes a left to right ordering. If the
 31 | ; assignments inside of let where switched it would be right
 32 | ; to left
 33 | 
 34 | (defn eval-if [exp env]
 35 |   (if (my-eval (if-predicate exp) env)
 36 |     (my-eval (if-consequent exp) env)
 37 |     (my-eval (if-alternative exp) env)))
 38 | 
 39 | (defn eval-sequence [exps env]
 40 |   (cond (last-exp? exps) (my-eval (first-exp exps) env)
 41 |         :else (do (my-eval (first-exp exps) env)
 42 |                   (eval-sequence (rest-exps exps) env))))
 43 | 
 44 | (declare assignment-variable assignment-value)
 45 | 
 46 | (defn eval-assignment [exp env]
 47 |   (set-variable-value! (assignment-variable exp)
 48 |                        (my-eval (assignment-value exp) env)
 49 |                        env)
 50 |   'ok)
 51 | 
 52 | (declare definition-variable definition-value)
 53 | 
 54 | (defn eval-definition [exp env]
 55 |   (define-variable!
 56 |     (definition-variable exp)
 57 |     (my-eval (definition-value exp) env)
 58 |     env)
 59 |   'ok)
 60 | 
 61 | (defn text-of-quotation [exp] (cadr exp))
 62 | 
 63 | (defn assignment-variable [exp] (second exp))
 64 | 
 65 | (defn assignment-value [exp] (nth exp 2))
 66 | 
 67 | (defn definition-variable [exp]
 68 |   (if (symbol? (second exp))
 69 |     (second exp)
 70 |     (first (first (rest exp)))))
 71 | 
 72 | (defn definition-value [exp]
 73 |   (if (symbol? (second exp))
 74 |     (nth exp 2)
 75 |     (make-lambda (rest (first (rest exp))) ; formal parameters
 76 |                  (rest (rest exp))))) ; body
 77 | 
 78 | (defn begin-actions [exp] (cdr exp))
 79 | 
 80 | (defn operator [exp] (car exp))
 81 | 
 82 | (defn operands [exp] (cdr exp))
 83 | 
 84 | (defn no-operands? [ops] (null? ops))
 85 | 
 86 | (defn first-operand [ops] (car ops))
 87 | 
 88 | (defn rest-operands [ops] (cdr ops))
 89 | 
 90 | (declare scan-out-defines)
 91 | (defn make-procedure [parameters body env]
 92 |   (list 'procedure parameters (scan-out-defines body) env))
 93 | 
 94 | (defn compound-procedure? [p]
 95 |   (tagged-list? p 'procedure))
 96 | 
 97 | (defn procedure-parameters [p] (cadr p))
 98 | 
 99 | (defn procedure-body [p] (caddr p))
100 | 
101 | (defn procedure-environment [p] (cadddr p))
102 | 
103 | (def primitive-procedures
104 |      (list (list 'car car)
105 |            (list 'cdr cdr)
106 |            (list 'cadr cadr)
107 |            (list 'cons cons)
108 |            (list 'null? null?)
109 |            (list '+ +)
110 |            (list '- -)
111 |            (list '* *)
112 |            (list '/ /)
113 |            (list '= =)
114 |            (list '> >)
115 |            (list '< <)
116 |            (list 'and (fn [& xs] (reduce #(and %1 %2) true xs)))
117 |            (list 'or (fn [& xs] (reduce #(or %1 %2) false xs)))))
118 | 
119 | (defn primitive-procedure-names []
120 |   (map car primitive-procedures))
121 | 
122 | (defn primitive-procedure-objects []
123 |   (map (fn [proc] (list 'primitive (cadr proc)))
124 |        primitive-procedures))
125 | 
126 | (defn setup-environment []
127 |   (let [initial-env
128 |         (extend-environment (primitive-procedure-names)
129 |                             (primitive-procedure-objects)
130 |                             the-empty-environment)]
131 |     (define-variable! 'true true initial-env)
132 |     (define-variable! 'false false initial-env)
133 |     (define-variable! 'nil nil initial-env)
134 |     initial-env))
135 | 
136 | (def the-global-environment (setup-environment))
137 | 
138 | (defn reset-global-environment []
139 |   (def the-global-environment (setup-environment)))
140 | 
141 | ; Exercise 4.13
142 | (defn unbind? [exp]
143 |   (tagged-list? exp 'make-unbound!))
144 | 
145 | (defn eval-unbind [exp env]
146 |   (unbind-variable! (second exp) env)
147 |   'ok)
148 | 
149 | (defn primitive-procedure? [proc]
150 |   (tagged-list? proc 'primitive))
151 | 
152 | (defn primitive-implementation [proc] (cadr proc))
153 | 
154 | (defn apply-primitive-procedure [proc args]
155 |   (apply (primitive-implementation proc) args))
156 | 
157 | (defn execute-application [proc args]
158 |   (cond (primitive-procedure? proc)
159 |           (apply-primitive-procedure proc args)
160 |         (compound-procedure? proc)
161 |           ((procedure-body proc)
162 |            (extend-environment (procedure-parameters proc)
163 |                                args
164 |                                (procedure-environment proc)))
165 |         :else
166 |         (Error. (str
167 |                  "Unknown procedure type -- EXECUTE-APPLICATION"
168 |                  proc))))
169 | 
170 | (defn is-define? [e]
171 |   (and (seq? e)
172 |        (tagged-list? e 'define)))
173 | 
174 | (defn find-defines [exp]
175 |   (filter is-define? exp))
176 | 
177 | (defn defined-variables [defs]
178 |   (map second defs))
179 | 
180 | (defn defined-values [defs]
181 |   (map #(nth % 2) defs))
182 | 
183 | (defn non-defines [exp]
184 |   (remove is-define? exp))
185 | 
186 | (defn scan-out-defines [exp]
187 |   (let [defs (find-defines exp)]
188 |     (if (zero? (count defs))
189 |       exp
190 |       (let [variables (defined-variables defs)
191 |             values (defined-values defs)
192 |             body (nth (non-defines exp) 2)
193 |             vars (second (non-defines exp))]
194 |         (list 'lambda
195 |               vars
196 |               (cons 'let
197 |                     (cons (map #(list % (quote (quote *unassigned*))) variables)
198 |                           (concat (map
199 |                                    #(list 'set! %1 %2)
200 |                                    variables
201 |                                    values)
202 |                                   (list body)))))))))
203 | 
204 | ; Exercise 4.20
205 | (defn letrec? [exp]
206 |   (tagged-list? exp 'letrec))
207 | 
208 | (defn letrec->let [exp]
209 |   (let [fns (second exp)
210 |         fn-names (map first fns)
211 |         fn-vals (map second fns)
212 |         body (nth exp 2)]
213 |     (make-let
214 |      (map #(list % ''*unassigned*) fn-names)
215 |      (make-begin
216 |       (concat
217 |        (map #(list 'set! %1 %2) fn-names fn-vals)
218 |        (list body))))))
219 | 
220 | (defn my-eval [exp env]
221 |   (cond (self-evaluating? exp) exp
222 |         (variable? exp) (lookup-variable-value exp env)
223 |         (quoted? exp) (text-of-quotation exp)
224 |         (assignment? exp) (eval-assignment exp env)
225 |         (unbind? exp) (eval-unbind exp env)
226 |         (definition? exp) (eval-definition exp env)
227 |         (if? exp) (eval-if exp env)
228 |         (lambda? exp)
229 |           (make-procedure (lambda-parameters exp)
230 |                           (lambda-body exp)
231 |                           env)
232 |         (begin? exp)
233 |           (eval-sequence (begin-actions exp) env)
234 |         (cond? exp) (my-eval (cond->if exp) env)
235 |         (let? exp) (my-eval (let->combination exp) env)
236 |         (let*? exp) (my-eval (let*->nested-lets exp) env)
237 |         (letrec? exp) (my-eval (letrec->let exp) env)
238 |         (application? exp)
239 |           (my-apply (my-eval (operator exp) env)
240 |                     (list-of-values (operands exp) env))
241 |         :else (Error. (str "Unknown expression type -- EVAL " exp))))
242 | 
243 | (defn my-apply [procedure arguments]
244 |   (cond (primitive-procedure? procedure)
245 |           (apply-primitive-procedure procedure arguments)
246 |         (compound-procedure? procedure)
247 |           (eval-sequence
248 |            (procedure-body procedure)
249 |            (extend-environment
250 |             (procedure-parameters procedure)
251 |             arguments
252 |             (procedure-environment procedure)))
253 |         :else (Error. (str "Unknown procedure type -- APPLY " procedure))))
254 | 
255 | (defn interpret [exp]
256 |   (my-eval exp the-global-environment))


--------------------------------------------------------------------------------
/src/ch4/scheme_helpers.clj:
--------------------------------------------------------------------------------
 1 | 
 2 | (ns ch4.scheme-helpers)
 3 | 
 4 | (defn car [x] (first x))
 5 | (defn cdr [x] (next x))
 6 | (defn cadr [x] (second x))
 7 | (defn caddr [x] (first (next (next x))))
 8 | (defn cdddr [x] (next (next (next x))))
 9 | (defn caddr [x] (first (next (next x))))
10 | (defn cadddr [x] (first (next (next (next x)))))
11 | (defn null? [x] (nil? x))
12 | 
13 | 
14 | 


--------------------------------------------------------------------------------
/src/sec1_1/sec_1_1_8.clj:
--------------------------------------------------------------------------------
 1 | (ns sec1-1.sec-1-1-8)
 2 | 
 3 | ;; from: http://mitpress.mit.edu/sicp/full-text/book/book-Z-H-10.html#%_sec_1.1.8
 4 | ;;       "Internal definitions and block structure"
 5 | 
 6 | (defn sqrt [x]
 7 |   (let [square (fn [side] (* side side))
 8 |         average (fn [a b] (/ (+ a b) 2))
 9 |         good-enough? (fn [guess] (< (Math/abs (- (square guess) x)) 0.001))
10 |         improve (fn [guess] (average guess (/ x guess)))
11 |         sqrt-iter (fn sqrt-iter [guess] (if (good-enough? guess) guess (sqrt-iter (improve guess))))]
12 |   (sqrt-iter 1.0)))
13 | 
14 | 


--------------------------------------------------------------------------------
/src/sec1_3/ex1_41.clj:
--------------------------------------------------------------------------------
 1 | (ns sec1-3.ex1-41)
 2 | 
 3 | (defn incr [num]
 4 |   (+ num 1))
 5 | 
 6 | (defn dub [proc]
 7 |   #(proc (proc %)))
 8 | 
 9 | (((dub (dub dub)) incr) 5)
10 | ; => 21
11 | 


--------------------------------------------------------------------------------
/src/sec1_3/ex1_42.clj:
--------------------------------------------------------------------------------
 1 | (ns sec1-3.ex1-42)
 2 | 
 3 | (defn incr [num]
 4 |   (+ num 1))
 5 | 
 6 | (defn square [num]
 7 |   (* num num))
 8 | 
 9 | (defn compose [fn1 fn2]
10 |   #(fn1 (fn2 %)))
11 | 
12 | ((compose square incr) 6)
13 | 
14 | 


--------------------------------------------------------------------------------
/src/sec1_3/ex1_43.clj:
--------------------------------------------------------------------------------
 1 | (ns sec1-3.ex1-43)
 2 | 
 3 | (defn square [num]
 4 |   (* num num))
 5 | 
 6 | (defn compose [f g]
 7 |   #(f (g %)))
 8 | 
 9 | (defn repeated-inside [original-f f times]
10 |   (if (= times 1)
11 |     f
12 |     (recur original-f (comp original-f f) (dec times))))
13 | 
14 | (defn repeated [f times]
15 |   (repeated-inside f f times))
16 | 
17 | ((repeated square 2) 5)
18 | ; => 625
19 | 


--------------------------------------------------------------------------------
/src/sec1_3/ex1_44.clj:
--------------------------------------------------------------------------------
 1 | (ns sec1-3.ex1-44
 2 |   (:use [sec1-3.ex1-43 :only (repeated)]))
 3 | 
 4 | (defn sq [num]
 5 |   (* num num))
 6 | 
 7 | (defn avg [coll]
 8 |   (/ (apply + coll) (count coll)))
 9 | 
10 | (defn smooth [f]
11 |   (let [dx 0.00001]
12 |     #(avg [(f (- % dx)) (f %) (f (+ % dx))])))
13 | 
14 | (defn smoothed [f times]
15 |   (let [done (repeated smooth times)]
16 |     (done f )))
17 | 
18 | (def gaz repeated)
19 | 
20 | ((smoothed sq 2) 6)


--------------------------------------------------------------------------------
/src/sec2_1/ex2_2.clj:
--------------------------------------------------------------------------------
 1 | (ns sec2-1.ex2-2)
 2 | 
 3 | (defn make-point [x y]
 4 |   {:x x :y y})
 5 | 
 6 | (defn make-segment [start end]
 7 |   {:start start :end end})
 8 | 
 9 | (defn print-point [p]
10 |   (print "(")
11 |   (print (:x p))
12 |   (print ", ")
13 |   (print (:y p))
14 |   (print ")"))
15 | 
16 | (defn print-segment [segment]
17 |   (print newline)
18 |   (print-point (:start segment))
19 |   (print " - ")
20 |   (print-point (:end segment)))
21 | 
22 | (defn midpoint-segment [segment]
23 |   (let [midpoint-x (average (:x (:start segment)) (:x (:end segment)))
24 |         midpoint-y (average (:y (:start segment)) (:y (:end segment)))]
25 |   (make-point midpoint-x midpoint-y)))
26 | 
27 | (def steves-segment
28 |   make-segment (make-point 2 2) (make-point 10 10))
29 | 
30 | (print-segment steves-segment)


--------------------------------------------------------------------------------
/src/sec2_2/ex2_17.clj:
--------------------------------------------------------------------------------
 1 | (ns sec2_2.ex2_17
 2 |   (:use clojure.test))
 3 | 
 4 | (defn last-pair [l]
 5 |   (if (= (count l) 1)
 6 |     l
 7 |     (recur (rest l))))
 8 | 
 9 | (deftest should-retrieve-34-as-last-item-in-list
10 |   (is (= '(34) (last-pair '(23 72 149 34)))))
11 | 
12 | (run-all-tests #"ex.*")


--------------------------------------------------------------------------------
/src/sec2_2/ex2_18.clj:
--------------------------------------------------------------------------------
 1 | (ns sec2_2.ex2_18
 2 |   (:use clojure.test))
 3 | 
 4 | (defn ireverse [l]
 5 |   (let [shift (fn [original accum]
 6 |                 (if (empty? original)
 7 |                   accum
 8 |                   (recur (rest original) (conj accum (first original)))))]
 9 |     (shift l '())))
10 | 
11 | (deftest should-return-a-list-in-reverse-order
12 |   (is (= (list 25 16 9 4 1) (ireverse (list 1 4 9 16 25)))))
13 | 
14 | (run-all-tests #"ex.*")
15 | 


--------------------------------------------------------------------------------
/src/sec2_2/ex2_19.clj:
--------------------------------------------------------------------------------
 1 | (ns sec2_2.ex2_19
 2 |   (:use clojure.test))
 3 | 
 4 | (defn first-denomination [x]
 5 |  (first x))
 6 | 
 7 | (defn except-first-denomination [x]
 8 |  (rest x))
 9 | 
10 | (defn no-more? [x]
11 |  (empty? x))
12 | 
13 | (defn cc [amount coin-values]
14 |  (cond (= amount 0) 1
15 |        (or (< amount 0) (no-more? coin-values)) 0
16 |        :else
17 |          (+ (cc amount
18 |                 (except-first-denomination coin-values))
19 |             (cc (- amount (first-denomination coin-values))
20 |                 coin-values))))
21 | 
22 | (def us-coins (list 50 25 10 5 1))
23 | (def uk-coins (list 100 50 20 10 5 2 1 0.5))
24 | 
25 | (deftest should-find-100-cents-can-be-counted-292-ways-with-us-coins
26 |   (is (= 292 (cc 100 us-coins))))
27 | 
28 | (deftest should-find-50-pence-can-be-counted-6149-ways-with-uk-coins
29 |   (is (= 6149 (cc 50 uk-coins))))
30 | 
31 | (run-all-tests #"ex.*")
32 | 


--------------------------------------------------------------------------------
/src/sec2_2/ex2_20.clj:
--------------------------------------------------------------------------------
 1 | (ns sec2_2.ex2_20
 2 |   (:use clojure.test))
 3 | 
 4 | (defn same-parity [& nums]
 5 |   (if (even? (first nums))
 6 |     (filter even? nums)
 7 |     (filter odd? nums)))
 8 | 
 9 | (deftest should-return-all-odd-numbers-given-when-list-begins-with-an-odd-number
10 |   (is (= '(1 3 5 7) (same-parity 1 2 3 4 5 6 7))))
11 | 
12 | (deftest should-return-all-even-numbers-given-when-list-begins-with-an-even-number
13 |   (is (= '(2 4 6) (same-parity 2 3 4 5 6 7))))
14 | 
15 | (run-all-tests #"ex.*")
16 | 
17 | 


--------------------------------------------------------------------------------
/src/sec2_2/ex2_21.clj:
--------------------------------------------------------------------------------
 1 | (ns sec2_2.ex2_21
 2 |   (:use clojure.test))
 3 | 
 4 | (defn square [number]
 5 |   (* number number))
 6 | 
 7 | (defn square-list-1 [items]
 8 |   (if (empty? items)
 9 |     nil
10 |     (cons (square (first items))
11 |           (square-list-1 (rest items)))))
12 | 
13 | (defn square-list-2 [items]
14 |   (map square items))
15 | 
16 | (deftest should-square-each-item-in-the-list-1
17 |   (is (= '(1 4 9 16) (square-list-1 '(1 2 3 4)))))
18 | 
19 | (deftest should-square-each-item-in-the-list-2
20 |   (is (= '(1 4 9 16) (square-list-2 '(1 2 3 4)))))
21 | 
22 | (run-all-tests #"ex.*")
23 | 
24 | 


--------------------------------------------------------------------------------
/src/sec2_2/ex2_22.clj:
--------------------------------------------------------------------------------
 1 | (ns sec2_2.ex2_22)
 2 | 
 3 | ; the first attempt removes items front-to-back, but adds them to the answer back-to-front
 4 | ; first attempt (via jake):
 5 | 
 6 | (defn square [x] (* x x))
 7 | 
 8 | (defn square-list [items]
 9 |  (letfn [(iter [things answer]
10 |           (if (empty? things)
11 |               answer
12 |               (recur (rest things)
13 |                      (cons (square (first things))
14 |                            answer))))]
15 |   (iter items nil)))
16 | 
17 | (square-list (list 1 2 3 4))
18 | 
19 | 
20 | ; the second attempt creates a nested list of lists
21 | ; the clojure behavioural equivalent of scheme 'cons' is 'list'
22 | ; second attempt (via jake):
23 | 
24 | (defn square-list [items]
25 |  (letfn [(iter [things answer]
26 |           (if (empty? things)
27 |               answer
28 |               (recur (rest things)
29 |                      (list answer (square (first things))))))]
30 |   (iter items nil)))
31 | 
32 | (square-list (list 1 2 3 4))
33 | 


--------------------------------------------------------------------------------
/src/sec2_2/ex2_23.clj:
--------------------------------------------------------------------------------
 1 | (ns sec2_2.ex2_23)
 2 | 
 3 | (defn for-each [fn items]
 4 |   (fn (first items))
 5 |   (if (empty? items)
 6 |     true
 7 |     (recur fn (rest items))))
 8 | 
 9 | (for-each #(println %) '(57 321 88))
10 | 
11 | 
12 | 


--------------------------------------------------------------------------------
/src/sec2_2/ex2_24.clj:
--------------------------------------------------------------------------------
 1 | (ns sec2_2.ex2_24)
 2 | 
 3 | (list 1 (list 2 (list 3 4)))
 4 | ; (1 (2 (3 4)))
 5 | 
 6 | '(1 (2 (3 4)))
 7 | ; (1 (2 (3 4)))
 8 | 
 9 | ; (1 (2 (3 4)))
10 | ;   /      \
11 | ;  1    (2 (3 4))
12 | ;      /     \
13 | ;     2    (3 4)
14 | ;          /   \
15 | ;         3     4
16 | 


--------------------------------------------------------------------------------
/src/sec2_2/ex2_25.clj:
--------------------------------------------------------------------------------
 1 | (ns sec2_2.ex2_25)
 2 | 
 3 | (def example1 '(1 3 (5 7) 9))
 4 | 
 5 | (def example2 '((7)))
 6 | 
 7 | (def example3 '(1 (2 (3 (4 (5 (6 7)))))))
 8 | 
 9 | (println
10 |   (first (rest (first (rest (rest example1))))))
11 | 
12 | (println
13 |   (first (first example2)))
14 | 
15 | (println
16 |   (first (rest (first (rest (first (rest (first (rest (first (rest (first (rest example3)))))))))))))
17 | 
18 | 


--------------------------------------------------------------------------------
/src/sec2_2/ex2_26.clj:
--------------------------------------------------------------------------------
 1 | (ns sec2_2.ex2_26)
 2 | 
 3 | (def x (list 1 2 3))
 4 | 
 5 | (def y (list 4 5 6))
 6 | 
 7 | ; from 2.2.1
 8 | (defn append [list1 list2]
 9 |  (if (empty? list1)
10 |      list2
11 |      (cons (first list1) (append (rest list1) list2))))
12 | 
13 | (append x y)
14 | ; (1 2 3 4 5 6)
15 | 
16 | (cons x y)
17 | ; ((1 2 3) 4 5 6)
18 | 
19 | (list x y)
20 | ; ((1 2 3) (4 5 6))
21 | 


--------------------------------------------------------------------------------
/src/sec2_2/ex2_27.clj:
--------------------------------------------------------------------------------
 1 | (ns sec2_2.ex2_27
 2 |   (:use clojure.test))
 3 | 
 4 | (defn deep-reverse [x]
 5 |   (cond (nil? x) nil
 6 |         (not (seq? x)) x
 7 |         :default (map deep-reverse (reverse x))))
 8 | 
 9 | (deftest should-reverse-items-in-sub-lists-as-well-as-the-list-itself
10 |   (is (= '((4 3) (2 1)) (deep-reverse '((1 2) (3 4))))))
11 | 
12 | (run-all-tests #"ex.*")
13 | 


--------------------------------------------------------------------------------
/src/sec2_2/ex2_28.clj:
--------------------------------------------------------------------------------
 1 | (ns sec2_2.ex2_28
 2 |   (:use clojure.test))
 3 | 
 4 | (def x '((1 2) (3 4)))
 5 | 
 6 | (defn append [list1 list2]
 7 |  (if (empty? list1)
 8 |      list2
 9 |      (cons (first list1) (append (rest list1) list2))))
10 | 
11 | (defn fringe [x]
12 |   (cond (nil? x) nil
13 |         (not (seq? x)) (list x)
14 |         (empty? x) '()
15 |         :default (append (fringe (first x)) (fringe (rest x)))))
16 | 
17 | (deftest should-create-a-list-containing-all-leaves-from-left-to-right
18 |   (is (= '(1 2 3 4) (fringe x))))
19 | 
20 | (run-all-tests #"ex.*")
21 | 


--------------------------------------------------------------------------------
/src/sec2_2/ex2_29.clj:
--------------------------------------------------------------------------------
 1 | (ns sec2_2.ex2_29
 2 |   (:use clojure.test))
 3 | 
 4 | (defn make-mobile [left right]
 5 |   (list left right))
 6 | 
 7 | (defn make-branch [length structure]
 8 |   (list length structure))
 9 | 
10 | ; a. Write the corresponding selectors left-branch and right-branch, which return the branches of the mobile, and
11 | ;    branch-length and branch-structure which return the components of a branch.
12 | 
13 | (defn left-branch [mobile]
14 |   (first mobile))
15 | 
16 | (defn right-branch [mobile]
17 |   (first
18 |     (rest mobile)))
19 | 
20 | (defn branch-length [branch]
21 |   (first branch))
22 | 
23 | (defn branch-structure [branch]
24 |   (first
25 |     (rest branch)))
26 | 
27 | ; b. Using those selectors, define a procedure total-weight that returns the total weight of a mobile.
28 | 
29 | (def total-weight)
30 | 
31 | (defn branch-weight [branch]
32 |   (let [structure (branch-structure branch)]
33 |     (if (number? structure)
34 |       structure
35 |       (total-weight structure))))
36 | 
37 | (defn total-weight [mobile]
38 |   (+ (branch-weight (left-branch mobile))
39 |      (branch-weight (right-branch mobile))))
40 | 
41 | (deftest should-weigh-a-simple-mobile
42 |   (let [left (make-branch 2 3)
43 |         right (make-branch 2 5)]
44 |     (is (= 8 (total-weight (make-mobile left right))))))
45 | 
46 | (deftest should-weigh-a-complex-mobile
47 |   (let [left-1 (make-branch 2 3)
48 |         left-2 (make-branch 2 5)
49 |         left-mobile (make-mobile left-1 left-2)
50 |         left  (make-branch 2 left-mobile)
51 |         right (make-branch 2 9)]
52 |     (is (= 17 (total-weight (make-mobile left right))))))
53 | 
54 | ; c. Design a predicate that tests whether a binary mobile is balanced.
55 | 
56 | (defn branch-torque [branch]
57 |   (* (branch-weight branch) (branch-length branch)))
58 | 
59 | (defn balanced? [mobile]
60 |   (= (branch-torque (left-branch mobile))
61 |      (branch-torque (right-branch mobile))))
62 | 
63 | (deftest a-mobile-is-balanced-if-both-branches-have-equal-torque
64 |   (let [left (make-branch 2 3)
65 |         right (make-branch 2 3)
66 |         mobile (make-mobile left right)]
67 |     (is (balanced? mobile))))
68 | 
69 | (deftest a-mobile-is-not-balanced-if-one-branch-has-more-torque-than-the-other
70 |   (let [left (make-branch 2 3)
71 |         right (make-branch 2 4)
72 |         mobile (make-mobile left right)]
73 |     (is (not (balanced? mobile)))))
74 | 
75 | ; d. Suppose we change the constructors to use 'cons' (scheme). How much do you need to change the programs
76 | ;    to convert to the new representation?
77 | 
78 | ; answer: only the selectors need to change, given a scheme-style cons. (car/cdr vs. car/cadr)
79 | 
80 | (run-all-tests #"ex.*")
81 | 
82 | 
83 | 


--------------------------------------------------------------------------------
/src/sec2_2/ex2_29_group.clj:
--------------------------------------------------------------------------------
 1 | (ns sec2_2.ex2_29_group
 2 |   (:use clojure.test))
 3 | 
 4 | (defn make-mobile [left right]
 5 |   (list left right))
 6 | 
 7 | (defn make-branch [length structure]
 8 |   (list length structure))
 9 | 
10 | ; a. Write the corresponding selectors left-branch and right-branch, which return the branches of the mobile, and
11 | ;    branch-length and branch-structure which return the components of a branch.
12 | 
13 | (defn left-branch [mobile]
14 |   (first mobile))
15 | 
16 | (defn right-branch [mobile]
17 |   (first
18 |     (rest mobile)))
19 | 
20 | (defn branch-length [branch]
21 |   (first branch))
22 | 
23 | (defn branch-structure [branch]
24 |   (first
25 |     (rest branch)))
26 | 
27 | ; b. Using those selectors, define a procedure total-weight that returns the total weight of a mobile.
28 | 
29 | (defn total-weight [mobile]
30 |   (if (seq? (fnext mobile)) (+ (total-weight first) (total-weight fnext))
31 |     (fnext mobile)))
32 | 
33 | (deftest should-weigh-an-ultra-simple-mobile
34 |   (is (= 1 (total-weight '(3 1)))))
35 | 
36 | (deftest should-weigh-a-simple-mobile
37 |   (let [left (make-branch 2 3)
38 |         right (make-branch 2 5)]
39 |     (is (= 8 (total-weight (make-mobile left right))))))
40 | 
41 | (deftest should-weigh-a-complex-mobile
42 |   (let [left-1 (make-branch 2 3)
43 |         left-2 (make-branch 2 5)
44 |         left-mobile (make-mobile left-1 left-2)
45 |         left  (make-branch 2 left-mobile)
46 |         right (make-branch 2 9)]
47 |     (is (= 17 (total-weight (make-mobile left right))))))
48 | 
49 | ; c. Design a predicate that tests whether a binary mobile is balanced.
50 | 
51 | 
52 | 
53 | ;(deftest a-mobile-is-balanced-if-both-branches-have-equal-torque
54 | ;  (let [left (make-branch 2 3)
55 | ;        right (make-branch 2 3)
56 | ;        mobile (make-mobile left right)]
57 | ;    (is (balanced? mobile))))
58 | ;
59 | ;(deftest a-mobile-is-not-balanced-if-one-branch-has-more-torque-than-the-other
60 | ;  (let [left (make-branch 2 3)
61 | ;        right (make-branch 2 4)
62 | ;        mobile (make-mobile left right)]
63 | ;    (is (not (balanced? mobile)))))
64 | 
65 | ; d. Suppose we change the constructors to use 'cons' (scheme). How much do you need to change the programs
66 | ;    to convert to the new representation?
67 | 
68 | ; answer: only the selectors need to change, given a scheme-style cons. (car/cdr vs. car/cadr)
69 | 
70 | (run-all-tests #"ex.*")
71 | 
72 | 
73 | 


--------------------------------------------------------------------------------
/src/sec2_2/ex2_30.clj:
--------------------------------------------------------------------------------
 1 | (ns sec2_2.ex2_30
 2 |   (:use clojure.test))
 3 | 
 4 | (defn square [x]
 5 |   (* x x))
 6 | 
 7 | (defn square-tree-ugly [x]
 8 |   (cond (nil? x) nil
 9 |         (not (seq? x)) (square x)
10 |         (empty? x) '()
11 |         :default (cons (square-tree-ugly (first x))
12 |                        (square-tree-ugly (rest x)))))
13 | 
14 | (defn square-tree-map [x]
15 |   (map (fn [sub-x] (if (seq? sub-x)
16 |                     (square-tree-map sub-x)
17 |                     (square sub-x)))
18 |     x))
19 | 
20 | (deftest should-square-all-leaves-in-the-tree-the-ugly-way
21 |   (let [expected '(1 (4 (9 16) 25) (36 49))
22 |         input    '(1 (2 (3  4)  5) (6   7))]
23 |   (is (= expected (square-tree-ugly input)))))
24 | 
25 | (deftest should-square-all-leaves-in-the-tree-with-map
26 |   (let [expected '(1 (4 (9 16) 25) (36 49))
27 |         input    '(1 (2 (3  4)  5) (6   7))]
28 |   (is (= expected (square-tree-map input)))))
29 | 
30 | (run-all-tests #"ex.*")
31 | 


--------------------------------------------------------------------------------
/src/sec2_2/ex2_31.clj:
--------------------------------------------------------------------------------
 1 | (ns sec2_2.ex2_31
 2 |   (:use clojure.test))
 3 | 
 4 | (defn square [x]
 5 |   (* x x))
 6 | 
 7 | (defn tree-map [f tree]
 8 |   (map (fn [sub-tree] (if (seq? sub-tree)
 9 |                     (tree-map f sub-tree)
10 |                     (f sub-tree)))
11 |     tree))
12 | 
13 | (defn square-tree [tree]
14 |   (tree-map square tree))
15 | 
16 | (deftest should-square-all-leaves-in-the-tree
17 |   (let [expected '(1 (4 (9 16) 25) (36 49))
18 |         input    '(1 (2 (3  4)  5) (6   7))]
19 |   (is (= expected (square-tree input)))))
20 | 
21 | (run-all-tests #"ex.*")
22 | 


--------------------------------------------------------------------------------
/src/sec2_2/ex2_32.clj:
--------------------------------------------------------------------------------
 1 | (ns sec2_2.ex2_32
 2 |   (:use clojure.test))
 3 | 
 4 | ; from 2.2.1
 5 | (defn append [list1 list2]
 6 |  (if (empty? list1)
 7 |      list2
 8 |      (cons (first list1) (append (rest list1) list2))))
 9 | 
10 | (defn subsets [s]
11 |   (if (empty? s)
12 |     (list ())
13 |     (let [remaining (subsets (rest s))
14 |           with-head (map #(cons (first s) %) remaining)]
15 |       (append remaining with-head))))
16 | 
17 | (deftest should-find-all-subets-of-a-simple-set
18 |   (let [expected [[] [2] [1] [1 2]]
19 |         input    [1 2]]
20 |     (is (= expected (subsets input)))))
21 | 
22 | (deftest should-find-all-possible-subsets-of-a-set
23 |   (let [expected '(() (3) (2) (2 3) (1) (1 3) (1 2) (1 2 3))
24 |         input    '(1 2 3)]
25 |   (is (= expected (subsets input)))))
26 | 
27 | ; this was my attempt to solve 2.32 using Vectors. sadly, 'cons' poses similar problems for vectors as 'append' poses
28 | ; for lists. upon realizing this, I gave up on the effort because of the structure of the exercise.
29 | (defn subsets-vec [s]
30 |   (if (empty? s)
31 |     (vector [])
32 |     (let [remaining (subsets-vec (rest s))
33 |           with-head (map #(cons (first s) %) remaining)]
34 |       (conj remaining with-head))))
35 | 
36 | (run-all-tests #"ex.*")
37 | 


--------------------------------------------------------------------------------
/src/sec2_2/ex2_33.clj:
--------------------------------------------------------------------------------
 1 | (ns sec2_2.ex2_33
 2 |   (:use clojure.test))
 3 | 
 4 | ; need an accumulate like the book -- reduce won't work.
 5 | (defn accumulate [op initial sq]
 6 |  (if (empty? sq)
 7 |      initial
 8 |      (op (first sq)
 9 |          (accumulate op initial (rest sq)))))
10 | 
11 | (defn mymap [p seq]
12 |   (accumulate (fn [x y] (cons (p x) y)) nil seq))
13 | 
14 | (deftest should-perform-a-function-on-each-element-of-a-list
15 |   (is (= '(2 4 6 8) (mymap #(* % 2) '(1 2 3 4)))))
16 | 
17 | (defn myappend [seq1 seq2]
18 |   (accumulate cons seq2 seq1))
19 | 
20 | (deftest should-add-one-sequence-to-the-end-of-the-other
21 |   (is (= '(1 2 3 4) (myappend '(1 2) '(3 4)))))
22 | 
23 | (defn mylength [seq]
24 |   (accumulate (fn [x y] (inc y)) 0 seq))
25 | 
26 | (deftest should-count-the-items-in-a-sequence
27 |   (is (= 5 (mylength '(:a :b :c :d :e)))))
28 | 
29 | (run-tests)


--------------------------------------------------------------------------------
/src/sec2_2/ex2_34.clj:
--------------------------------------------------------------------------------
 1 | (ns sec2_2.ex2_34
 2 |   (:use clojure.test))
 3 | 
 4 | (defn accumulate [op initial sq]
 5 |  (if (empty? sq)
 6 |      initial
 7 |      (op (first sq)
 8 |          (accumulate op initial (rest sq)))))
 9 | 
10 | (defn horner-eval [x coefficent-sequence]
11 |  (accumulate (fn [this-coeff higher-terms] (+ this-coeff (* x higher-terms)) )
12 |              0
13 |              coefficent-sequence))
14 | 
15 | (deftest test-horner-eval
16 |  (is (= 79 (horner-eval 2 (list 1 3 0 5 0 1)))))
17 |  
18 | (run-tests)


--------------------------------------------------------------------------------
/src/sec2_2/ex2_35.clj:
--------------------------------------------------------------------------------
 1 | (ns sec2_2.ex2_36
 2 |   (:use clojure.test))
 3 | 
 4 | (defn accumulate [op initial sq]
 5 |  (if (empty? sq)
 6 |      initial
 7 |      (op (first sq)
 8 |          (accumulate op initial (rest sq)))))
 9 | 
10 | (defn condense [x]
11 |   (cond (not (seq? x)) 1
12 |         (empty? x) 0
13 |         :default (+ (condense (first x)) (condense (rest x)))))
14 | 
15 | (defn count-leaves [t]
16 |   (accumulate +
17 |               0
18 |               (map condense t)))
19 | 
20 | (deftest should-count-all-leaf-nodes
21 |   (is (= 5 (count-leaves '((1 2) (3 4) 5)))))
22 | 
23 | (run-tests)


--------------------------------------------------------------------------------
/src/sec2_2/ex2_36.clj:
--------------------------------------------------------------------------------
 1 | (ns sec2_2.ex2_36
 2 |   (:use clojure.test))
 3 | 
 4 | (defn accumulate [op initial sq]
 5 |  (if (empty? sq)
 6 |      initial
 7 |      (op (first sq)
 8 |          (accumulate op initial (rest sq)))))
 9 | 
10 | (defn accumulate-n [op init seqs]
11 |   (if (empty? (first seqs))
12 |       nil
13 |       (cons (accumulate op init (map first seqs))
14 |             (accumulate-n op init (map rest seqs)))))
15 | 
16 | (deftest should-accumulate-across-multiple-seqs
17 |   (let [s '((1 2 3) (4 5 6) (7 8 9) (10 11 12))]
18 |     (is (= '(22 26 30) (accumulate-n + 0 s)))))
19 | 
20 | (run-tests)


--------------------------------------------------------------------------------
/src/sec2_2/ex2_37.clj:
--------------------------------------------------------------------------------
 1 | (ns sec2_2.ex2_37
 2 |   (:use clojure.test))
 3 | 
 4 | (defn accumulate [op initial sq]
 5 |  (if (empty? sq)
 6 |      initial
 7 |      (op (first sq)
 8 |          (accumulate op initial (rest sq)))))
 9 | 
10 | (defn accumulate-n [op init seqs]
11 |   (if (empty? (first seqs))
12 |       nil
13 |       (cons (accumulate op init (map first seqs))
14 |             (accumulate-n op init (map rest seqs)))))
15 | 
16 | (def matrix '((1 2 3 4) (4 5 6 6) (6 7 8 9)))
17 | 
18 | (defn matrix-*-vector [m v]
19 |   (map (fn [s a] (* a (accumulate + 0 s)))
20 |     m
21 |     v))
22 | 
23 | (deftest should-multiply-a-matrix-and-vector-by-multiplying-each-row-of-the-matrix-with-the-vector-then-summing
24 |   (let [v '(1 2 0)]
25 |     (is (= '(10 42 0) (matrix-*-vector matrix v)))))
26 | 
27 | (defn transpose [m]
28 |   (accumulate-n cons nil m))
29 | 
30 | (deftest test-transpose
31 |   (is (= '((1 4 6) (2 5 7) (3 6 8) (4 6 9)) (transpose matrix))))
32 | 
33 | (defn matrix-*-matrix [mat1 mat2]
34 |   (let [cols (transpose mat2)]
35 |     (map (fn [row]
36 |       (map (fn [column] (accumulate + 0 (map * row column)))
37 |            cols))
38 |            mat1)))
39 |  
40 | (def expected '((30 56 80) (56 113 161) (80 161 230)))
41 | (deftest test-matrix-*-matrix
42 |   (is (= expected
43 |     (matrix-*-matrix matrix (transpose matrix)))))
44 | 
45 | 
46 | (run-tests)


--------------------------------------------------------------------------------
/src/sec2_2/ex2_38.clj:
--------------------------------------------------------------------------------
 1 | (ns sec2_2.ex2_38
 2 |   (:use clojure.test))
 3 | 
 4 | (defn fold-right [op initial sq]
 5 |  (if (empty? sq)
 6 |      initial
 7 |      (op (first sq)
 8 |          (fold-right op initial (rest sq)))))
 9 | 
10 | (defn fold-left [op initial sq]
11 |   (loop [result initial
12 |          remaining sq]
13 |     (if (empty? remaining)
14 |         result
15 |         (recur (op result (first remaining)) (rest remaining)))))
16 | 
17 | (println (fold-right / 1 (list 1 2 3)))
18 | (println (fold-left / 1 (list 1 2 3)))
19 | (println (fold-right list nil (list 1 2 3)))
20 | (println (fold-left list nil (list 1 2 3)))
21 | 
22 | (run-tests)


--------------------------------------------------------------------------------
/src/sec2_2/ex2_39.clj:
--------------------------------------------------------------------------------
 1 | (ns sec2_2.ex2_39
 2 |   (:use clojure.test))
 3 | 
 4 | (defn fold-right [op initial sq]
 5 |  (if (empty? sq)
 6 |      initial
 7 |      (op (first sq)
 8 |          (fold-right op initial (rest sq)))))
 9 | 
10 | (defn fold-left [op initial sq]
11 |   (loop [result initial
12 |          remaining sq]
13 |     (if (empty? remaining)
14 |         result
15 |         (recur (op result (first remaining)) (rest remaining)))))
16 | 
17 | ; from 2.2.1
18 | (defn append [list1 list2]
19 |  (if (empty? list1)
20 |      list2
21 |      (cons (first list1) (append (rest list1) list2))))
22 | 
23 | ; feels backwards because fold-right actually works inside-out, starting with 3.
24 | (defn reverse-right [s]
25 |   (fold-right (fn [x acc] (append acc (list x))) nil s))
26 | 
27 | (deftest should-reverse-a-list-using-fold-right
28 |   (is (= '(3 2 1) (reverse-right '(1 2 3)))))
29 | 
30 | ; maybe these should be called 'fold-from-left' and 'fold-from-right'?
31 | (defn reverse-left [s]
32 |   (fold-left (fn [acc x] (println x) (cons x acc)) '() s))
33 | 
34 | (deftest should-reverse-a-list-using-fold-left
35 |   (is (= '(3 2 1) (reverse-left '(1 2 3)))))
36 | 
37 | (run-tests)


--------------------------------------------------------------------------------
/test/ch4/environment_test.clj:
--------------------------------------------------------------------------------
 1 | 
 2 | (ns ch4.environment-test
 3 |   (:use clojure.test
 4 |         ch4.environment))
 5 | 
 6 | (deftest can-create-frame
 7 |   (let [f (make-frame '(a b c d) '(1 2 3 4))]
 8 |     (is (= '(a b c d) (sort (frame-variables f))))
 9 |     (is (= '(1 2 3 4) (sort (frame-values f))))))
10 | 
11 | (deftest can-add-vars-to-frame
12 |   (let [f (make-frame '() '())]
13 |     (add-binding-to-frame! 'a 1 f)
14 |     (is (= '(a) (frame-variables f)))
15 |     (is (= '(1) (frame-values f)))))
16 | 
17 | (deftest can-lookup-variable-in-environment
18 |   (let [e (extend-environment '(a b c d)
19 |                               '(1 2 3 4)
20 |                               the-empty-environment)]
21 |     (is (= 1 (lookup-variable-value 'a e)))))
22 | 
23 | (deftest can-set-variable-in-environment
24 |   (let [e (extend-environment '(a b c d)
25 |                               '(1 2 3 4)
26 |                               the-empty-environment)]
27 |     (set-variable-value! 'a 10 e)
28 |     (is (= 10 (lookup-variable-value 'a e)))))
29 | 
30 | (deftest can-define-new-variable
31 |   (let [e (extend-environment '(a b c d)
32 |                               '(1 2 3 4)
33 |                               the-empty-environment)]
34 |     (define-variable! 'e 5 e)
35 |     (is (= 5 (lookup-variable-value 'e e)))))
36 | 
37 | (deftest can-define-variable-which-already-exists
38 |   (let [e (extend-environment '(a b c d)
39 |                               '(1 2 3 4)
40 |                               the-empty-environment)]
41 |     (define-variable! 'b 11 e)
42 |     (is (= 11 (lookup-variable-value 'b e)))))
43 | 
44 | (deftest can-lookup-variables-which-have-false-value
45 |   (let [e (extend-environment '(a b c d)
46 |                               '(1 2 3 4)
47 |                               the-empty-environment)]
48 |     (define-variable! 'g false e)
49 |     (define-variable! 'f nil e)
50 |     (is (= false (lookup-variable-value 'g e)))
51 |     (is (= nil (lookup-variable-value 'f e)))))
52 | 
53 | (deftest need-to-make-copy-of-environment
54 |   (let [e (extend-environment '(a)
55 |                               '(1)
56 |                               the-empty-environment)
57 |         e2 (copy-environment e)]
58 |     (is (environments-equal? e e2))
59 |     (define-variable! 'b 2 e2)
60 |     (is (not (environments-equal? e e2)))))
61 | 
62 | (deftest can-unbind-variable-from-frame
63 |   (let [e (extend-environment '(a b c d)
64 |                               '(1 2 3 4)
65 |                               the-empty-environment)]
66 |     (is (= 1 (lookup-variable-value 'a e)))
67 |     (unbind-variable! 'a e)
68 |     (is (= (type (Error.)) (type (lookup-variable-value 'a e))))))
69 | 
70 | ; Exercise 4.16(a)
71 | (deftest unassigned-variable-gets-error
72 |   (let [e (extend-environment '(a)
73 |                               '(1)
74 |                               the-empty-environment)]
75 |     (set-variable-value! 'e '*unassigned* e)
76 |     (is (= (type (Error.)) (type (lookup-variable-value 'e e))))))
77 | 


--------------------------------------------------------------------------------
/test/ch4/scheme_test.clj:
--------------------------------------------------------------------------------
  1 | 
  2 | (ns ch4.scheme-test
  3 |   (:use clojure.test
  4 |         ch4.scheme))
  5 | 
  6 | (use-fixtures :each (fn [f] (reset-global-environment) (f)))
  7 | 
  8 | (deftest test-self-eval
  9 |   (is (= 5 (interpret 5)))
 10 |   (is (= "hey" (interpret "hey"))))
 11 | 
 12 |  (deftest test-expressions
 13 |    (are [x y] (= x y)
 14 |         3 (interpret '(+ 1 2))
 15 |         -14 (interpret '(* (- 10 3) (- 4 6)))
 16 |         8 (interpret '(* (/ 4 2) (- 6 4) (+ 1 1)))))
 17 | 
 18 |  (deftest test-quoted
 19 |    (are [x y] (= x y)
 20 |         2 (interpret '(quote 2))
 21 |         'howdy (interpret '(quote howdy))
 22 |         '(jake jim 2) (interpret '(quote (jake jim 2)))))
 23 | 
 24 |  (deftest test-if
 25 |    (are [x] (true? (interpret x))
 26 |         '(if (= 1 1) true false)
 27 |         '(if (= 1 0) false true)
 28 |         '(if 1 true false)
 29 |                                         ; '(if nil false true)
 30 |         ))
 31 | 
 32 |  (deftest test-cond
 33 |    (are [x] (true? (interpret x))
 34 |         '(cond ((= 1 2) false)
 35 |                ((= 2 2) true)
 36 |                ((= 2 3) false))
 37 |         '(cond ((= 1 2) false)
 38 |                ((= 2 3) false)
 39 |                (else true))))
 40 | 
 41 | ; For exercise 4.5
 42 |  (deftest test-different-cond-format
 43 |    (is (= 2 (interpret '(cond ((1 2 3) => cadr)
 44 |                               (else false))))))
 45 | 
 46 |  (deftest test-or
 47 |    (is (interpret '(or 5 4 3)))
 48 |    (is (false? (interpret '(or false false)))))
 49 | 
 50 |  (deftest test-and
 51 |    (is (true? (interpret '(and true true))))
 52 |    (is (false? (interpret '(and false true)))))
 53 | 
 54 |  (deftest test-vars
 55 |    (interpret '(define twelve 12))
 56 |    (is (= 12 (interpret 'twelve)))
 57 |    (is (= 14 (interpret '(+ twelve 2))))
 58 |    (interpret '(define two 2))
 59 |    (is (= 2 (interpret 'two)))
 60 |    (is (= 14 (interpret '(+ two twelve))))
 61 |    (interpret '(set! twelve 9))
 62 |    (is (= 9 (interpret 'twelve))))
 63 | 
 64 |  (deftest test-define
 65 |    (interpret
 66 |     '(define (ident a) a))
 67 |    (interpret '(define (sum a b) (+ a b)))
 68 |    (is (= 5 (interpret '(ident 5))))
 69 |    (is (= 10 (interpret '(sum 4 6))))
 70 |    (is (= 11 (interpret '(sum (ident 5) 6)))))
 71 | 
 72 |  (deftest test-lambdas
 73 |    (is (= 10 (interpret '((lambda (a b) (+ a b)) 7 3)))))
 74 | 
 75 |  (deftest test-recursive-function
 76 |    (interpret
 77 |     '(define (exp x y)
 78 |        (if (= y 1)
 79 |          x
 80 |          (exp (* x x) (- y 1)))))
 81 |    (is (= 25 (interpret '(exp 5 2)))))
 82 | 
 83 | ; Exercise 4.6
 84 |  (deftest basic-let-form-works
 85 |    (is (= 2
 86 |           (interpret '(let ((a 2))
 87 |                         a))))
 88 |    (is (= 42
 89 |           (interpret '(let ((a 2) (b 40))
 90 |                         (+ a b))))))
 91 | 
 92 | ; Exercise 4.7
 93 |  (deftest let*-works
 94 |    (is (= 42
 95 |           (interpret '(let* ((a 2)
 96 |                              (b (+ a 40)))
 97 |                             b))))
 98 |    (is (= 39
 99 |           (interpret '(let* ((x 3)
100 |                              (y (+ x 2))
101 |                              (z (+ x y 5)))
102 |                             (* x z))))))
103 | 
104 | ; Exercise 4.8
105 |  (deftest let-supports-named-let
106 |    (interpret '(define (fib n)
107 |                  (let fib-iter ((a 1)
108 |                                 (b 0)
109 |                                 (count n))
110 |                       (if (= count 0)
111 |                         b
112 |                         (fib-iter (+ a b) a (- count 1))))))
113 |    (is (= 3 (interpret '(fib 4)))))
114 | 
115 | ; Exercise 4.13
116 | (deftest can-remove-binding-from-environment
117 |   (interpret '(define a 1))
118 |   (is (= 1 (interpret 'a)))
119 |   (interpret '(make-unbound! a))
120 |   (is (= (type (Error.)) (type (interpret 'a)))))
121 | 
122 | ; Exercise 4.16
123 | (deftest scans-out-internal-definitions
124 |   (is (=
125 |        '(lambda jake
126 |                 (let ((u '*unassigned*)
127 |                       (v '*unassigned*))
128 |                   (set! u e1)
129 |                   (set! v e2)
130 |                   e3))
131 | 
132 |        (scan-out-defines
133 |         '(lambda jake
134 |                  (define u e1)
135 |                  (define v e2)
136 |                  e3)))))
137 | 
138 | (deftest scan-out-defines-returns-original-when-no-internal-defines
139 |   (let [statement '(lambda (a b c d)
140 |                            (+ a (- b (+ c d))))]
141 |     (is (= statement
142 |            (scan-out-defines statement)))))
143 | 
144 | ; Exercise 4.20
145 | (deftest letrec-works-by-transforming-into-let-set!-combo
146 |   (is (= '(let ((increment '*unassigned*))
147 |             (begin
148 |              (set! increment (lambda (n)
149 |                                      (+ 1 n)))
150 |              (increment 1)))
151 | 
152 |          (letrec->let '(letrec ((increment
153 |                                  (lambda (n)
154 |                                          (+ 1 n))))
155 |                                (increment 1))))))
156 | 
157 | (deftest letrec-can-be-evalulated
158 |   (is (= 2
159 |          (interpret '(letrec ((increment
160 |                                  (lambda (n)
161 |                                          (+ 1 n))))
162 |                                (increment 1))))))
163 | 


--------------------------------------------------------------------------------
/tools/repl.sh:
--------------------------------------------------------------------------------
1 | #!/usr/bin/env bash
2 | 
3 | java -cp .:lib/jline-0.9.94.jar:lib/clojure-1.1.0-alpha-SNAPSHOT.jar:lib/clojure-contrib.jar jline.ConsoleRunner clojure.lang.Repl
4 | 
5 | 


--------------------------------------------------------------------------------