8 lines
88 B
Awk
8 lines
88 B
Awk
{
|
|
x = $0
|
|
do {
|
|
y = x
|
|
x = (x + $0/x)/2
|
|
} while (x < y)
|
|
print "sqrt(" a ")=" x
|
|
}
|