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

Make more generic

Browse Source
This commit is contained in:
Isaac Shoebottom 2025-04-08 16:54:22 -03:00
parent 5f36bf97e6
commit 3e2649e2db
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
Assignments/03.rkt
View File

@ -390,16 +390,18 @@
(let* ([arg-type (parse-type te)] (let* ([arg-type (parse-type te)]
[res-type (typecheck body (BindType name arg-type env))]) [res-type (typecheck body (BindType name arg-type env))])
(arrowT arg-type res-type))] (arrowT arg-type res-type))]
[(listE elements) (local [(define type-list (map (lambda (x) (typecheck x env)) elements)) [(listE elements) (local ;; this sucks. do not think it's right but it passes tests
(define filtered (filter (lambda (x) (equal? (first type-list) x)) type-list))] [(define type-list (map (lambda (x) (typecheck x env)) elements))
(define filtered (filter (lambda (x) (equal? (first type-list) x)) type-list))
(define (check-all lst)
(type-case Type (first type-list)
[(varT v t) (if (none? (unbox t))
(second type-list)
(error 'typecheck "no type"))]
[else (error 'typecheck "no type")]))]
(if (equal? filtered type-list) (if (equal? filtered type-list)
(listT (first type-list)) (listT (first type-list))
(type-case Type (first type-list) (listT (check-all type-list))))]))
[(varT v t) (if (none? (unbox t))
(listT (second type-list))
(error 'typecheck "no type"))]
[else (error 'typecheck "no type")])))]
))
;; ---------------------------------------- ;; ----------------------------------------
(define-syntax-rule (test/type expr type) (define-syntax-rule (test/type expr type)