ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : HB                                   2:5020/400     22 Feb 2001  18:08:48
 To : Alexander Babanov
 Subject : Re: Задачка ;)
 -------------------------------------------------------------------------------- 
 

 Wed Feb 21 2001 21:52, Alexander Babanov wrote to All:
 
  AB> Тут жену как-то спросили как на сях посчитать число еденичек в бинарном
  AB> представлении числа. Hу, на сях писать было в ломы, я решил попробовать
  AB> на эхотаге.
 
 for (x=666, n=0; n+= x&1, x>>=1; );
 
 либо
 
 x=666; n=0; while (n+= x&1, x>>=1);
 
 Это на C. А на Perl... добавить '$' перед переменными и ' {}' после while?
 
 $x=666; $n=0; while ($n+= $x&1, $x>>=1) {}
 
 -- 
 HB      mailto:npecca@yahoo.com?subject=Usenet
 
 --- ifmail v.2.15dev5
  * Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Задачка ;)   Alexander Babanov   21 Feb 2001 22:52:37   Задачка ;)   Ivan Frolcov   22 Feb 2001 12:11:07   Re: Задачка ;)   HB   22 Feb 2001 18:08:48   Re: Задачка ;)   Yuriy Kaminskiy   23 Feb 2001 11:55:27