Haircut solutions

Haircut was solved using Racket by 2 contestants. Solution sizes: average 1709 bytes (shortest: 1502; longest: 1917).