Isqrt (integer square root) of X: Difference between revisions
Content added Content deleted
(Added VTL-2) |
|||
Line 6,592: | Line 6,592: | ||
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 |
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|VTL-2}}== |
|||
<syntaxhighlight lang="vtl2"> |
|||
1000 X=0 |
|||
1010 #=2000 |
|||
1020 $=32 |
|||
1030 ?=R |
|||
1040 X=X+1 |
|||
1050 #=X=33=0*1070 |
|||
1060 ?="" |
|||
1070 #=X<66*1010 |
|||
1080 P=1 |
|||
1090 X=7 |
|||
1100 #=2000 |
|||
1110 ?="" |
|||
1120 ?="Root 7^"; |
|||
1130 ?=P |
|||
1140 ?="("; |
|||
1150 ?=X |
|||
1160 ?=") = "; |
|||
1170 ?=R |
|||
1180 X=X*49 |
|||
1190 P=P+2 |
|||
1200 #=P<4*1100 |
|||
1210 #=9999 |
|||
2000 A=! |
|||
2010 Q=1 |
|||
2020 #=X>Q=0*2050 |
|||
2030 Q=Q*4 |
|||
2040 #=2020 |
|||
2050 Z=X |
|||
2060 R=0 |
|||
2070 #=Q<2*A |
|||
2080 Q=Q/4 |
|||
2090 T=Z-R-Q |
|||
2100 I=Z<(R+Q) |
|||
2110 R=R/2 |
|||
2120 #=I*2070 |
|||
2130 Z=T |
|||
2140 R=R+Q |
|||
2150 #=2070 |
|||
</syntaxhighlight> |
|||
{{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 |
|||
Root 7^1(7) = 2 |
|||
Root 7^3(343) = 18 |
|||
</pre> |
</pre> |
||