29644
anaran
<string>hexadecimal string to nested binary string list</string>
(mapcar
(lambda (c)
(let ((number (string-to-number (char-to-string c) 16))
result)
(dotimes (bit 4 result)
(if (> (logand (expt 2 bit) number) 0)
(push "1" result)
(push "0" result)))))
"d41d8cd98f00b204e9800998ecf8427e")
->
(("1" "1" "0" "1")
("0" "1" "0" "0")
("0" "0" "0" "1")
("1" "1" "0" "1")
("1" "0" "0" "0")
("1" "1" "0" "0")
("1" "1" "0" "1")
("1" "0" "0" "1")
("1" "0" "0" "0")
("1" "1" "1" "1")
("0" "0" "0" "0")
("0" "0" "0" "0")
("1" "0" "1" "1")
("0" "0" "1" "0")
("0" "0" "0" "0")
("0" "1" "0" "0")
("1" "1" "1" "0")
("1" "0" "0" "1")
("1" "0" "0" "0")
("0" "0" "0" "0")
("0" "0" "0" "0")
("1" "0" "0" "1")
("1" "0" "0" "1")
("1" "0" "0" "0")
("1" "1" "1" "0")
("1" "1" "0" "0")
("1" "1" "1" "1")
("1" "0" "0" "0")
("0" "1" "0" "0")
("0" "0" "1" "0")
("0" "1" "1" "1")
("1" "1" "1" "0"))
3372185239
#xemacs
1
sachac
<string>String hack</string>
(let ((hex-string "d41d8cd98f00b204e9800998ecf8427e"))
(mapconcat
(lambda (x)
(nth (string-to-number x 16)
'("0000" "0001" "0010" "0011"
"0100" "0101" "0110" "0111"
"1000" "1001" "1010" "1011"
"1100" "1101" "1110" "1111")))
(split-string hex-string "" t) ""))
3372185544
#xemacs