Select Code to Download

C:\>sqrt 701 25
26.4764404223228
...

C:\>sqrt 120 10
10.9544511505092

($n,$_)=@ARGV;while(1){$_=($_+$n/$_)/2;($l^$_)||print&&exit;$l=$_}