Alex Alemi alexalemi

I hereby claim:

To claim this, I am signing this object:

	BinaryPlot[nums_, K_: 0, opts : OptionsPattern[BinaryPlot]] :=
	MatrixPlot[
	Table[BitGet[nums[[j]], i], {j, 1, Length[nums]}, {i, 0,
	If[K > 0, K, nums // Log2 // Floor // Max]}],
	Evaluate@FilterRules[{opts, { DataReversed -> {False, True},
	Mesh -> True, FrameTicks -> None, Frame -> False }},
	Options@MatrixPlot]]
	BinaryPlot::usage =
	"BinaryPlot[list] Creates and array showing the binary \
	representation of a list of numbers. Takes the same options as \