ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ivan Frolcov                         2:5020/175.2   22 Feb 2001  12:11:07
 To : Alexander Babanov
 Subject : Задачка ;)
 -------------------------------------------------------------------------------- 
 

 [...]
 
  AB> print ++$#{[(sprintf '%b', 666) =~ /1/g]};
  AB> Предлагается придумать новые или сократить эти ;) Особенно интересуют
  AB> менее очевидные варианты.
 
 $n=666; while($n){$v=$n&1; $n>>=1; $cnt++ if $v}; print $cnt;
 
 правда, он, на мой взгляд, самый очевидный :-)
 
 --- ifmail v.2.15
  * Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
 
 

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

Тема:    Автор:    Дата:    Задачка ;)   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