[신기정]

뭐 이정도 test 함수야 쉽게 구현하시겠지만 -_-;;

심심해서..............

# let debug lst = List.map (function lst -> (List.map print_string lst) ; (print_string " ")) lst;;
Warning S: this expression should have type unit.
val debug : string list list -> unit list = <fun>

# debug (vocalize "8801857");;
팔백팔십 천팔백오십칠 - : unit list = [(); ()]

# debug (vocalize "12345678");;
천이백삼십사 오천육백칠십팔 - : unit list = [(); ()]

# debug (vocalize "1111111");;
백십일 천백십일 - : unit list = [(); ()]

# debug (vocalize "11111111");;
천백십일 천백십일 - : unit list = [(); ()]

# debug (vocalize "00000000");;
영 영 - : unit list = [(); ()]

# debug (vocalize "0000000");;
영 영 - : unit list = [(); ()]

# debug (vocalize "0001110");;
영 천백십 - : unit list = [(); ()]

# debug (vocalize "00001110");;
영 천백십 - : unit list = [(); ()]

# debug (vocalize "1100000");;
백십 영 - : unit list = [(); ()]

# debug (vocalize "11000000");;
천백 영 - : unit list = [(); ()]

# debug (vocalize "110000");;
Exception: Error "Input Size Error".

# debug (vocalize "111100000");;
Exception: Error "Input Size Error".

# debug (vocalize "110a0000");;
Exception: Error "input Type Error".

# debug (vocalize "8075041");;
팔백칠 오천사십일 - : unit list = [(); ()]

# debug (vocalize "80075041");;
팔천칠 오천사십일 - : unit list = [(); ()]

# debug (vocalize "8070541");;
팔백칠 오백사십일 - : unit list = [(); ()]

# debug (vocalize "80700541");;
팔천칠십 오백사십일 - : unit list = [(); ()]

[최민아]

vocalize "110a0000"

와 같은 경우도 예외 처리를 해야 하나요?

밑에 글을 보니 7자리나 8자리가 아닌 경우만 하면 된다고 해서 그렇게 했는데..

저런 입력은 들어오지 않는다고 가정해도 되나요?

[장수원]

문제에서 일곱 혹은 여덟 자의 양의 정수 스트링을 받는다고 했으므로 그러한
입력은 들어오지 않는다고 가정하겠습니다.

[박상일]

몇 가지 질문 드립니다. :)

1.

# debug (vocalize "00000000");;
영 영 - : unit list = [(); ()]

위와 같은 수는 양의 정수가 아니므로 입력되지 않는 것이 아닌가요?


2.

# debug (vocalize "00001110");;
영 천백십 - : unit list = [(); ()]

# debug (vocalize "11000000");;
천백 영 - : unit list = [(); ()]

위와 같은 경우에서의 0000 등은 읽을 필요가 없는 영이 아닌가요?

[조성근]

[이치민]

테스트셋 고맙습니다