aikuisten-koodikoulu.rkt

(require 2htdp/image)

;; pinta-ala : Luku Luku -> Luku
(define (pinta-ala a b)
  (* a b))

(check-expect (pinta-ala 5 10) 50)


;; ympyrä : Luku Merkkijono -> Kuva
(define (ympyrä säde väri)
  (circle säde "solid" väri))

(check-expect (ympyrä 50 "blue")
              (circle 50 "solid" "blue"))

;; pallot : Luku Väri -> Kuva
(define (pallot r väri)
  (beside (ympyrä r väri)
          (ympyrä r väri)
          (ympyrä r väri)))

;; risti : Luku Luku Väri -> Kuva
(define (risti a b väri)
  (overlay (rectangle a b "solid" väri)
           (rectangle b a "solid" väri)))

;; suorakulmio : Merkkijono -> Kuva
(define (suorakulmio väri)
  (rectangle 175 35 "solid" väri))


(define (liettuan-lippu)
  (above (suorakulmio "yellow")
         (suorakulmio "green")
         (suorakulmio "red")))


;; lipun-rajat : -> Kuva
(define (lipun-rajat)
  (rectangle 175 105 "outline" "black"))

(define (japanin-lippu)
  (overlay (circle 25 "solid" "red")
           (lipun-rajat)))

(define (venäjän-lippu)
  (overlay (lipun-rajat)
           (above (suorakulmio "white")
                  (suorakulmio "blue")
                  (suorakulmio "red"))))

(define (suomen-lippu)
  (overlay (lipun-rajat)
           (overlay/offset
            (rectangle 175 20 "solid" "blue")
            -30 0
            (rectangle 20 105 "solid" "blue"))))



(define liettuan-värit (list "yellow" "red" "green"))
(define liettuan-lipun-osat (map suorakulmio liettuan-värit))


(define guinean-värit (list "red" "yellow" "green"))
(define belgian-värit (list "black" "yellow" "red"))
(define ranskan-värit (list "blue" "white" "red"))

;; trikolorin-palkki : Merkkijono -> Kuva
(define (trikolorin-palkki väri)
  (rectangle 60 105 "solid" väri))

;; trikolorin-osat : Lista -> Lista
(define (trikolorin-osat värit)
  (map trikolorin-palkki värit))

;; trikolori : Lista -> Kuva
(define (trikolori värit)
  (apply beside (trikolorin-osat värit)))


(define guinean-lippu (trikolori guinean-värit))

(define belgian-lippu (trikolori belgian-värit))

(define ranskan-lippu (trikolori ranskan-värit))