게시판 인덱스

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

문제3-1에서 2친수의 타입은 모두 "crazy"로 적어 주세요.

 
글 쓰기   답변 달기     게시판 인덱스 -> 4190.210 Principles of Programming (Fall 2013)
이전 주제 보기 :: 다음 주제 보기  
글쓴이 메시지
조성근



가입: 2009년 9월 14일
올린 글: 283

올리기올려짐: 2013년9월28일 17:59    주제: 문제3-1에서 2친수의 타입은 모두 "crazy"로 적어 주세요. 인용과 함께 답변

문제3-1에서 2친수의 타입이 크기가 가변적인 pair타입이어서 답안을 작성하기가 어렵다는 학생분의 지적이 있었습니다.

2친수의 타입은 모두 "crazy"로 적어 주세요. 아래의 예를 참고하시기 바랍니다.

코드:
(define (zpn x) ; zpn: crazy -> int
  (cond ((equal? x 'z) 0)
        ((equal? x 'p) 1)
        ((equal? x 'n) -1)))

(define (crazy2val c) ; crazy2val: crazy -> int
  (cond ((pair? c)
         (let ((hd (car c)) ; hd: crazy
               (tl (cdr c))) ; tl: crazy
           (+ (* 2 (crazy2val tl)) (zpn hd))))
        (else (zpn c))))
위로
사용자 정보 보기 비밀 메시지 보내기
이전 글 표시:   
글 쓰기   답변 달기     게시판 인덱스 -> 4190.210 Principles of Programming (Fall 2013) 시간대: GMT + 9 시간(한국)
페이지 11

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


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