2016 Update
This commit is contained in:
parent
948b86eafa
commit
dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
|
|
@ -1,11 +1,3 @@
|
|||
(define-library (lib sha1)
|
||||
(export
|
||||
sha1:digest)
|
||||
|
||||
(import (r5rs base)
|
||||
(owl math) (owl list) (owl string) (owl list-extra))
|
||||
(begin
|
||||
|
||||
; band - binary AND operation
|
||||
; bor - binary OR operation
|
||||
; bxor - binary XOR operation
|
||||
|
|
@ -166,4 +158,3 @@
|
|||
(->32 (+ C c))
|
||||
(->32 (+ D d))
|
||||
(->32 (+ E e)))))))))
|
||||
))
|
||||
|
|
|
|||
|
|
@ -1,4 +1,3 @@
|
|||
(import (lib sha1))
|
||||
(define (->string value)
|
||||
(runes->string
|
||||
(let ((L "0123456789abcdef"))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue