Isqrt (integer square root) of X: Difference between revisions
Content added Content deleted
(Added Easylang) |
Not a robot (talk | contribs) (Add SETL) |
||
Line 6,317: | Line 6,317: | ||
71 1,004,525,211,269,079,039,999,221,534,496,697,502,180,541,686,174,722,466,474,743 1,002,260,051,717,656,279,450,068,093,686 |
71 1,004,525,211,269,079,039,999,221,534,496,697,502,180,541,686,174,722,466,474,743 1,002,260,051,717,656,279,450,068,093,686 |
||
73 49,221,735,352,184,872,959,961,855,190,338,177,606,846,542,622,561,400,857,262,407 7,015,820,362,023,593,956,150,476,655,802</pre> |
73 49,221,735,352,184,872,959,961,855,190,338,177,606,846,542,622,561,400,857,262,407 7,015,820,362,023,593,956,150,476,655,802</pre> |
||
=={{header|SETL}}== |
|||
<syntaxhighlight lang="setl">program isqrt; |
|||
loop for i in [1..65] do |
|||
putchar(lpad(str isqrt(i), 5)); |
|||
if i mod 13=0 then print(); end if; |
|||
end loop; |
|||
print(); |
|||
loop for p in [1, 3..73] do |
|||
sqrtp := isqrt(7 ** p); |
|||
print("sqrt(7^" + lpad(str p,2) + ") = " + lpad(str sqrtp, 32)); |
|||
end loop; |
|||
proc isqrt(x); |
|||
q := 1; |
|||
loop while q<=x do |
|||
q *:= 4; |
|||
end loop; |
|||
z := x; |
|||
r := 0; |
|||
loop while q>1 do |
|||
q div:= 4; |
|||
t := z-r-q; |
|||
r div:= 2; |
|||
if t>=0 then |
|||
z := t; |
|||
r +:= q; |
|||
end if; |
|||
end loop; |
|||
return r; |
|||
end proc; |
|||
end program;</syntaxhighlight> |
|||
{{out}} |
|||
<pre> 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 |
|||
sqrt(7^ 1) = 2 |
|||
sqrt(7^ 3) = 18 |
|||
sqrt(7^ 5) = 129 |
|||
sqrt(7^ 7) = 907 |
|||
sqrt(7^ 9) = 6352 |
|||
sqrt(7^11) = 44467 |
|||
sqrt(7^13) = 311269 |
|||
sqrt(7^15) = 2178889 |
|||
sqrt(7^17) = 15252229 |
|||
sqrt(7^19) = 106765608 |
|||
sqrt(7^21) = 747359260 |
|||
sqrt(7^23) = 5231514822 |
|||
sqrt(7^25) = 36620603758 |
|||
sqrt(7^27) = 256344226312 |
|||
sqrt(7^29) = 1794409584184 |
|||
sqrt(7^31) = 12560867089291 |
|||
sqrt(7^33) = 87926069625040 |
|||
sqrt(7^35) = 615482487375282 |
|||
sqrt(7^37) = 4308377411626977 |
|||
sqrt(7^39) = 30158641881388842 |
|||
sqrt(7^41) = 211110493169721897 |
|||
sqrt(7^43) = 1477773452188053281 |
|||
sqrt(7^45) = 10344414165316372973 |
|||
sqrt(7^47) = 72410899157214610812 |
|||
sqrt(7^49) = 506876294100502275687 |
|||
sqrt(7^51) = 3548134058703515929815 |
|||
sqrt(7^53) = 24836938410924611508707 |
|||
sqrt(7^55) = 173858568876472280560953 |
|||
sqrt(7^57) = 1217009982135305963926677 |
|||
sqrt(7^59) = 8519069874947141747486745 |
|||
sqrt(7^61) = 59633489124629992232407216 |
|||
sqrt(7^63) = 417434423872409945626850517 |
|||
sqrt(7^65) = 2922040967106869619387953625 |
|||
sqrt(7^67) = 20454286769748087335715675381 |
|||
sqrt(7^69) = 143180007388236611350009727669 |
|||
sqrt(7^71) = 1002260051717656279450068093686 |
|||
sqrt(7^73) = 7015820362023593956150476655802</pre> |
|||
=={{header|Seed7}}== |
=={{header|Seed7}}== |