2015-10-23から1日間の記事一覧
(define (make-segment v1 v2) (make-vect v1 v2)) (define (start-segment seg) (car seg)) (define (end-segment seg) (cdr seg))
;; listでmake (define (make-frame origin edge1 edge2) (list origin edge1 edge2)) (define (origin-frame frame) (car frame)) (define (edge1-frame frame) (cadr frame)) (define (edge2-frame frame) (caddr frame)) ;; consでmake (define (make-fra…
(define (make-vect x y) (cons x y)) (define (xcor-vect v) (car v)) (define (ycor-vect v) (cdr v)) (define (add-vect v1 v2) (make-vect (+ (xcor-vect v1) (xcor-vect v2)) (+ (ycor-vect v1) (ycor-vect v2)))) (define (sub-vect v1 v2) (make-vect…
(define (split first second) (lambda (painter n) (if (= n 0) painter (let ((smaller ((split first second) painter (- n 1)))) (first painter ((second smaller smaller)))))))
(define (up-split painter n) (if (= n 0) painter (let ((smaller (up-split painter (- n 1)))) (below painter (beside smaller smaller)))))