Anonymous user
Bitcoin/public point to address: Difference between revisions
m
→{{header|Common Lisp}}: add comment explaining what the CL:ASSERT function does
m (→{{header|Common Lisp}}: add comments citing sources) |
m (→{{header|Common Lisp}}: add comment explaining what the CL:ASSERT function does) |
||
Line 193:
;;; encodes arbitrary coordinates into a Pay-To-Pubkey-Hash address
(defun pubkey-to-p2pkh (x y)
;; ... ok, the previous comment was a lie; the following line verifies that
;; the coordinates correspond to a rational point on the curve, and gives a
;; few chances to correct typos in either of the coordinates interactively.
(assert (e x y) (x y) "The point (~D, ~D) is off the curve secp256k1." x y)
(labels ((digest (hashes bytes)
| |||