Кого бы я выбрал/а в ....

[nat123]

нет, нафик,слoво надо держать...сделали из форума oкончательную помойку, тфу 33 раза, на етот раз окончательна, липразорий ядрёна кочерыжка

[Бегемот]

Бегeмот, ты понимаешь человеческий язык? Я сказал что ты не прав в отношении меня и что я тебе это забыл опять. Причем тут игнор?

Я понимаю человеческий язык.
Я не прав в отношении тебя в каком контексте?

[марик - камарик]

;; Code for CS61A project 2 -- picture language


;;;Ex. 2.44
(define (up-split painter n)
(if (= n 0)
painter
(let ((smaller (up-split painter (- n 1))))
(below painter (beside smaller smaller)))))

;;; Ex. 2.45
(define (split func1 func2)
(lambda (painter n)
(define (spl painter n)
(if (= 0 n)
painter
(let ((smaller (spl painter (- n 1))))
(func1 painter (func2 smaller smaller)))))))

;;; Ex. 2.46
(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)
(cons (+ (xcor-vect v1) (xcor-vect v2))
(+ (ycor-vect v1) (ycor-vect v2))))

(define (sub-vect v1 v2)
(cons (- (xcor-vect v1) (xcor-vect v2))
(- (ycor-vect v1) (ycor-vect v2))))

(define (add-vect s v)
(cons (* s (xcor-vect v))
(* s (ycor-vect v))))









(define (flipped-pairs painter)
(let ((painter2 (beside painter (flip-vert painter))))
(below painter2 painter2)))

(define (right-split painter n)
(if (= n 0)
painter
(let ((smaller (right-split painter (- n 1))))
(beside painter (below smaller smaller)))))

(define (corner-split painter n)
(if (= n 0)
painter
(let ((up (up-split painter (- n 1)))
(right (right-split painter (- n 1))))
(let ((top-left (beside up up))
(bottom-right (below right right))
(corner (corner-split painter (- n 1))))
(beside (below painter top-left)
(below bottom-right corner))))))

(define (square-limit painter n)
(let ((quarter (corner-split painter n)))
(let ((half (beside (flip-horiz quarter) quarter)))
(below (flip-vert half) half))))

(define (square-of-four tl tr bl br)
(lambda (painter)
(let ((top (beside (tl painter) (tr painter)))
(bottom (beside (bl painter) (br painter))))
(below bottom top))))

(define (identity x) x)

(define (flipped-pairs painter)
(let ((combine4 (square-of-four identity flip-vert
identity flip-vert)))
(combine4 painter)))

;; or

; (define flipped-pairs
; (square-of-four identity flip-vert identity flip-vert))

(define (square-limit painter n)
(let ((combine4 (square-of-four flip-horiz identity
rotate180 flip-vert)))
(combine4 (corner-split painter n))))

(define (frame-coord-map frame)
(lambda (v)
(add-vect
(origin-frame frame)
(add-vect (scale-vect (xcor-vect v)
(edge1-frame frame))
(scale-vect (ycor-vect v)
(edge2-frame frame))))))

(define (segments->painter segment-list)
(lambda (frame)
(for-each
(lambda (segment)
(draw-line
((frame-coord-map frame) (start-segment segment))
((frame-coord-map frame) (end-segment segment))))
segment-list)))

(define (draw-line v1 v2)
(penup)
(setxy (- (* (xcor-vect v1) 200) 100)
(- (* (ycor-vect v1) 200) 100))
(pendown)
(setxy (- (* (xcor-vect v2) 200) 100)
(- (* (ycor-vect v2) 200) 100)))

(define (transform-painter painter origin corner1 corner2)
(lambda (frame)
(let ((m (frame-coord-map frame)))
(let ((new-origin (m origin)))
(painter
(make-frame new-origin
(sub-vect (m corner1) new-origin)
(sub-vect (m corner2) new-origin)))))))

(define (flip-vert painter)
(transform-painter painter
(make-vect 0.0 1.0)
(make-vect 1.0 1.0)
(make-vect 0.0 0.0)))

(define (shrink-to-upper-right painter)
(transform-painter painter
(make-vect 0.5 0.5)
(make-vect 1.0 0.5)
(make-vect 0.5 1.0)))

(define (rotate90 painter)
(transform-painter painter
(make-vect 1.0 0.0)
(make-vect 1.0 1.0)
(make-vect 0.0 0.0)))

(define (squash-inwards painter)
(transform-painter painter
(make-vect 0.0 0.0)
(make-vect 0.65 0.35)
(make-vect 0.35 0.65)))

(define (beside painter1 painter2)
(let ((split-point (make-vect 0.5 0.0)))
(let ((paint-left
(transform-painter painter1
(make-vect 0.0 0.0)
split-point
(make-vect 0.0 1.0)))
(paint-right
(transform-painter painter2
split-point
(make-vect 1.0 0.0)
(make-vect 0.5 1.0))))
(lambda (frame)
(paint-left frame)
(paint-right frame)))))

;;
;; Your code goes here
;;

(define full-frame (make-frame (make-vect -0.5 -0.5)
(make-vect 2 0)
(make-vect 0 2)))

[Бегемот]

Меня бы стошнило сразу.

Ну тады предположения ваши пространные положите в долгий ящик, фителек притушите, и ступайте к своему возлюбленному делать ночь.

[omele]

Бегемот, ты понимаешь человеческий язык? Я сказал что ты не прав в отношении меня и что я тебе это забыл опять. Причем тут игнор?

Марик ,тут все твои подружки
а ты к все к Бегемоту ,к Бегемоту аппелируешь

