source: 2014/koodauskerho/38/VilhoP/Lumiukko.rkt @ 5823

Revision 5823, 619 bytes checked in by jotapoti, 7 years ago (diff)

DrRacket?-tehtäviä

Line 
1#lang racket
2(require 2htdp/image)
3
4(define pieni-pallo (circle 10 "solid" "red"))
5
6(define pieni-neliö (rectangle 20 20 "solid" "blue"))
7
8(define (pallo sÀde)
9  (circle sÀde "solid" "red"))
10
11(define (vÀripallo sÀde vÀri)
12  (circle sÀde "solid" vÀri))
13
14(define (neliö sivu)
15  (rectangle sivu sivu "solid" "black"))
16
17(define kolmio (triangle 20 "solid" "yellow"))
18
19(define (kasaa-neliö kuvio1 kuvio2)
20  (define ylÀrivi (beside kuvio1 kuvio2))
21  (define alarivi (beside kuvio2 kuvio1))
22  (above ylÀrivi alarivi))
23
24(define (kasaa-kolmioon kuvio)
25  (define alarivi (beside kuvio kuvio))
26  (above kuvio alarivi))
Note: See TracBrowser for help on using the repository browser.