Color swap

to setup ca crt 20 [ setxy random-xcor random-ycor set color one-of [ red green blue]] reset-ticks end

to swap-colors [t1 t2]
  let temp [color] of t1
  ask t1 [ set color [color] of t2 ]
  ask t2 [ set color temp ]
end 

to go
  ask turtles [
    let partner one-of (turtles in-radius 2)
    if partner != nobody [
      swap-colors self partner

    ]
    rt random 30 - 15
    fd .5
  ]
  tick
end