위키에서 참고


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줄만에 이런 패턴을 그릴 수가 있음.



반응형

'기타' 카테고리의 다른 글

SIP의 5가지 기능  (6) 2017.04.20
SIP 소개  (6) 2017.04.20
[TS 24.229]Procedures at the S-CSCF  (8) 2017.01.25
Windows10에서 Telnet 기능 켜기  (5) 2016.12.15
R studio(0.99.893) vim mode 설정 안 보임  (6) 2016.06.07

+ Recent posts