6 lines
143 B
Scheme
6 lines
143 B
Scheme
#lang scheme/base
|
|
(require (prefix-in mz: file/md5))
|
|
(define (md5 s)
|
|
(bytes->string/latin-1 (mz:md5 (string->bytes/utf-8 s))))
|
|
(provide md5)
|