Now school has finished forever, I have lots of free time and am working a little bit of at my real place of employment. In other news, I have been doing a lot of nothing lately. This mostly consists of going for walks and thinking about things or surfin' the internets.
Typical sites to visit include:
- Superuser.com
- stackoverflow.com
- reddit.com
- projecteuler.net
- facebook.com
- 4walled.org for the best in random unlimited wallpaper works
Other than these there's the usual comics and another one I realised I hadn't finished reading all of yet. buttersafe.com
And if you can figure out what is going wrong here, I'll give you a prize:
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
