Isqrt (integer square root) of X: Difference between revisions
→{{header|Raku}}: Add thousands separators as required by task description.k
(→{{header|UNIX Shell}}: Add thousands separator.) |
(→{{header|Raku}}: Add thousands separators as required by task description.k) |
||
Line 2,930:
Quadratic residue algorithm follows:
<lang perl6>use Lingua::EN::Numbers;
$q +<= 2 while $q ≤ $X ;
while $q > 1 {
Line 2,941 ⟶ 2,942:
say (^66)».&{ isqrt $_ }.Str ;
(1, 3…73)».&{ "7**$_: " ~ comma(isqrt 7**$_) }».say</lang>
{{out}}
<pre>0 1 1 1 2 2 2 2 2 3 3 3 3 3 3 3 4 4 4 4 4 4 4 4 4 5 5 5 5 5 5 5 5 5 5 5 6 6 6 6 6 6 6 6 6 6 6 6 6 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 8 8
7**1: 2
7**3: 18
7**5: 129
7**7: 907
7**9:
7**11:
7**13:
7**15:
7**17:
7**19:
7**21:
7**23:
7**25:
7**27:
7**29:
7**31:
7**33:
7**35:
7**37:
7**39:
7**41:
7**43:
7**45:
7**47:
7**49:
7**51: 3,548,134,058,703,515,929,815
7**53: 24,836,938,410,924,611,508,707
7**55: 173,858,568,876,472,280,560,953
7**57: 1,217,009,982,135,305,963,926,677
7**59: 8,519,069,874,947,141,747,486,745
7**61: 59,633,489,124,629,992,232,407,216
7**63: 417,434,423,872,409,945,626,850,517
7**65: 2,922,040,967,106,869,619,387,953,625
7**67: 20,454,286,769,748,087,335,715,675,381
7**69: 143,180,007,388,236,611,350,009,727,669
7**71: 1,002,260,051,717,656,279,450,068,093,686
7**73: 7,015,820,362,023,593,956,150,476,655,802</pre>
=={{header|REXX}}==
| |||