This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;; SHA-1 and SHA-2 implementations. | |
;;;; Uses R7RS bytevector and byte I/O interfaces. | |
;;;; Requires SRFIs 1, 26, 43, and 60. | |
;;; Auxiliary definitions to avoid having to use giant tables of constants. | |
(define primes80 '(2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 | |
79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157 | |
163 167 173 179 181 191 193 197 199 211 223 227 229 233 239 | |
241 251 257 263 269 271 277 281 283 293 307 311 313 317 331 |
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.