HtDP Problem Set
Develop a function that consumes two numbers and subtracts the second number from the first without using the minus operator.
Warning: A student may use "binary" recursion rather than natural recursion on just the summand. Be prepared to grade harshly or to ask for detailed explanations.
Develop the function mod-list. The function consumes two natural numbers and produces a list of numbers between zero and the first number that are not evenly divisible by the second number. Your function should produce an error if the second number is zero.
One way to describe motion is to compute the location of an object at a given point in time:Assuming the object is at START and moves at VELOCITY then we multiply VELOCITY with t and add START to find out where the object is at time t.
; Nat -> Posn ; compute location of an object at time t if is at START and moves at VELOCITY (define (location t) (add START (mul t VELOCITY))) (define START ...) (define VELOCITY ...)
Develop the function diag2. The function consumes a time t (natural number) and computes the movement of the object as a list of point. The first point describes where the object was at time t, the last one describes it for time 1.
Develop the function bm. The function consumes two numbers (
m) and a symbol (
s). It produces a list of
nlists. Each of these lists is a list of
Hint: You need an auxiliary function.
Consider the following modification. Instead of using the same symbol over and over again, create a string that says "cell23" where 2 and 3 are (running) indices. Recall that
string-appendconcatenates two strings and that
number->stringcreates a string representation from a number. This variant is, for example, useful in Web programming.
The following program fragment draws and clears a balloon on a canvas at time
n:The assumption is that the functions work on a canvas that is at least 300 x 300 large.
; Nat -> true (define (clear-balloon n) (and (clear-solid-disk (make-posn 100 (* n 5)) RADIUS 'red) (clear-solid-line (make-posn 100 (+ (* n 5) RADIUS)) (make-posn 100 (+ (* n 5) RADIUS LENGTH)) 'black))) ; Nat -> true (define (draw-balloon n) (and (draw-solid-disk (make-posn 100 (* n 5)) RADIUS 'red) (draw-solid-line (make-posn 100 (+ (* n 5) RADIUS)) (make-posn 100 (+ (* n 5) RADIUS LENGTH)) 'black))) (define RADIUS 20) (define LENGTH 80)
Design the function
balloons. It consumes a natural number. Its task is to clear and draw a balloon that many times, at times
1. Its result is
true.To achieve a realistic effect, the function should sleep for a while (see docs of draw.ss teachpack) after drawing a balloon.
|Jamie Raymond||Matthias Felleisen|
01 december 2003