이전 주제 보기 :: 다음 주제 보기 |
글쓴이 |
메시지 |
하재승 손님
|
올려짐: 2007년11월5일 17:08 주제: 제가 썼던 GC 테스트용 프로그램입니다. |
|
|
코드: | let
proc fib_r(n) =
(if n < 2 then 1 else fib_r(n-1)+fib_r(n-2))
in
let
proc fib(n) =
let
a := 1; b := 1; c := 0; i := 0
in
while i < n-1 do (c := a+b; b := a; a := c; i:=i+1); a
in
write fib_r(20);
write fib(20);
let
i:=1; j:=1
in
while i<100 do
(
j:=1;
while j<100 do
(write ((write i)*(write j)) ; j:=j+1);
i:=i+1
)
|
피보나치 20까지 재귀/비재귀로 구하고, 100*100 구구단표를 찍는프로그램입니다. |
|
위로 |
|
|
남기웅
가입: 2007년 10월 10일 올린 글: 17
|
올려짐: 2007년11월5일 19:10 주제: |
|
|
올려 주셔서 감사합니다~
테스트 셋 올려주시는 분이 최고 멋짐 ^^ |
|
위로 |
|
|
|
|
새로운 주제를 올릴 수 없습니다 답글을 올릴 수 없습니다 주제를 수정할 수 없습니다 올린 글을 삭제할 수 없습니다 투표를 할 수 없습니다
|
Powered by phpBB 2.0.21-7 (Debian) © 2001, 2005 phpBB Group Translated by kss & drssay
|