Sum of squares: Difference between revisions
m
→{{header|Wren}}: Changed to Wren S/H
imported>Arakov |
m (→{{header|Wren}}: Changed to Wren S/H) |
||
| (One intermediate revision by one other user not shown) | |||
Line 2,666:
5.25
</pre>
=={{header|Refal}}==
<syntaxhighlight lang="refal">$ENTRY Go {
= <Prout <SquareSum 1 2 3 4 5>>
};
SquareSum {
= 0;
s.N e.rest = <+ <* s.N s.N> <SquareSum e.rest>>;
};</syntaxhighlight>
{{out}}
<pre>55</pre>
=={{header|ReScript}}==
Line 3,112 ⟶ 3,124:
=={{header|Wren}}==
<syntaxhighlight lang="
var v = [1, 2, 3, -1, -2, -3]
| |||