e-ivaldi

e-ivaldi / gist:0f8a112fa9061daa1062e4b72f706205

Created June 8, 2017 16:09

	let rec encode (o:obj) =
	let x = ofObject o in
	let b = toBytes x in
	let length = List.length b in
	let lenghtInByte = List.head (toBytes (Int length)) in
	let lenghtOfLenghtBinaryFormInByte = List.head (toBytes(Int(String.length (intToBinary length)))) in
	match x with
	\| String s ->
	match length with
	\| 0 -> [0x80uy]

e-ivaldi / gist:c85168bd3c9121ca248a

Created February 10, 2015 11:35

e-ivaldi / gist:f03ae064c6f52071c9ca

Created February 10, 2015 11:12