[nat123]

Сучилище
ой ,судилище такое ;)

нет, дуну нафик, ето уже чёта сафсем перебор...обиды, матюки, кто каво и сколька трахаит...

[Бегемот]

;; Code for CS61A project 2 -- picture language


;;;Ex. 2.44
(define (up-split painter n)
(if (= n 0)
painter
(let ((smaller (up-split painter (- n 1))))
(below painter (beside smaller smaller)))))

;;; Ex. 2.45
(define (split func1 func2)
(lambda (painter n)
(define (spl painter n)
(if (= 0 n)
painter
(let ((smaller (spl painter (- n 1))))
(func1 painter (func2 smaller smaller)))))))

;;; Ex. 2.46
(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)
(cons (+ (xcor-vect v1) (xcor-vect v2))
(+ (ycor-vect v1) (ycor-vect v2))))

(define (sub-vect v1 v2)
(cons (- (xcor-vect v1) (xcor-vect v2))
(- (ycor-vect v1) (ycor-vect v2))))

(define (add-vect s v)
(cons (* s (xcor-vect v))
(* s (ycor-vect v))))









(define (flipped-pairs painter)
(let ((painter2 (beside painter (flip-vert painter))))
(below painter2 painter2)))

(define (right-split painter n)
(if (= n 0)
painter
(let ((smaller (right-split painter (- n 1))))
(beside painter (below smaller smaller)))))

(define (corner-split painter n)
(if (= n 0)
painter
(let ((up (up-split painter (- n 1)))
(right (right-split painter (- n 1))))
(let ((top-left (beside up up))
(bottom-right (below right right))
(corner (corner-split painter (- n 1))))
(beside (below painter top-left)
(below bottom-right corner))))))

(define (square-limit painter n)
(let ((quarter (corner-split painter n)))
(let ((half (beside (flip-horiz quarter) quarter)))
(below (flip-vert half) half))))

(define (square-of-four tl tr bl br)
(lambda (painter)
(let ((top (beside (tl painter) (tr painter)))
(bottom (beside (bl painter) (br painter))))
(below bottom top))))

(define (identity x) x)

(define (flipped-pairs painter)
(let ((combine4 (square-of-four identity flip-vert
identity flip-vert)))
(combine4 painter)))

;; or

; (define flipped-pairs
; (square-of-four identity flip-vert identity flip-vert))

(define (square-limit painter n)
(let ((combine4 (square-of-four flip-horiz identity
rotate180 flip-vert)))
(combine4 (corner-split painter n))))

(define (frame-coord-map frame)
(lambda (v)
(add-vect
(origin-frame frame)
(add-vect (scale-vect (xcor-vect v)
(edge1-frame frame))
(scale-vect (ycor-vect v)
(edge2-frame frame))))))

(define (segments->painter segment-list)
(lambda (frame)
(for-each
(lambda (segment)
(draw-line
((frame-coord-map frame) (start-segment segment))
((frame-coord-map frame) (end-segment segment))))
segment-list)))

(define (draw-line v1 v2)
(penup)
(setxy (- (* (xcor-vect v1) 200) 100)
(- (* (ycor-vect v1) 200) 100))
(pendown)
(setxy (- (* (xcor-vect v2) 200) 100)
(- (* (ycor-vect v2) 200) 100)))

(define (transform-painter painter origin corner1 corner2)
(lambda (frame)
(let ((m (frame-coord-map frame)))
(let ((new-origin (m origin)))
(painter
(make-frame new-origin
(sub-vect (m corner1) new-origin)
(sub-vect (m corner2) new-origin)))))))

(define (flip-vert painter)
(transform-painter painter
(make-vect 0.0 1.0)
(make-vect 1.0 1.0)
(make-vect 0.0 0.0)))

(define (shrink-to-upper-right painter)
(transform-painter painter
(make-vect 0.5 0.5)
(make-vect 1.0 0.5)
(make-vect 0.5 1.0)))

(define (rotate90 painter)
(transform-painter painter
(make-vect 1.0 0.0)
(make-vect 1.0 1.0)
(make-vect 0.0 0.0)))

(define (squash-inwards painter)
(transform-painter painter
(make-vect 0.0 0.0)
(make-vect 0.65 0.35)
(make-vect 0.35 0.65)))

(define (beside painter1 painter2)
(let ((split-point (make-vect 0.5 0.0)))
(let ((paint-left
(transform-painter painter1
(make-vect 0.0 0.0)
split-point
(make-vect 0.0 1.0)))
(paint-right
(transform-painter painter2
split-point
(make-vect 1.0 0.0)
(make-vect 0.5 1.0))))
(lambda (frame)
(paint-left frame)
(paint-right frame)))))

;;
;; Your code goes here
;;

(define full-frame (make-frame (make-vect -0.5 -0.5)
(make-vect 2 0)
(make-vect 0 2)))

упси

[Свинка-бу]

нет, нафик,слово надо держать...сделали из форума окончательную помойку, тфу 33 раза, на етот раз окончательна, липразорий ядрёна кочерыжка

нет.
не уходи.
мы умоляем.
нам будет скучно.

[Махрютка]

Тебе все это нравится? они секс семейный этим заменяют, а кемри и другие девчонки серьезно расстраиваются из-за потоков их дерьма.

кто,я? :lol:

[nat123]

причем тут мои маты.
или меня еще разговаривать начнете учить? [:lol:]
я не солнышка, ферштейн?

нет, не ферштейн, матом ето маме своей скажи, аха, подойти и прям как мне выкати