게시판 인덱스

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

[HW 6-2] 테스트셋 짜깁기

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



가입: 2011년 10월 28일
올린 글: 8

올리기올려짐: 2012년11월14일 14:49    주제: [HW 6-2] 테스트셋 짜깁기 인용과 함께 답변

2010년도 게시판인가에 있는 테셋을 짜깁기해서 올립니다. (* *)를 지웠다 말았다 하시면서 쓰시면 될 것 같아요.

코드:

(*
(
(* fibonacci *)                           
let rec f = fn x =>         
        if x = 0 then 0     
        else if x = 1 then 1
        else (f(x-1) + f(x-2))
in                           
    write f(10)             
end                         

*)


(*
(write (fn x=>x+1) 3)
*)

(*
if (write true) = (write false) then (write 1) else (write 2)

(* result
true
false
2 *)
*)

(*
write (let val x=1 in (write x) end)

(* result : 1 1 *)
*)


(*
write (
   let val x=read in (write x) end
)
(* result : sth sth *)
*)


(*
let val x = read in (read x) end

(* RUNTIME ERROR *)
*)


(*
(* PAIR *)
(let val x = (3,4) in
write x.1 + x.2
end )

(* result : 7 *)
*)


(*
(*MALLOC, BANG *)
let val x = (malloc 3, malloc 4) in
x.1 := read; x.2 := read;
write (!x.1 + !x.2)
end

(* result : input 10 20 => output 30 *)
*)


(*
(* a weird code *)
write ( (malloc (write read)) := malloc 1 )


(* input x, then x is printed,
  but immediately RE(unprintable) is raised *)
*)


(*
write ((malloc 1) = (malloc true))

(* FALSE *)
*)



그러하군요. 6-1이 아니라 6-2군요 ㅋㅋㅋ 본의아니게 낚아서 죄송합니다 ㅋㅋㅋㅋ


최성준 가 2012년11월16일 10:19에 수정함, 총 1 번 수정됨
위로
사용자 정보 보기 비밀 메시지 보내기
권민혁



가입: 2011년 10월 30일
올린 글: 8

올리기올려짐: 2012년11월15일 13:44    주제: 사..사실 인용과 함께 답변

최성준 학우님 테스트셋 감사합니다.

그런데 우리 숙제로 치면 이것은 hw6_2인 것 같아요..

확인 부탁드립니다.'- '
위로
사용자 정보 보기 비밀 메시지 보내기
이전 글 표시:   
글 쓰기   답변 달기     게시판 인덱스 -> 4190.310 Programming Languages (Fall 2012) 시간대: GMT + 9 시간(한국)
페이지 11

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


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