
Somehow, it feels like I am posting to a brick wall.
Here's a picture I made in Photoshop when I was tired just now.
Now you too can be a vector and escape a black hole (possibly an ocean scene)


lists = nub $ map sort [ [[a,b,c],[d,c,h],[e,h,i],[f,i,j],[g,j,b]] | n@[a,b,c,d,e,f,g,h,i,j] <- permutations [1..10], ring n ]
ring [a,b,c,d,e,f,g,h,i,j] = (length $ nub $ map sum [[a,b,c],[d,c,h],[e,h,i],[f,i,j],[g,j,b]]) == 1
answer = read $ concatMap show $ head $ map concat lists :: Integer
