fork download 
  1. | m x epsilon delta |
  2. m := 100.
  3. x := 1.
  4. epsilon := 10 raisedTo: m negated.
  5. [(delta := -2 * x * x + 1 * x / 2) abs > epsilon] whileTrue: [x := x + delta].
  6. ((x * 2) asScaledDecimal: m) printNl
Success #stdin #stdout 0.03s 336448KB
comments (?)
stdin 
Standard input is empty
stdout 
1.4142135623730950488016887242096980785696718753769480731766797379907324784621070388503875343276415727s100
https://ideone.com/MwgorF
language:
Smalltalk (gst 3.2.5)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!