Square root by hand: Difference between revisions

{{draft task}}

 

 

=={{header|C#|CSharp}}==

{{Trans|Visual Basic .NET}}

{{libheader|System.Numerics}}

using static System.Math;

using static System.Console;

if (n0 > 0) WriteLine("\nTime taken for {0} digits: {1}", n0, DateTime.Now - st); }

 

Time taken for 500 digits: 00:00:00.0092331

</pre>

 

=={{header|Go}}==

{{trans|Visual Basic .NET}}

 

import (

var hundred = big.NewInt(100)

 

j := new(big.Int).Sqrt(i)

k := new(big.Int).Set(j)

d := new(big.Int).Set(j)

t := new(big.Int)

digits := 0

for digits < limit {

t.Mul(k, d)

i.Sub(i, t)

digits = digits + 1

}

}

 

func main() {

 

{{out}}

</pre>

 

 

 

 

{{out}}

<small>(the final "2" was re-joined up by hand)</small>

<pre>

</pre>

 

=={{header|REXX}}==

 

It also handles the placing of a decimal point &nbsp; (if needed).

signal on halt /*handle the case of user interrupt. */

parse arg xx digs . /*obtain optional arguments from the CL*/

if xx=='' | xx=="," then xx= 2 /*Not specified? Then use the default.*/

numeric digits digs + digs % 2 /*ensure enough decimal digits for calc*/

call sqrtHand xx, digs /*invoke the function for sqrt by hand.*/

return r /*R is the integer square root of Z. */

/*──────────────────────────────────────────────────────────────────────────────────────*/

if ?==0 then ?= /*handle the case of sqrt < 1. */

L= length(?) /*L: used to place dec. point.*/

{{out|output|text=&nbsp; when using the default inputs:}}

<pre>

</pre>

<pre>

</pre>

{{out|output|text=&nbsp; when using the inputs of: &nbsp; &nbsp; <tt> 625 </tt>}}

25

</pre>

 

=={{header|Visual Basic .NET}}==

{{libheader|System.Numerics}}

 

Module Module1

If n0 > 0 Then WriteLine (VbLf & "Time taken for {0} digits: {1}", n0, DateTime.Now - st)

End Sub

 

Output with command line parameter of 500:<pre style="height:32ex; overflow:scroll; white-space:pre-wrap;">14142135623730950488016887242096980785696718753769480731766797379907324784621070388503875343276415727350138462309122970249248360558507372126441214970999358314132226659275055927557999505011527820605714701095599716059702745345968620147285174186408891986095523292304843087143214508397626036279952514079896872533965463318088296406206152583523950547457502877599617298355752203375318570113543746034084988471603868999706990048150305440277903164542478230684929369186215805784631115966687130130156185689872372

Time taken for 500 digits: 00:00:00.0263710</pre>

 

=={{header|Wren}}==

{{trans|Visual Basic .NET}}

{{libheader|Wren-big}}

 

var sqrt = Fn.new { |n, limit|

var i = BigInt.new(n)

var j = i.isqrt

var k = j

var d = j

var digits = 0

while (digits < limit) {

i = (i - k*d) * 100

k = j * 20

digits = digits + 1

}

}

 

 

{{out}}

</pre>