Thunks and Streams Assignment
Contents
Code To Use
Code To Implement
| file: | src/main/racket/hw4/hw4.rkt |  |
| functions: | thunk? thunk-that dethunk-that ... |
Thunk Utilities
thunk?
define a function thunk? which returns #t if the specified parameter is a thunk, #f otherwise.
(define (thunk? th)
(error 'not-yet-implemented))
thunk MACRO
define a macro thunk which creates thunk
dethunk
define a function dethunk which takes a thunk parameter th and returns the result of invoking th.
Stream Utilities
plausible-stream?
define a function plausible-stream? which returns #t if the specified parameter is a thunk which when invoked returns a pair whose cdr is a thunk, #f otherwise.
WARNING: what could happen if you called plausible-stream? recursively on the cdr?
next-value-from-stream
define a function next-value-from-stream which takes a stream parameter and returns the next value of that stream.
next-stream-from-stream
define a function next-stream-from-stream which takes a stream parameter and returns the next stream of that stream.
stream-next
BONUS method not officially part of the studio but a good idea.
define a function stream-next which takes a stream parameter and returns a pair of values for the next value and the next stream.
stream-cons
define a function stream-cons which takes two parameters value and stream-prime. if the specified stream-prime parameter is not a thunk then an error should be raised:
(raise (error "not a thunk" stream-prime))
If stream-prime is a thunk it should simply cons value and stream-prime. Do NOT create a thunk.
WARNING: what could happen if you called plausible-stream? on stream-prime?
Stream App
flip-flop-stream
define flip-flop-stream which produces #t #f #t #f #t #f #t #f...
