Difference between revisions of "Thunks and Streams Assignment"
Line 48: | Line 48: | ||
==Stream App== | ==Stream App== | ||
− | + | ===flip-flop-stream=== | |
define <code>flip-flop-stream</code> which produces #t #f #t #f #t #f #t #f... | define <code>flip-flop-stream</code> which produces #t #f #t #f #t #f #t #f... |
Revision as of 18:10, 2 July 2019
Contents
Code To Use
Code To Implement
Thunk Utilities
thunk?
define a function thunk?
which returns #t if the specified parameter is a thunk, #f otherwise.
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-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))
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...