엔지니어

삼각형 패턴 만들기

Nj 2017. 2. 3. 22:38

위키에서 참고


https://en.wikipedia.org/wiki/Racket_(programming_language)


#lang racket

(require 2htdp/image) (let triangle_pattern1 ([n 8]) (if (zero? n) (triangle 2 'solid 'red) (let ([t (triangle_pattern1 (- n 1))]) (freeze (above t (beside t t))))))



선언빼면 불과 5줄만에 이런 패턴을 그릴 수가 있음.



반응형