| 배요한 Site Admin
 
 
 가입: 2018년 3월 6일
 올린 글: 107
 
 
 | 
			
				|  올려짐: 2018년9월15일 20:52    주제: 숙제 2 test case [0917추가] |   |  
				| 
 |  
				| 안녕하세요, 수강생 여러분. 
 조교팀에서 숙제 테스트케이스를 하나씩 올려드립니다. 각 문제에서 제시하는 return type을 꼭 확인 해 주세요!
 
 당부의 말씀 : 본 게시판은 숙제 공지와 더불어 질의 응답 및 수강생들의 참여의 장으로 사용됩니다.
 따라서, 수강생들끼리 질문/대답하고 자신이 만든 테스트 케이스를 만들어 보고 답도 같이 공유해 보셨으면 합니다.
   
 1.
 [Test]
 
  	  | 코드: |  	  | calculate(SIGMA(INT 1, ADD(X,X), X)) | 
 [Value]
 
  	  | 코드: |  	  | Exception: FreeVariable. | 
 
 (** 0917추가 **)
 Exception: FreeVariable에 마침표(.) 추가
 
 
 [Test]
 
  	  | 코드: |  	  | calculate(INTEGRAL(REAL 1.0, REAL (-5.0), X)) | 
 [Value]
 
  	  | 코드: |  	  | - : float = 12.3000000000000114 | 
 
 (** 0917추가 **)
 ocaml 인터프리터에 보이는 그대로 출력 형식을 맞춤
 ocaml에서 실수 연산으로 인해 오차가 생길 수 있습니다. 때문에 오차 범위를 주고 범위 안에 들어가면 정답으로 인정하는 방식을 취할 예정이니 참고해 주시길 바랍니다.
 
 
 2.
 [Test]
 
  	  | 코드: |  	  | let exp =SUM ([TIMES [CONST 5; TIMES([VAR "x";VAR "x"])]; CONST 1]) in
 diff(exp, "x")
 
 | 
 [Value]
 “미분된 것을 될 수 있으면 최소의 꼴로 줄이거나 등등의 작업을 하는 것은 자유입니다. “ 라는 조건으로 인하여 답의 표현이 다양할 수 있습니다. 이 글의 답글로 자신의 아웃풋을 올려놓아서 수강생들과 공유 해 보는건 어떨까요?
 
 
 3.
 [Test]
 
  	  | 코드: |  	  | let heap1 = NODE (1, 1, NODE (0, 5, EMPTY, EMPTY), NODE (0, 3, EMPTY, EMPTY)) in let heap2 = NODE (0, 2, NODE (0, 4, EMPTY, EMPTY), EMPTY) in
 findMin(merge (heap1, heap2))
 | 
 [Value]
 
 (** 0917추가 **)
 ocaml 인터프리터에 보이는 그대로 출력 형식을 맞춤
 
 4.
 [Test]
 
  	  | 코드: |  	  | let (n, queue') = IntListQ.deQ (IntListQ.enQ(IntListQ.enQ(IntListQ.emptyQ, [1;2;3]), [4;5]));;
 
 | 
 [Value]
 
  	  | 코드: |  	  | val n : int list = [1; 2; 3] val queue' : int list list * int list list = ([], [[4; 5]])
 | 
 (** 0917추가 **)
 ocaml 인터프리터에 보이는 그대로 출력 형식을 맞춤
 |  |