Dmitry Zhariy (dzhariy)

Как в одну строчку на Perl определить, что число $n степень двойки?

#260797
from E545D6FE, 29 months ago

← All messages

Replies (16)

Post a reply (xmpp)

@teferi:
например так — $pow = sprintf ("%#b", $num) =~ '^0b10+$';
Если степень 2ки — получим в $pow получим единичку =)
#260797/1
from Home, 29 months ago
@dzhariy:
@teferi При $num = 1; возвращает "false" а ведь 1 — это тоже степень двойки :)
#260797/2
from E545D6FE, 29 months ago
@teferi:
@dzhariy да, да. чуть поспешил. но это легко исправить заменив + на *
#260797/3
from Home, 29 months ago
@teferi:
@teferi можно еще вот так — $pow = ((sprintf ("%#b", $num) =~ '^0b10*$') or ($num == 0));
А вот если считать что 1/4 например тоже степень двойки, то надо подумать. =)
#260797/4
from Home, 29 months ago
@dzhariy:
@teferi вот только что хотел сказать про отрицательные степени :) А так, решение хорошее :)
#260797/5
from E545D6FE, 29 months ago
@dzhariy:
@teferi пожалуй не стоит заморачиватся с отрицательными степенями :) Все равно мало где используется. Решение хорошее и очень даже "Перловое" :) Суровые Сишники решили бы эту проблему через бинарные операции ;)
#260797/6
from E545D6FE, 29 months ago
@teferi:
@dzhariy я вот на самом деле сейчас силюсь придумать нормальное решение с бинарными операциями. там кстати с нолем не нужно сравнивать — можно в регулярке перед единицей ? поставить. тоесть (sprintf ("%b", $num) =~ '^1?0*$');
#260797/7
from Home, 29 months ago
@dzhariy:
@teferi — тест пройден, это решение еще более совершенно :)
#260797/8
from E545D6FE, 29 months ago
@teferi:
@teferi достаточно вроде $num = $num>>1 while not $num%2; Если в нум осталась единица — то степень 2ки. в любом случае такая штука конечно работать дюже быстрее будет чем любая регулярка, тольк с 0 надо придумать что-то.
#260797/9
from Home, 29 months ago
@dzhariy:
@teferi А-а-а-а забыл сказать почти самое главное, сорри. Циклы использовать нельзя
#260797/10
from E545D6FE, 29 months ago
@dzhariy:
@teferi в том числе goto и оператор "x" ;)
#260797/11
from E545D6FE, 29 months ago
@teferi:
@dzhariy хых ну с этого начинать надо было =))))
#260797/12
from Home, 29 months ago
@dzhariy:
@teferi да, правильно поставленая задача — это 90% решения :)
#260797/13
from E545D6FE, 29 months ago
@dzhariy:
Benchmark: timing 10000000 iterations of Binary, Regex1, Regex2...
Binary: 5 wallclock secs ( 3.73 usr + 0.00 sys = 3.73 CPU) @ 2678093.20/s
(n=10000000)
Regex1: 10 wallclock secs ( 9.17 usr + 0.00 sys = 9.17 CPU) @ 1090274.75/s
(n=10000000)
Regex2: 9 wallclock secs ( 8.12 usr + 0.00 sys = 8.12 CPU) @ 1230920.73/s
(n=10000000)

code:
use Benchmark qw(:all);
$num = 2;
$count = 10000000;
timethese($count, {
'Binary' => sub { $pow = "some secret ;)"; },
'Regex1' => sub { $pow = ((sprintf ("%#b", $num) =~ '^0b10*$') or ($num == 0)); },
'Regex2' => sub { $pow = sprintf ("%b", $num) =~ ^1?0*$; },
});
#260797/14
from E545D6FE, 29 months ago
@teferi:
@dzhariy !(x&(x-1)); конечно же! даже странно что вчера так долго думал как его парвильно завернуть.
#260797/15
from Home, 29 months ago
@dzhariy:
@teferi Эмм... да. Правильно ;)
#260797/16
from CB97B6B4, 29 months ago

Dmitry Zhariy (dzhariy)

Subscribe

Replies (16)

Messages

Tags all

Search

Statistics