Idiom #76 Binary digits from an integer

Create the string s of integer x written in base 2.

E.g. 13 -> "1101"

s = sprintf "%b", 13;

#include <bitset>

std::bitset<sizeof(x)*8> y(x);
auto s = y.to_string();

Convert.ToString(42,2);
// Prints : 101010
Convert.ToString(42, 2).PadLeft(8, '0');
// Prints  00101010

import std.conv;

auto s = to!string(13,2);

var s = i.toRadixString(2);

Integer.digits(x, 2) |> Enum.join("")

s = Integer.to_string(x, 2)

S = io_lib:format("~.2B~n", [X]).

write (unit=s,fmt='(B0)') 13 ! just the string length
write (unit=s,fmt='(B32)') 13 ! Fills it up with zeros

import "fmt"
import "math/big"

s := fmt.Sprintf("%b", x)

import "strconv"

s := strconv.FormatInt(x, 2)

import Numeric (showIntAtBase)
import Data.Char (intToDigit)

s x = showIntAtBase 2 intToDigit x ""

import Data.List

foldl (\acc -> (++ acc) . show) "" . unfoldr (\n -> if n == 0 then Nothing else Just (n `mod` 2, n `div` 2))

var base10number = 123

var base2number = base10number.toString(2)

String s = Integer.toBinaryString(x);

local s = {}

while x > 0 do
    local tmp = math.fmod(x,2)
    s[#s+1] = tmp
    x=(x-tmp)/2
end

s=table.concat(s)

$s = sprintf("%b", $x);

StrUtils;

var
  _x: Integer;
  _s: String;
begin
  _s := IntToBin(_x,8*SizeOf(Integer));
end.

var Iter,n:integer;
[...]
  S := '';
  for Iter := 0 to n do
    s:= Char(Ord('0')+(x shr Iter) and 1) + S;

s = '{:b}'.format(x)

s = x.to_s(2)

let s = format!("{:b}", x);

deleplace