Readd wall corner collisions

src/Padding.hs

@@ -50,3 +50,9 @@ rotListAt x' xs = f x' xs []
 
 insertAt :: Int -> a -> [a] -> [a]
 insertAt i x xs = let (ys,zs) = splitAt i xs in ys ++ [x] ++ zs
+
+--listElementOthersPairs :: [a] -> [(a,[a])]
+--listElementOthersPairs (x:xs) = go [] x xs
+--  where
+--    go ys y [] = [(y,ys)]
+--    go ys y (z:zs) = (y,ys++zs): go (y:ys) z zs