[오성민]

4-1, 6-4, 6-7 에서 각각
1, 2, 2점씩 감점되었는데
어떻게 틀렸는지 궁금합니다.

감사합니다.

[김윤승]

4-1에서는

(output
(lambda ()
(let* ([frequencies (list (cons "e" 10))]
[codes (vlencode frequencies)]
[wf? (wellformed? frequencies codes)]
[score (compute-score frequencies codes)])
(and wf? (equal? 10 score)))))


과 같이 한 단어만 나올 때 에러가 발생했습니다.

6-4
let _ = output (fun () -> (eval (ANDALSO ((NOT (ORELSE (FALSE, FALSE))), (ANDALSO ((ORELSE (TRUE, FALSE)), (ANDALSO ((ORELSE (FALSE, TRUE)), (ORELSE (TRUE, TRUE))))))))) = true)


6-7
let _ = output (fun () -> check (MONE NIL, MONE NIL))

과 같은 테스트에서 감점이 되었네요.

[오성민]

6-7에서 check 함수는 어떤건가요???

문제에는 없는 함수인거같은데...

[김윤승]

저 두 개를 더했을 때 결과를 실제 답과 비교하는 함수입니다.