Today you will get acquainted with Guile and the GNU/Linux environment, and you will start with some simple Scheme exercises.
You can find other practical suggestions at the bottom of this page.
Ensure that Guile works on your machine. Enter Guile in interactive mode with the command line:
(+ 1 2)The system should answer with
3Exit Guile by typing Ctrl+D on an empty line. Open your favorite editor and write a file called first-test.scm in your working directory, containing the text:
(+ 1 2) ;; this doesn't output anything if it's in a file (define x (+ 1 2)) ;; this doesn't output anything either (display (* x x)) ;; this prints the square of x (newline)Enter your working directory. Now we will run Guile in non-interactive mode. Execute your file with the following command line:
guile first-test.scmNow let's intentionally introduce an error into the file. Add the following line to the file:
(display (1 + 2)) ;; this is wrongTry to run the file again:
guile first-test.scmCan you understand the error message? You should! If you can't understand it, ask me. Now, without modifying the file, run it again with the command line
guile --debug first-test.scmWhen you specify the --debug option Guile is slower, but it prints better error messages; in particular, you can see line and column number.
The function load allows you to load a Scheme file when you are in interactive mode or you are running another file. Let's try it. Enter Guile in interactive mode:
guileYou are in interactive mode, so you should be able to compute directly in the interpreter:
(* 5 6)Comment out the wrong line in first-test.scm. Comments in Scheme start with ; and are terminated by the end of the line.
(load "first-test.scm")The file has been executed, and now for example you can use x, which was defined there:
(* x x)You can also exit Guile with the quit function. It's a function of zero parameters, so you have to call it like
Define a function called average for computing the average (moyenne) of two numbers. You should write your function with an editor, save the file as average.scm and test it by running
guile --debug average.scmAt the end of your file you can add one or more tests:
(display (average 3 5)) ;; it should print 4 (newline) (display (average 0 100)) ;; it should print 50 (newline)Call me if you have problems with this.
Write a function called average-of-list computing the average of a list of numbers, and test it just like in the previous task.
(display (average-of-list '(1 2 3 4))) ;; it should print 5/2 (newline)
(display (my-length '())) ;; it should print 0 (newline) (display (my-length '(a b c d))) ;; it should print 4 (newline)
(display (my-reverse '(a b c d))) ;; it should print (d c b a) (newline)
(display (my-append '(a #t c d) '(1 2 d))) ;; it should print (a #t c d 1 2 d) (newline)
Write a function called my-map taking two parameters: another function of one parameter (let's call it f), and a list (let's call it xs). my-map should apply the given function f to all the elements of xs and return the list of results. my-map is the same as the predefined function map.
(display (my-map zero? '(1 0 2 3 0 3 4))) ; it should print (#f #t #f #f #t #f #f) (newline)You have understood that map is useful for doing things that you would do with loops in other languages. What if you are not interested in the list of results but you just want to apply the function to the elements, without building anything interesting? Write the function iterate, which does just that (iterate doesn't return anything interesting). For doing this you need the begin form (look it up in the documentation if I didn't explain it).
(iterate display '(a b c d)) ; this should print abcd (newline)Can you replace begin with something else in iterate? Tell me your solution.
Implement a function called derivative, taking another
function and returning (an approximation of) its derivative.
Hints: use the mathematical definition of derivative, which you can find here. You must use lambda, and probably also let. Notice the parentheses in the following test code: derivative takes a function of one argument and returns another function of one argument.
(display ((derivative sin) 0)) ; this should print a value near 1.0 (newline) (display ((derivative (lambda (x) (* x x))) 1)) ; this should print a value near 2.0 (newline)Show me your code if you succeed in doing this.
Back to my home page...