File: md5.rkt

package info (click to toggle)
racket-mode 20181003git0-2
  • links: PTS
  • area: main
  • in suites: buster
  • size: 732 kB
  • sloc: lisp: 7,641; makefile: 56
file content (8 lines) | stat: -rw-r--r-- 151 bytes parent folder | download 
1
2
3
4
5
6
7
8
 
#lang racket/base

(require file/md5)

(provide file->md5)

(define (file->md5 file)
  (call-with-input-file* file (compose bytes->string/utf-8 md5)))