> 1 <

Автор Сообщение

PACTBOP_KOBAPEH

Members


Статус

11 сообщений

Где: Russia
Род занятий:
Возраст:

#7390   2014-06-07 11:49 GMT+3 часа(ов)      
Заменить в списке вещественных чисел все нули на пренебрежимо малое положительное число. Вот аналог на С:

void without_zeros(double* z, size_t n)
{
while( n-- ) {
if( *z == 0.0 ) {
*z = 0.0001;
}
++z;
}
}

PACTBOP_KOBAPEH

Members


Статус

11 сообщений

Где: Russia
Род занятий:
Возраст:

#7392   2014-06-07 16:21 GMT+3 часа(ов)      
Сообразил.

(define (without-zeros lst)
(define (unzero x)
(if (= x 0)
0.0001
x
)
)
(map unzero lst)
)
> 1 <


Онлайн :

0 пользователь(ей), 32 гость(ей) :




Реклама на сайте: