Jewels and Stones - list intersection in lisp
Decreasing String - int-char (lisp)