7 lines
188 B
Text
7 lines
188 B
Text
link printf
|
|
|
|
procedure main()
|
|
every put(x := [], (1 to 3) | 1e11)
|
|
every put(y := [], sqrt(!x))
|
|
every fprintf(open("filename","w"),"%10.2e %10.4e\n", x[i := 1 to *x], y[i])
|
|
end
|