0. #lang racket
1.  
2. (define l (make-list 5000 'x))
3.  
4. (time (for ((i 1000)) (memq 'y l)))
5.  
6. (time (for ((i 1000)) (member 'y l)))

=>

cpu time: 30 real time: 28 gc time: 0

cpu time: 374 real time: 372 gc time: 0