document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. routine HoboPuzzle
  2. {
  3. local i,j,k,l, o
  4.  
  5. for (i=1;i<=14 ;i++ )
  6. {
  7. if i = o
  8. break
  9. for (j=(i+1);j<=14 ;j++ )
  10. {
  11. for (k=(j+1);k<=14 ;k++ )
  12. {
  13. for (l=(k+1);l<=14 ;l++ )
  14. {
  15. if (j*j + i * i + k * k + l * l) = 200
  16. {
  17. print number i ; " " ; number j; " "; number k; " "; number l
  18. if not o
  19. o = j
  20. }
  21. }
  22. }
  23. }
  24. }
  25. }
');