IsaacShoebottom/CS4613
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tweak lab4 syntax

Browse Source
This commit is contained in:
Isaac Shoebottom 2025-02-05 10:54:58 -04:00
parent fe11450530
commit add499872f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Labs/04.rkt
View File

@ -36,7 +36,7 @@
[(MPair n t) [(MPair n t)
(type-case MList (unbox t) (type-case MList (unbox t)
[(Empty) (set-box! t lst2)] [(Empty) (set-box! t lst2)]
[else (set-last! (unbox t) lst2)])] [else (set-last! (unbox t) lst2)])]
[(Empty) (error 'empty "cannot set tail")])) [(Empty) (error 'empty "cannot set tail")]))
(define test-lst1 (mlist '(1 2 3))) (define test-lst1 (mlist '(1 2 3)))
@ -50,8 +50,8 @@
; cycle ; cycle
(define (cycle lst) (define (cycle lst)
(type-case MList lst (type-case MList lst
[(MPair n t) (begin (set-last! lst lst) lst)] [(Empty) (Empty)]
[(Empty) (Empty)])) [else (begin (set-last! lst lst) lst)]))
(define small-cycle (cycle (mlist '(0 1 2)))) (define small-cycle (cycle (mlist '(0 1 2))))
(define big-cycle (cycle big-mlist)) (define big-cycle (cycle big-mlist))