게시판 인덱스

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

factorial 세가지 버젼 테스트 프로그램

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





올리기올려짐: 2007년11월21일 15:52    주제: factorial 세가지 버젼 테스트 프로그램 인용과 함께 답변

코드:

let
  val I = fn x => x
  val J = fn x => x
  val K = fn x => fn y => y x
  val writef = fn x => write x
  val r = malloc 1

in
let rec mul = fn y => fn x => if (y = 0) then 0 else x+(mul x (y-1))
in
let rec fac = fn x => if (x = 0) then 1 else mul x (fac (x-1))
in
let rec fac2 = fn x => fn y=> if (x = 0) then y else fac2 (x-1) (mul x y)
in
let rec fac3 = fn x => fn r=> if (x = 0) then r:=1 else (fac3 (x-1) r; r := (mul x !r ))
in
    K ((I J (fn x=>x)) 3 ) writef;
    write (mul 10 10);
    K (fac 9) writef;
    K (fac2 9 1) writef;
    r := 5;
    fac3 9 r;
    write !r
end
end
end
end
end
위로
이전 글 표시:   
이 게시판은 잠겼으므로 글을 올리거나, 답변을 하거나 수정을 할 수 없습니다   이 주제는 잠겼으므로 답변을 하거나 수정을 할 수 없습니다     게시판 인덱스 -> 4190.310 Programming Languages (Fall 2007) 시간대: GMT + 9 시간(한국)
페이지 11

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


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