| 이전 주제 보기 :: 다음 주제 보기 |
| 글쓴이 |
메시지 |
신동진
가입: 2015년 9월 10일
올린 글: 8
|
 올려짐: 2015년11월8일 10:52 주제: 과제 5-1 테스트케이스 몇 가지 |
 |
|
| 코드: | let proc f(x) = (x := 10000; 1) in
write (2+f(1))
|
| 코드: | let proc f(n) = n := n + 3 in
let n := 2 in
let m := n * 2 in
for m := 0 to n do
for n := 0 to m do
write (f<n>)
|
| 코드: | let proc f(x) =
if x = 0 then 1 else if (x/2)*2 = x then x + (f(x-1)) else (x := x - 1; x * (f<x>))
in
write (f(10))
|
| 코드: | let n := 15 in
let proc f(h) =
let n := h in
(for h := 1 to h/10 do
(for h := 0 to 10/h do h := n - h); write(h := n)); h * 2
in
let proc h(n) =
(write f<n>; if n = 1 then write 0 else if (n/2)*2 = n then h(n/2) else h((3*n)+1)) in
h (n)
|
각 케이스들의 올바른 결과는 ./run -k 로 확인하시면 될것같네요. |
|
| 위로 |
|
 |
김형모
가입: 2014년 9월 3일
올린 글: 37
|
| 올려짐: 2015년11월8일 19:21 주제: |
|
|
| 감사합니다. 전부 같게 나옵니다. |
|
| 위로 |
|
|
서장호
가입: 2015년 9월 3일
올린 글: 8
|
| 올려짐: 2015년11월8일 21:46 주제: |
|
|
감사합니다.
전부 같게 나옵니다. |
|
| 위로 |
|
|
강동호
가입: 2015년 9월 3일
올린 글: 17
|
| 올려짐: 2015년11월8일 22:14 주제: 감사합니다! |
|
|
| 감사합니다! 전부 같게 나오네요! |
|
| 위로 |
|
|
|
FAQ
검색
멤버리스트
사용자 그룹
사용자 등록하기
개인 정보
비공개 메시지를 확인하려면 로그인하십시오
로그인
