이전 주제 보기 :: 다음 주제 보기 |
글쓴이 |
메시지 |
주호영
가입: 2014년 9월 3일 올린 글: 8
|
올려짐: 2014년11월15일 19:38 주제: 6-3 테스트 셋입니다. |
|
|
다른 테스트셋
https://ropas.snu.ac.kr/phpbb/viewtopic.php?t=3493
let
rec cp = fn x =>
let
rec bb = fn y=>
if y =0 then 0
else (y+ bb(y-1))
in
if (x = 1540) then 1
else ((write x)
;cp (bb x))
end
in
write cp(4)
end
(* 4
10
55
1
*)
let rec cp =
fn x => fn z=>
let
val bg = fn a => fn b =>
let rec cm = fn a => fn b => fn delta =>
if (a+delta) = b then false
else if (a-delta) =b then true
else cm a b (delta +1)
in
if a= b then false
else cm a b 1
end
val comp = fn x =>
let rec cpp = fn y =>
if (y=1) then x
else (x+cpp(y-1))
in
cpp x
end
in
if(bg x z) then x
else (write x; cp (comp x) z)
end
in
(cp (read) (read))
end
(*
x, z를 입력하면 z 이하의 x^2^n 을 전부 출력하는 함수입니다.
ex )
5
1000
->
5
25
625
*) |
|
위로 |
|
|
김찬민
가입: 2010년 9월 6일 올린 글: 81
|
올려짐: 2014년11월15일 23:41 주제: |
|
|
감사합니다. 저도 똑같이 나옵니다. |
|
위로 |
|
|
유재민
가입: 2013년 10월 2일 올린 글: 11
|
올려짐: 2014년11월16일 15:11 주제: 감사합니다 |
|
|
감사합니다. 똑같이 나옵니다. |
|
위로 |
|
|
|