게시판 인덱스

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

숙제 5 간단(?)한 테스트 셋입니다.

 
이 게시판은 잠겼으므로 글을 올리거나, 답변을 하거나 수정을 할 수 없습니다   이 주제는 잠겼으므로 답변을 하거나 수정을 할 수 없습니다     게시판 인덱스 -> 4190.310 Programming Languages (Fall 2010)
이전 주제 보기 :: 다음 주제 보기  
글쓴이 메시지
김예성



가입: 2010년 9월 3일
올린 글: 8

올리기올려짐: 2010년10월30일 3:08    주제: 숙제 5 간단(?)한 테스트 셋입니다. 인용과 함께 답변

구현한 5-2에 다음 소스를 넣어줍니다.

factorial(4)에 대한 코드입니다.

코드:
(fn mul =>
        (rec fac x => (ifzero x then 1 else (mul (x, fac (x - 1))))))
(rec mul pair => ifzero pair.1 then 0 else (pair.2 + (mul (pair.1 -1,pair.2))))
4


(과제와 직접적인 연관이 있을 것 같아서 제 인코딩 결과는 공개하지 않습니다. Surprised )

인코딩이 나오면 5-1(Lambda Calculus)에 넣고 돌려봅니다.

코드:
\f.\x.(f) ((f) ((f) ((f) ((f) ((f) ((f) ((f) ((f) ((f) ((f) ((f) ((f) ((f) ((f) ((f) ((f) ((f) ((f) ((f) ((f) ((f) ((f) ((f) (x))))))))))))))))))))))))


요렇게 24를 뜻하는 인코딩이 나오면 맞는거 같습니다.

모두 과제 마무리 잘하세요 -

+) and에 대한 문법은 위에서 테스트를 하지 않고 있습니다.
위로
사용자 정보 보기 비밀 메시지 보내기
신기정



가입: 2009년 9월 15일
올린 글: 83

올리기올려짐: 2010년10월30일 8:37    주제: 저도 간단한 테스트셋 하나 인용과 함께 답변

저도 간단한 테스트셋 하나

피보나치 수열의 여섯번째 항

인용:

(rec fac x => (ifzero x then 0 else (ifzero (x - 1) then 1 else (fac (x - 2) + fac (x - 1))))) 6



결과는 8에 해당하는 적절한 람다식 저 같은 경우는
인용:

\bk31.\bl31.(bk31) ((bk31) ((bk31) ((bk31) ((bk31) ((bk31) ((bk31) ((bk31) (bl31))))))))


이렇게 나오네요~
위로
사용자 정보 보기 비밀 메시지 보내기
이전 글 표시:   
이 게시판은 잠겼으므로 글을 올리거나, 답변을 하거나 수정을 할 수 없습니다   이 주제는 잠겼으므로 답변을 하거나 수정을 할 수 없습니다     게시판 인덱스 -> 4190.310 Programming Languages (Fall 2010) 시간대: GMT + 9 시간(한국)
페이지 11

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


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