fork download
  1. <?php
  2.  
  3. $petla = fgets(STDIN);
  4. for ($i = 0; $i<$petla; $i++)
  5. {
  6. $qty_n = fgets(STDIN);
  7. $table = array_map("floatval", explode(" ", trim(fgets(STDIN))));
  8. $l1 = $table[0];
  9. if ($l1 != 0)
  10. {
  11. for ($j = 1; $j<$qty_n; $j++)
  12. {
  13. $l1 = NWW($l1, $table[$j]);
  14. }
  15. printf('%.0f', $l1);
  16. echo "\n";
  17. unset ($table);
  18. }
  19. else
  20. {
  21. echo $l1;
  22. }
  23. }
  24.  
  25. function NWW($l1, $l2)
  26. {
  27. $tmp1 = $l1;
  28. $tmp2 = $l2;
  29. if ($l1 != $l2)
  30. {
  31. while ($l2 <> 0)
  32. {
  33. $d = fmod($l1, $l2);
  34. $l1 = $l2;
  35. $l2 = $d;
  36. }
  37. }
  38. return ($tmp1*$tmp2)/$l1;
  39. }
Success #stdin #stdout 0.02s 24708KB
stdin
3
3
2 3 5
3
6 9 15
5
15421 234126 3213427 1234223 231341
stdout
30
90
43021558551176450924347392