게시판 인덱스

 
 FAQFAQ   검색검색   멤버리스트멤버리스트   사용자 그룹사용자 그룹   사용자 등록하기사용자 등록하기 
 개인 정보개인 정보   비공개 메시지를 확인하려면 로그인하십시오비공개 메시지를 확인하려면 로그인하십시오   로그인로그인 

6-3 테스트 셋입니다.

 
글 쓰기   답변 달기     게시판 인덱스 -> 4190.310 Programming Languages (Fall 2014)
이전 주제 보기 :: 다음 주제 보기  
글쓴이 메시지
주호영



가입: 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    주제: 감사합니다 인용과 함께 답변

감사합니다. 똑같이 나옵니다.
위로
사용자 정보 보기 비밀 메시지 보내기
이전 글 표시:   
글 쓰기   답변 달기     게시판 인덱스 -> 4190.310 Programming Languages (Fall 2014) 시간대: GMT + 9 시간(한국)
페이지 11

 
건너뛰기:  
새로운 주제를 올릴 수 없습니다
답글을 올릴 수 없습니다
주제를 수정할 수 없습니다
올린 글을 삭제할 수 없습니다
투표를 할 수 없습니다


Powered by phpBB 2.0.21-7 (Debian) © 2001, 2005 phpBB Group
Translated by kss & drssay