Anonymous user
Bitcoin/public point to address: Difference between revisions
m
→{{header|Common Lisp}}: separate code from invocation
m (→{{header|Common Lisp}}: add comment explaining what the CL:ASSERT function does) |
m (→{{header|Common Lisp}}: separate code from invocation) |
||
Line 205:
(let ((point (sovcat '(4) (integer-to-octets x) (integer-to-octets y))))
(base58enc (checksum (sovcat '(0) (digest '(ripemd-160 sha256) point)))))))
</lang>
Here's an example of how to feed a point into the functions defined above:
<lang>
;; ? (pubkey-to-p2pkh
| |||