Trabb Pardo–Knuth algorithm: Difference between revisions

ELENA 3.4.x :

<lang elena>import system'math;

import extensions.;

public program()

Array<real>[] inputs := V<new real>[](11).;

console .printLine("Please enter 11 numbers :").;

0for(int i till:= 0, i < 11, do(:i += 1)

[{

inputs[i] := console .readLine; toReal().toReal()

].};

console .printLine("Evaluating f(x) = |x|^0.5 + 5x^3 for the given inputs :").;

10for(int i to:= 10, i >= 0, do(:i -= 1)

[{

var r1 := inputs[i] absolute; sqrt.Absolute.sqrt();

var r2 := inputs[i] .power(3).;

//var r :=inputs[i] /*absolute;*/ .sqrt() + 5*r2.;

real result := (inputs[i] absolute; .Absolute.sqrt()) + 5 * (inputs[i] .power(3)).;

console .print("f(", inputs[i], ")=").;

[{

console .printLine("Overflow!")

];}

[else

console printLine(result).{

] console.printLine(result)

] }

]}</lang>