Update all new Tasks
This commit is contained in:
parent
00a190b0a6
commit
91df62d461
5697 changed files with 93386 additions and 804 deletions
9
Task/Munching-squares/Racket/munching-squares.rkt
Normal file
9
Task/Munching-squares/Racket/munching-squares.rkt
Normal file
|
|
@ -0,0 +1,9 @@
|
|||
#lang racket
|
||||
(require racket/draw)
|
||||
(define palette (for/vector ([x 256]) (make-object color% 0 0 x)))
|
||||
(define bm (make-object bitmap% 256 256))
|
||||
(define dc (new bitmap-dc% [bitmap bm]))
|
||||
(for* ([x 256] [y 256])
|
||||
(define c (vector-ref palette (bitwise-xor x y)))
|
||||
(send dc set-pixel x y c))
|
||||
bm
|
||||
Loading…
Add table
Add a link
Reference in a new issue