현재 위치

홈 ›› 블로그 ›› handrake의 블로그

Scheme으로 루저 인증 해보기

handrake의 이미지
글쓴이: handrake / 작성시간: 화, 2009/11/17 - 10:09오전

(가벼운 유머로 쓴 글입니다.)

오늘도 컴퓨터 앞에 앉아 할 일 없이 뉴스검색 하다 갑자기 머리에 번개가 치듯 떠오르는 코드가 있어 여기 적어봅니다.

(define (are-you-loser? age height)
    (if (> height 180)
        #f
        (if (>= age 20)
            #t
            (are-you-loser? (+ age 1) (+ height (random 10))))))

SICP에서 강조하는 함수형 프로그래밍이 이런 것이군요.

P.S. ytt123님 오타지적 감사합니다.

댓글

ytt123의 이미지

글쓴이: ytt123 / 작성시간: 화, 2009/11/17 - 10:31오전

http://rki.kbs.co.kr/korean/koreannetwork/koreannetwork_koreanlanguage_detail.htm?No=622

dl3zp3의 이미지

글쓴이: dl3zp3 / 작성시간: 목, 2009/11/19 - 2:41오전

Emacs Lisp 버전

(defun are-you-loser? (age height)
  (if (> height 180)
      nil
    (if (>= age 20)
	t
      (are-you-loser? (+ age 1) (+ height (random 10))))))

둘러보기