File : calcrms.bush

$ bush calcrms
 6.20483682299543E+00

#!/usr/local/bin/bush

-- From Rosetta Code

pragma annotate( "calcrms" );
pragma annotate( "" );
pragma annotate( "Compute the Root mean square of the numbers 1..10." );
pragma annotate( "The root mean square is also known by its initial RMS (or rms), and as the" );
pragma annotate( "quadratic mean.  The RMS is calculated as the mean of the squares of the" );
pragma annotate( "numbers, square-rooted" );
pragma annotate( "translated by Ken O. Burtch" );

procedure calcrms is
  type float_arr is array(1..10) of float;
  list : float_arr := (1.0,2.0,3.0,4.0,5.0,6.0,7.0,8.0,9.0,10.0);
  sum  : float := 0.0;
  rms  : float;
begin
  for p in arrays.first(list)..arrays.last(list) loop
      sum := @ + list(p)**2;
  end loop;
  rms := numerics.sqrt( sum / float(arrays.length(list)));
  ?  rms;
end calcrms;