[SOLVED] #lang racket

#lang racket
(provide do-lazy-func rest continue)

;; Using call/cc problem

Copyright By Assignmentchef assignmentchef

;; So for this problem Id like you to implement what I call a lazy
;; function.
;; Heres some example code:
;; ((lambda ()
;; (display hello)
;; (do-lazy-func (lambda ()
;; (display 1)
;; (rest)
;; (display 2)
;; (rest)
;; (display 3)
;; 99))
;; (display goodbye)))
;; Ive enclosed this in a surrounding lambda () (a thunk) because
;; continuations in Racket can act a little inconsistently at the top
;; level but the my version works both with and without that.Yours needs
;; to work with the lambda surrounded version (and if it does itll probably
;; work without it too)
;; So lazy functions need to rest.When they do they call the global
;; rest function.This causes the do-lazy-func to immediately return.So the
;; given code prints hello1goodbye.
;; However, you can continue a resting lazy function with the global function
;; continue.If you add a (continue) (display 4) after the display goodbye,
;; you should see a hello1goodbye24.continue resumes the lazy function after the
;; rest, and when the function rests again, the continue returns and 4 is
;; displayed.Note that I dont use the return values of rest and continue in
;; these cases it doesnt matter what they return.
;; It should be possible for a lazy function to rest and be continued as many
;; times as needed.When the lazy function finally returns, the last (continue)
;; should return the value of the overall function.So this code

;; ((lambda ()
;; (display hello)
;; (do-lazy-func (lambda ()
;; (display 1)
;; (rest)
;; (display 2)
;; (rest)
;; (display 3)
;; 99))
;;(display goodbye)
;;(continue)
;;(display 4)
;;(display (continue))
;; displays hello1goodbye24399
;; You do not need to worry about the case where continue is called too many times.
;; You do not need to worry about rest being called outside of a lazy func.
;; If do-lazy-func is invoked when an already existing lazy func is still in
;; progress, the old func is lost and cannot be continued, the new func should
;; rest/continue as normal.
;; To solve this problem you may use global variables and state modifying functions
;; like set!
;; Implement this problem using call/cc directly.Do not use features
;; like corountinues or engines to solve it.

(define mycontinue ())

(define continue
(lambda ()
nyi)) ; I use nyi rather than aborting so you can play with only implementing some of these functions

(define rest
(lambda ()

(define do-lazy-func
(lambda (func)

; I included the example code down below
; feel free to uncomment/edit it for your testing.
; Note that certian buggy implementations
; will cause infinite loops and make Racket
; really unhappy.I reccommend you save
; your code before running this code or running the
; tests which have the same potential issue.

; ((lambda ()
; (display hello)
; (do-lazy-func (lambda ()
; (display 1)
; (rest)
; (display 2)
; (rest)
; (display 3)
; 99))
;(display goodbye)
;(continue)
;(display 4)
;(display (continue))

;;Used by the testing mechanism

(define-syntax nyi
(syntax-rules ()
[error nyi])))

CS: assignmentchef QQ: 1823890830 Email: [email protected]