capitalex / hypot.poqs

{ [#port] [@add (x) and (y) into (where)] => [% push(vars.where, vars.x + vars.y) %] } { [#port] [@square root of (x) into (where)] => [% push(vars.where, math.sqrt(vars.x)) %] } { [#port] [@write (mesage)] => [% io.write(vars.message) %] } { [hypotenuse of (a) and (b)] => [@square of (a) into {a square is *}] [@square of (b) into {b square is *}] } { [a squared is (a)] [b squared is (b)] => [@add (a) and (b) into {a squared plus b squared is *}] } { [a squared plus b squared is (c squared)] => [@square root of (c squared) into {hypotenuse is *}] } { [show results] [hypotenuse is (c)] => [@write "The hypotenuse is "] [@write (c)] [@write "\n"] [show results] } { [show results} => } { => [hypotenuse of #3 and #4] [hypotenuse of #5 and #12] [hypotenuse of #8 and #15] [show results] }