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

=>

cpu time: 3 real time: 3 gc time: 0

cpu time: 37 real time: 38 gc time: 0