Logo

Programming-Idioms

This language bar is your friend. Select your favorite languages!
  • Fortran

Idiom #251 Parse binary digits

Extract integer value i from its binary string representation s (in radix 2)
E.g. "1101" -> 13

character (len=:), allocatable :: s
integer :: i  
s = '1101'
read (s,'(B4)') i

The B4 format means a string of length 4. The length of the field could be adjusted by constructing the format field on the fly with an internal write.
(def i (read-string (str "2r" s)))
New implementation...
< > ⌨
programming-idioms.org 
character (len=:), allocatable :: s
integer :: i  
s = '1101'
read (s,'(B4)') i

  
(def i (read-string (str "2r" s)))
int i = std::stoi(s, nullptr, 2);
int i = int.Parse(s, System.Globalization.NumberStyles.BinaryNumber);
var i = int.parse(s, radix: 2);

erlang:list_to_integer(S,2).
i, err := strconv.ParseInt(s, 2, 0)
const i = parseInt(s, 2)
int i = new BigInteger(s, 2).intValue();
Integer i = Integer.valueOf(s, 2);
int i = s.chars()
    .map(x -> x - '0')
    .reduce(0, (a, b) -> a * 2 + b);
$i = bindec($s);
i := StrToInt('%'+s);
$i = oct('0b' . $s);
i = 0
for x in map(int, s):
    i = i * 2 + x
i = int(s, 2)
i = s.to_i(2)
let i = i32::from_str_radix(s, 2).expect("Not a binary number!");