Anonymous user
Averages/Root mean square: Difference between revisions
→{{header|Picat}}: Adding Picat
(→{{header|Prolog}}: Adding Prolog) |
(→{{header|Picat}}: Adding Picat) |
||
Line 1,498:
<pre>
6.2048368229954
</pre>
=={{header|Picat}}==
{{trans|Prolog}}
{{works with|Picat}}
<lang Picat>
rms(Xs) = Y =>
Sum = sum_of_squares(Xs),
N = length(Xs),
Y = sqrt(Sum / N).
sum_of_squares(Xs) = Sum =>
Sum = 0,
foreach (X in Xs)
Sum := Sum + X * X
end.
main =>
Y = rms(1..10),
printf("The root-mean-square of 1..10 is %f\n", Y).
</lang>
{{out}}
<pre>
The root-mean-square of 1..10 is 6.204837
</pre>
| |||