diff options
Diffstat (limited to 'js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3')
13 files changed, 284 insertions, 0 deletions
diff --git a/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/filter.scm b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/filter.scm new file mode 100644 index 0000000..8df22b0 --- /dev/null +++ b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/filter.scm @@ -0,0 +1,23 @@ +;;;;; cs60a/lectures/1.3/filter.scm +(define (evens nums) + (cond ((empty? nums) '()) + ((= (remainder (first nums) 2) 0) + (se (first nums) (evens (bf nums))) ) + (else (evens (bf nums))) )) + +(define (ewords sent) + (cond ((empty? sent) '()) + ((member? 'e (first sent)) + (se (first sent) (ewords (bf sent))) ) + (else (ewords (bf sent))) )) + +(define (pronouns sent) + (cond ((empty? sent) '()) + ((member? (first sent) '(I me you he she it him her we us they them)) + (se (first sent) (pronouns (bf sent))) ) + (else (pronouns (bf sent))) )) + +(define (filter pred sent) + (cond((empty? sent) '()) + ((pred (first sent))(se (first sent)(filter pred (bf sent)))) + (else (filter pred (bf sent))))) diff --git a/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html new file mode 100644 index 0000000..066ad39 --- /dev/null +++ b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html @@ -0,0 +1,19 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> +<html> + <head> + <title>Index of /~bh/61a-pages/Lectures/1.3</title> + </head> + <body> +<h1>Index of /~bh/61a-pages/Lectures/1.3</h1> + <table> + <tr><th valign="top"><img src="../../../../icons/blank.gif" alt="[ICO]"></th><th><a href="index.html?C=N%3BO=D">Name</a></th><th><a href="index.html?C=M%3BO=A">Last modified</a></th><th><a href="index.html?C=S%3BO=A">Size</a></th><th><a href="index.html?C=D%3BO=A">Description</a></th></tr> + <tr><th colspan="5"><hr></th></tr> +<tr><td valign="top"><img src="../../../../icons/back.gif" alt="[PARENTDIR]"></td><td><a href="../../Lectures">Parent Directory</a> </td><td> </td><td align="right"> - </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="filter.scm">filter.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">788 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="https://people.eecs.berkeley.edu/~bh/61a-pages/Lectures/1.3/general.scm">general.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">545 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="keep.scm">keep.scm</a> </td><td align="right">2001-08-13 16:27 </td><td align="right">780 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="roots.scm">roots.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">970 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="sum.scm">sum.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">321 </td><td> </td></tr> + <tr><th colspan="5"><hr></th></tr> +</table> +</body></html> diff --git a/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html?C=D;O=A b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html?C=D;O=A new file mode 100644 index 0000000..4e80c90 --- /dev/null +++ b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html?C=D;O=A @@ -0,0 +1,19 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> +<html> + <head> + <title>Index of /~bh/61a-pages/Lectures/1.3</title> + </head> + <body> +<h1>Index of /~bh/61a-pages/Lectures/1.3</h1> + <table> + <tr><th valign="top"><img src="../../../../icons/blank.gif" alt="[ICO]"></th><th><a href="index.html?C=N%3BO=A">Name</a></th><th><a href="index.html?C=M%3BO=A">Last modified</a></th><th><a href="index.html?C=S%3BO=A">Size</a></th><th><a href="index.html?C=D%3BO=D">Description</a></th></tr> + <tr><th colspan="5"><hr></th></tr> +<tr><td valign="top"><img src="../../../../icons/back.gif" alt="[PARENTDIR]"></td><td><a href="../../Lectures">Parent Directory</a> </td><td> </td><td align="right"> - </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="filter.scm">filter.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">788 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="https://people.eecs.berkeley.edu/~bh/61a-pages/Lectures/1.3/general.scm">general.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">545 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="keep.scm">keep.scm</a> </td><td align="right">2001-08-13 16:27 </td><td align="right">780 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="roots.scm">roots.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">970 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="sum.scm">sum.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">321 </td><td> </td></tr> + <tr><th colspan="5"><hr></th></tr> +</table> +</body></html> diff --git a/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html?C=D;O=D b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html?C=D;O=D new file mode 100644 index 0000000..774ccf1 --- /dev/null +++ b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html?C=D;O=D @@ -0,0 +1,19 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> +<html> + <head> + <title>Index of /~bh/61a-pages/Lectures/1.3</title> + </head> + <body> +<h1>Index of /~bh/61a-pages/Lectures/1.3</h1> + <table> + <tr><th valign="top"><img src="../../../../icons/blank.gif" alt="[ICO]"></th><th><a href="index.html?C=N%3BO=A">Name</a></th><th><a href="index.html?C=M%3BO=A">Last modified</a></th><th><a href="index.html?C=S%3BO=A">Size</a></th><th><a href="index.html?C=D%3BO=A">Description</a></th></tr> + <tr><th colspan="5"><hr></th></tr> +<tr><td valign="top"><img src="../../../../icons/back.gif" alt="[PARENTDIR]"></td><td><a href="../../Lectures">Parent Directory</a> </td><td> </td><td align="right"> - </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="sum.scm">sum.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">321 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="roots.scm">roots.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">970 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="keep.scm">keep.scm</a> </td><td align="right">2001-08-13 16:27 </td><td align="right">780 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="https://people.eecs.berkeley.edu/~bh/61a-pages/Lectures/1.3/general.scm">general.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">545 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="filter.scm">filter.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">788 </td><td> </td></tr> + <tr><th colspan="5"><hr></th></tr> +</table> +</body></html> diff --git a/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html?C=M;O=A b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html?C=M;O=A new file mode 100644 index 0000000..6015499 --- /dev/null +++ b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html?C=M;O=A @@ -0,0 +1,19 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> +<html> + <head> + <title>Index of /~bh/61a-pages/Lectures/1.3</title> + </head> + <body> +<h1>Index of /~bh/61a-pages/Lectures/1.3</h1> + <table> + <tr><th valign="top"><img src="../../../../icons/blank.gif" alt="[ICO]"></th><th><a href="index.html?C=N%3BO=A">Name</a></th><th><a href="index.html?C=M%3BO=D">Last modified</a></th><th><a href="index.html?C=S%3BO=A">Size</a></th><th><a href="index.html?C=D%3BO=A">Description</a></th></tr> + <tr><th colspan="5"><hr></th></tr> +<tr><td valign="top"><img src="../../../../icons/back.gif" alt="[PARENTDIR]"></td><td><a href="../../Lectures">Parent Directory</a> </td><td> </td><td align="right"> - </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="roots.scm">roots.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">970 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="sum.scm">sum.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">321 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="filter.scm">filter.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">788 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="https://people.eecs.berkeley.edu/~bh/61a-pages/Lectures/1.3/general.scm">general.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">545 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="keep.scm">keep.scm</a> </td><td align="right">2001-08-13 16:27 </td><td align="right">780 </td><td> </td></tr> + <tr><th colspan="5"><hr></th></tr> +</table> +</body></html> diff --git a/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html?C=M;O=D b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html?C=M;O=D new file mode 100644 index 0000000..a582ac1 --- /dev/null +++ b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html?C=M;O=D @@ -0,0 +1,19 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> +<html> + <head> + <title>Index of /~bh/61a-pages/Lectures/1.3</title> + </head> + <body> +<h1>Index of /~bh/61a-pages/Lectures/1.3</h1> + <table> + <tr><th valign="top"><img src="../../../../icons/blank.gif" alt="[ICO]"></th><th><a href="index.html?C=N%3BO=A">Name</a></th><th><a href="index.html?C=M%3BO=A">Last modified</a></th><th><a href="index.html?C=S%3BO=A">Size</a></th><th><a href="index.html?C=D%3BO=A">Description</a></th></tr> + <tr><th colspan="5"><hr></th></tr> +<tr><td valign="top"><img src="../../../../icons/back.gif" alt="[PARENTDIR]"></td><td><a href="../../Lectures">Parent Directory</a> </td><td> </td><td align="right"> - </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="keep.scm">keep.scm</a> </td><td align="right">2001-08-13 16:27 </td><td align="right">780 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="https://people.eecs.berkeley.edu/~bh/61a-pages/Lectures/1.3/general.scm">general.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">545 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="filter.scm">filter.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">788 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="sum.scm">sum.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">321 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="roots.scm">roots.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">970 </td><td> </td></tr> + <tr><th colspan="5"><hr></th></tr> +</table> +</body></html> diff --git a/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html?C=N;O=A b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html?C=N;O=A new file mode 100644 index 0000000..066ad39 --- /dev/null +++ b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html?C=N;O=A @@ -0,0 +1,19 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> +<html> + <head> + <title>Index of /~bh/61a-pages/Lectures/1.3</title> + </head> + <body> +<h1>Index of /~bh/61a-pages/Lectures/1.3</h1> + <table> + <tr><th valign="top"><img src="../../../../icons/blank.gif" alt="[ICO]"></th><th><a href="index.html?C=N%3BO=D">Name</a></th><th><a href="index.html?C=M%3BO=A">Last modified</a></th><th><a href="index.html?C=S%3BO=A">Size</a></th><th><a href="index.html?C=D%3BO=A">Description</a></th></tr> + <tr><th colspan="5"><hr></th></tr> +<tr><td valign="top"><img src="../../../../icons/back.gif" alt="[PARENTDIR]"></td><td><a href="../../Lectures">Parent Directory</a> </td><td> </td><td align="right"> - </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="filter.scm">filter.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">788 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="https://people.eecs.berkeley.edu/~bh/61a-pages/Lectures/1.3/general.scm">general.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">545 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="keep.scm">keep.scm</a> </td><td align="right">2001-08-13 16:27 </td><td align="right">780 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="roots.scm">roots.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">970 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="sum.scm">sum.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">321 </td><td> </td></tr> + <tr><th colspan="5"><hr></th></tr> +</table> +</body></html> diff --git a/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html?C=N;O=D b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html?C=N;O=D new file mode 100644 index 0000000..774ccf1 --- /dev/null +++ b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html?C=N;O=D @@ -0,0 +1,19 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> +<html> + <head> + <title>Index of /~bh/61a-pages/Lectures/1.3</title> + </head> + <body> +<h1>Index of /~bh/61a-pages/Lectures/1.3</h1> + <table> + <tr><th valign="top"><img src="../../../../icons/blank.gif" alt="[ICO]"></th><th><a href="index.html?C=N%3BO=A">Name</a></th><th><a href="index.html?C=M%3BO=A">Last modified</a></th><th><a href="index.html?C=S%3BO=A">Size</a></th><th><a href="index.html?C=D%3BO=A">Description</a></th></tr> + <tr><th colspan="5"><hr></th></tr> +<tr><td valign="top"><img src="../../../../icons/back.gif" alt="[PARENTDIR]"></td><td><a href="../../Lectures">Parent Directory</a> </td><td> </td><td align="right"> - </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="sum.scm">sum.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">321 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="roots.scm">roots.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">970 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="keep.scm">keep.scm</a> </td><td align="right">2001-08-13 16:27 </td><td align="right">780 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="https://people.eecs.berkeley.edu/~bh/61a-pages/Lectures/1.3/general.scm">general.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">545 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="filter.scm">filter.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">788 </td><td> </td></tr> + <tr><th colspan="5"><hr></th></tr> +</table> +</body></html> diff --git a/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html?C=S;O=A b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html?C=S;O=A new file mode 100644 index 0000000..56f6324 --- /dev/null +++ b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html?C=S;O=A @@ -0,0 +1,19 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> +<html> + <head> + <title>Index of /~bh/61a-pages/Lectures/1.3</title> + </head> + <body> +<h1>Index of /~bh/61a-pages/Lectures/1.3</h1> + <table> + <tr><th valign="top"><img src="../../../../icons/blank.gif" alt="[ICO]"></th><th><a href="index.html?C=N%3BO=A">Name</a></th><th><a href="index.html?C=M%3BO=A">Last modified</a></th><th><a href="index.html?C=S%3BO=D">Size</a></th><th><a href="index.html?C=D%3BO=A">Description</a></th></tr> + <tr><th colspan="5"><hr></th></tr> +<tr><td valign="top"><img src="../../../../icons/back.gif" alt="[PARENTDIR]"></td><td><a href="../../Lectures">Parent Directory</a> </td><td> </td><td align="right"> - </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="sum.scm">sum.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">321 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="https://people.eecs.berkeley.edu/~bh/61a-pages/Lectures/1.3/general.scm">general.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">545 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="keep.scm">keep.scm</a> </td><td align="right">2001-08-13 16:27 </td><td align="right">780 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="filter.scm">filter.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">788 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="roots.scm">roots.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">970 </td><td> </td></tr> + <tr><th colspan="5"><hr></th></tr> +</table> +</body></html> diff --git a/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html?C=S;O=D b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html?C=S;O=D new file mode 100644 index 0000000..6d7fa4e --- /dev/null +++ b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/index.html?C=S;O=D @@ -0,0 +1,19 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> +<html> + <head> + <title>Index of /~bh/61a-pages/Lectures/1.3</title> + </head> + <body> +<h1>Index of /~bh/61a-pages/Lectures/1.3</h1> + <table> + <tr><th valign="top"><img src="../../../../icons/blank.gif" alt="[ICO]"></th><th><a href="index.html?C=N%3BO=A">Name</a></th><th><a href="index.html?C=M%3BO=A">Last modified</a></th><th><a href="index.html?C=S%3BO=A">Size</a></th><th><a href="index.html?C=D%3BO=A">Description</a></th></tr> + <tr><th colspan="5"><hr></th></tr> +<tr><td valign="top"><img src="../../../../icons/back.gif" alt="[PARENTDIR]"></td><td><a href="../../Lectures">Parent Directory</a> </td><td> </td><td align="right"> - </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="roots.scm">roots.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">970 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="filter.scm">filter.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">788 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="keep.scm">keep.scm</a> </td><td align="right">2001-08-13 16:27 </td><td align="right">780 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="https://people.eecs.berkeley.edu/~bh/61a-pages/Lectures/1.3/general.scm">general.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">545 </td><td> </td></tr> +<tr><td valign="top"><img src="../../../../icons/unknown.gif" alt="[ ]"></td><td><a href="sum.scm">sum.scm</a> </td><td align="right">2000-05-30 12:38 </td><td align="right">321 </td><td> </td></tr> + <tr><th colspan="5"><hr></th></tr> +</table> +</body></html> diff --git a/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/keep.scm b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/keep.scm new file mode 100644 index 0000000..be83967 --- /dev/null +++ b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/keep.scm @@ -0,0 +1,23 @@ +;;;;; cs60a/lectures/1.3/keep.scm +(define (evens nums) + (cond ((empty? nums) '()) + ((= (remainder (first nums) 2) 0) + (se (first nums) (evens (bf nums))) ) + (else (evens (bf nums))) )) + +(define (ewords sent) + (cond ((empty? sent) '()) + ((member? 'e (first sent)) + (se (first sent) (ewords (bf sent))) ) + (else (ewords (bf sent))) )) + +(define (pronouns sent) + (cond ((empty? sent) '()) + ((member? (first sent) '(I me you he she it him her we us they them)) + (se (first sent) (pronouns (bf sent))) ) + (else (pronouns (bf sent))) )) + +(define (keep pred sent) + (cond((empty? sent) '()) + ((pred (first sent))(se (first sent)(keep pred (bf sent)))) + (else (keep pred (bf sent))))) diff --git a/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/roots.scm b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/roots.scm new file mode 100644 index 0000000..079a8b5 --- /dev/null +++ b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/roots.scm @@ -0,0 +1,47 @@ +;;; Note: all versions work only for quadratics with real roots + +;;; Straightforward but slow way: + +(define (roots a b c) + (se (/ (+ (- b) (sqrt (- (* b b) (* 4 a c)))) (* 2 a)) + (/ (- (- b) (sqrt (- (* b b) (* 4 a c)))) (* 2 a)) )) + + +;;; Using a subprocedure to eliminate the repeated computation: + +(define (roots a b c) + (define (roots1 d) + (se (/ (+ (- b) d) (* 2 a)) + (/ (- (- b) d) (* 2 a)) )) + (roots1 (sqrt (- (* b b) (* 4 a c)))) ) + + +;;; Using lambda to avoid naming the subprocedure: + +(define (roots a b c) + ((lambda (d) + (se (/ (+ (- b) d) (* 2 a)) + (/ (- (- b) d) (* 2 a)) )) + (sqrt (- (* b b) (* 4 a c))) )) + + +;;; Using let to rearrange the above: + +(define (roots a b c) + (let ((d (sqrt (- (* b b) (* 4 a c))))) + (se (/ (+ (- b) d) (* 2 a)) + (/ (- (- b) d) (* 2 a)) ))) + + + +;;; More optimization: + +(define (roots a b c) + (let ((d (sqrt (- (* b b) (* 4 a c)))) + (-b (- b)) + (2a (* 2 a))) + (se (/ (+ -b d) 2a) + (/ (- -b d) 2a) ))) + + + diff --git a/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/sum.scm b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/sum.scm new file mode 100644 index 0000000..db618e4 --- /dev/null +++ b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.3/sum.scm @@ -0,0 +1,20 @@ +(define (sumsquare a b) + (if (> a b) + 0 + (+ (* a a) (sumsquare (+ a 1) b)) )) + +(define (sumcube a b) + (if (> a b) + 0 + (+ (* a a a) (sumcube (+ a 1) b)) )) + +(define (sum fn a b) + (if (> a b) + 0 + (+ (fn a) (sum fn (+ a 1) b)))) + +(define (square x) + (* x x)) + +(define (cube x) + (* x x x)) |