include <stdio.h>
#include <math.h>
#include <time.h>
int f(const char *name, double *d);

/* Ф-ия, получающая имя файла с вещественной последовательностью неизвестной длины.
 * Она записывает по адресу d среднее квадратическое отклонения чисел этого файла от их среднего арифметического.
 * Возвращает:
 * длину последовательности, в случае успешного завершения;
 * -1, если не удалось открыть файл;
 * -2, если не удалось прочитать элемент.
 * */
int f(const char *name, double *d)
{
    FILE *input;
    double x, arith = 0, arith_of_squares = 0;
    int n = 0;

    if( !(input = fopen(name, "r")) )
        return -1;
    // Файл открыт

    // Подсчет количества элементов последовательности
    while( fscanf(input, "%lf", &x)==1 ) { n++; }
    if( !feof(input) ) {
        fclose(input);
        return -2;
    }
    // Все элементы можно прочитать

    rewind(input);

    while( fscanf(input, "%lf", &x)==1 )
    {
        arith += x/n;
        arith_of_squares += x*x/n;
    }
    *d = sqrt(arith_of_squares - arith*arith);
    return n;
}

int main(int argc, const char *argv[])
{
    double d;
    clock_t begin_time, end_time;

    if(argc!=2)
    {
        fprintf(stderr, "Usage: %s name_of_file\n", argv[0]);
        return -1;
    }

    begin_time = clock();
    printf("f(%s, &d) returned %d\n", argv[1], f(argv[1], &d));
    end_time = clock();
    printf("d==%.16lf\ntime==%lf\n", d, (double)(end_time - begin_time)/CLOCKS_PER_SEC);

    return 0;
}