Anonymous user
Bitcoin/public point to address: Difference between revisions
m
→{{header|Common Lisp}}: add comments citing sources
(add Common Lisp version) |
m (→{{header|Common Lisp}}: add comments citing sources) |
||
Line 104:
{{libheader|Ironclad}}
<lang lisp>
;;;; This is a revised version, inspired by a throwaway script originally
;;;; published at http://deedbot.org/bundle-381528.txt by the same Adlai.
;;; package definition
(cl:defpackage :bitcoin-address-encoder
Line 111 ⟶ 114:
(cl:in-package :bitcoin-address-encoder)
;;; secp256k1, as shown concisely in https://en.bitcoin.it/wiki/Secp256k1
;;; and officially defined by the SECG at http://www.secg.org/sec2-v2.pdf
(macrolet ((define-constants (&rest constants)
`(progn ,@(loop for (name value) on constants by #'cddr
Line 206 ⟶ 210:
</lang>
=={{header|D}}==
| |||