Advertisement
jukaukor

Fermatabc.jl

Jul 12th, 2020
44
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.74 KB | None | 0 0
  1. #Fermat problem
  2. # a^2 + b^3 = c^7
  3. # a,b,c positive coprime integers
  4. function Fermatabc()
  5. println("Anna ylärajaluku, esim 200, 500, 1000: ")
  6. inputtxt = readline()
  7. time0 = time()
  8. n = parse(Int128,inputtxt)
  9. bn = Int128(trunc(1+n^(7.0/3.0)))
  10. a = Int128(0)
  11. b = Int128(0)
  12. c = Int128(0)
  13. a2 = Int128(0)
  14. for c = Int128(2) : n
  15. for b = Int128(3) : bn
  16. a2 = c*c*c*c*c*c*c-b*b*b
  17. if a2 > 0
  18. a = Int128(trunc(sqrt(a2)))
  19. if (a*a == a2 && gcd(a,gcd(b,c))==1)
  20. println(a," ",b," ",c)
  21. end
  22. end
  23. end
  24. end
  25. time1 = time()
  26. println("Aikaa kului ",time1-time0," sekuntia")
  27. end
  28. Fermatabc()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement