14
Name:
Anonymous
2007-03-09 19:12
ID:++FOQFsK
PHP sucks, use Haskell:
[ (a, b, c, d) | a <- [1 .. 60], b <- [1 .. 60], c <- [1 .. 60], d <- [1 .. 60], a*b*c*d == 120 ]
[(1,1,2,60),(1,1,3,40),(1,1,4,30),(1,1,5,24),(1,1,6,20),(1,1,8,15),(1,1,10,12),(1,1,12,10),(1,1,15,8),(1,1,20,6),(1,1,24,5),(1,1,30,4),(1,1,40,3),(1,1,60,2),(1,2,1,60),(1,2,2,30),(1,2,3,20),(1,2,4,15),(1,2,5,12),(1,2,6,10),(1,2,10,6),(1,2,12,5),(1,2,15,4),(1,2,20,3),(1,2,30,2),(1,2,60,1),(1,3,1,40),(1,3,2,20),(1,3,4,10),(1,3,5,8),(1,3,8,5),(1,3,10,4),(1,3,20,2),(1,3,40,1),(1,4,1,30),(1,4,2,15),(1,4,3,10),(1,4,5,6),(1,4,6,5),(1,4,10,3),(1,4,15,2),(1,4,30,1),(1,5,1,24),(1,5,2,12),(1,5,3,8),(1,5,4,6),(1,5,6,4),(1,5,8,3),(1,5,12,2),(1,5,24,1),(1,6,1,20),(1,6,2,10),(1,6,4,5),(1,6,5,4),(1,6,10,2),(1,6,20,1),(1,8,1,15),(1,8,3,5),(1,8,5,3),(1,8,15,1),(1,10,1,12),(1,10,2,6),(1,10,3,4),(1,10,4,3),(1,10,6,2),(1,10,12,1),(1,12,1,10),(1,12,2,5),(1,12,5,2),(1,12,10,1),(1,15,1,8),(1,15,2,4),(1,15,4,2),(1,15,8,1),(1,20,1,6),(1,20,2,3),(1,20,3,2),(1,20,6,1),(1,24,1,5),(1,24,5,1),(1,30,1,4),(1,30,2,2),(1,30,4,1),(1,40,1,3),(1,40,3,1),(1,60,1,2),(1,60,2,1),(2,1,1,60),(2,1,2,30),(2,1,3,20),(2,1,4,15),(2,1,5,12),(2,1,6,10),(2,1,10,6),(2,1,12,5),(2,1,15,4),(2,1,20,3),(2,1,30,2),(2,1,60,1),(2,2,1,30),(2,2,2,15),(2,2,3,10),(2,2,5,6),(2,2,6,5),(2,2,10,3),(2,2,15,2),(2,2,30,1),(2,3,1,20),(2,3,2,10),(2,3,4,5),(2,3,5,4),(2,3,10,2),(2,3,20,1),(2,4,1,15),(2,4,3,5),(2,4,5,3),(2,4,15,1),(2,5,1,12),(2,5,2,6),(2,5,3,4),(2,5,4,3),(2,5,6,2),(2,5,12,1),(2,6,1,10),(2,6,2,5),(2,6,5,2),(2,6,10,1),(2,10,1,6),(2,10,2,3),(2,10,3,2),(2,10,6,1),(2,12,1,5),(2,12,5,1),(2,15,1,4),(2,15,2,2),(2,15,4,1),(2,20,1,3),(2,20,3,1),(2,30,1,2),(2,30,2,1),(2,60,1,1),(3,1,1,40),(3,1,2,20),(3,1,4,10),(3,1,5,8),(3,1,8,5),(3,1,10,4),(3,1,20,2),(3,1,40,1),(3,2,1,20),(3,2,2,10),(3,2,4,5),(3,2,5,4),(3,2,10,2),(3,2,20,1),(3,4,1,10),(3,4,2,5),(3,4,5,2),(3,4,10,1),(3,5,1,8),(3,5,2,4),(3,5,4,2),(3,5,8,1),(3,8,1,5),(3,8,5,1),(3,10,1,4),(3,10,2,2),(3,10,4,1),(3,20,1,2),(3,20,2,1),(3,40,1,1),(4,1,1,30),(4,1,2,15),(4,1,3,10),(4,1,5,6),(4,1,6,5),(4,1,10,3),(4,1,15,2),(4,1,30,1),(4,2,1,15),(4,2,3,5),(4,2,5,3),(4,2,15,1),(4,3,1,10),(4,3,2,5),(4,3,5,2),(4,3,10,1),(4,5,1,6),(4,5,2,3),(4,5,3,2),(4,5,6,1),(4,6,1,5),(4,6,5,1),(4,10,1,3),(4,10,3,1),(4,15,1,2),(4,15,2,1),(4,30,1,1),(5,1,1,24),(5,1,2,12),(5,1,3,8),(5,1,4,6),(5,1,6,4),(5,1,8,3),(5,1,12,2),(5,1,24,1),(5,2,1,12),(5,2,2,6),(5,2,3,4),(5,2,4,3),(5,2,6,2),(5,2,12,1),(5,3,1,8),(5,3,2,4),(5,3,4,2),(5,3,8,1),(5,4,1,6),(5,4,2,3),(5,4,3,2),(5,4,6,1),(5,6,1,4),(5,6,2,2),(5,6,4,1),(5,8,1,3),(5,8,3,1),(5,12,1,2),(5,12,2,1),(5,24,1,1),(6,1,1,20),(6,1,2,10),(6,1,4,5),(6,1,5,4),(6,1,10,2),(6,1,20,1),(6,2,1,10),(6,2,2,5),(6,2,5,2),(6,2,10,1),(6,4,1,5),(6,4,5,1),(6,5,1,4),(6,5,2,2),(6,5,4,1),(6,10,1,2),(6,10,2,1),(6,20,1,1),(8,1,1,15),(8,1,3,5),(8,1,5,3),(8,1,15,1),(8,3,1,5),(8,3,5,1),(8,5,1,3),(8,5,3,1),(8,15,1,1),(10,1,1,12),(10,1,2,6),(10,1,3,4),(10,1,4,3),(10,1,6,2),(10,1,12,1),(10,2,1,6),(10,2,2,3),(10,2,3,2),(10,2,6,1),(10,3,1,4),(10,3,2,2),(10,3,4,1),(10,4,1,3),(10,4,3,1),(10,6,1,2),(10,6,2,1),(10,12,1,1),(12,1,1,10),(12,1,2,5),(12,1,5,2),(12,1,10,1),(12,2,1,5),(12,2,5,1),(12,5,1,2),(12,5,2,1),(12,10,1,1),(15,1,1,8),(15,1,2,4),(15,1,4,2),(15,1,8,1),(15,2,1,4),(15,2,2,2),(15,2,4,1),(15,4,1,2),(15,4,2,1),(15,8,1,1),(20,1,1,6),(20,1,2,3),(20,1,3,2),(20,1,6,1),(20,2,1,3),(20,2,3,1),(20,3,1,2),(20,3,2,1),(20,6,1,1),(24,1,1,5),(24,1,5,1),(24,5,1,1),(30,1,1,4),(30,1,2,2),(30,1,4,1),(30,2,1,2),(30,2,2,1),(30,4,1,1),(40,1,1,3),(40,1,3,1),(40,3,1,1),(60,1,1,2),(60,1,2,1),(60,2,1,1)]