Create shortestList.hs

I feel like this could of been done better.