Return to Answer

added 4 characters in body

Source Link

edited Dec 10, 2018 at 15:09

Perl 5, 37 bytes

sub{sprintf("%064b",@_)=~/^0*/;length$&;$+[0]}

Or this 4346 bytes if the "stringification" is not allowed: sub z

sub{my$i=0;$_[0]>>64-$_?last:$i++for 1..64;$i}

{sprintf("%064b",@_)=~/^0*/;length$&}

Or this 43 bytes if the "stringification" is not allowed: sub z

{my$i=0;$_[0]>>64-$_?last:$i++for 1..64;$i}

sub{sprintf("%064b",@_)=~/^0*/;$+[0]}

Or this 46 bytes if the "stringification" is not allowed: sub z

sub{my$i=0;$_[0]>>64-$_?last:$i++for 1..64;$i}

Source Link

created Dec 10, 2018 at 12:45

{sprintf("%064b",@_)=~/^0*/;length$&}

Or this 43 bytes if the "stringification" is not allowed: sub z

{my$i=0;$_[0]>>64-$_?last:$i++for 1..64;$i}