Untitled

to guess
make "n 1+(random 100)
make "g 50
make "t 1
make "w 0
make "l 1
make "h 100
while [:w=0] [
pr :g
if :g=:n [make "w 1]
ifelse :g>:n [make "h :g make "g :g-(int ((:h-:l)/2))] [make "l :g make "g :g+(int ((:h-:l)/2))]
make "t :t+1 ]
pr :t
end

to incr
make "myvar 17
make "myvar :myvar+1
make "i 1
repeat 50 [pr :i make "i :i+1]
end

to incr2
make "i 2
repeat 50 [pr :i make "i :i+2]
end

to rand_walk
repeat 100 [
make "d random 101
make "a random 361
if :d>50 [setpc [255 0 0]]
if :a>180 [setpc [0 255 0] if :d>50 [setpc [255 255 0]]]
if :d<50 [if :a <100 [setpc [0 0 0]]]
fd :d rt :a ]
end

to rsquare :l
make "c (list random 255 random 255 random 255)
setpc :c
repeat 4 [fd :l rt 90]
end

to sq1 :l
repeat 4 [fd :l rt 90]
end

to squares
repeat 100 [make "l random 100 pu setxy random 100 random 100 pd rsquare :l pr :l*:l]
end

Make "a 210
Make "c [234 57 48]
Make "d 23
Make "g 6
Make "h 8
Make "i 102
Make "l 16
Make "myvar 18
Make "n 5
Make "t 6
Make "w 1