Skip to content

Instantly share code, notes, and snippets.

@SaitoAtsushi

SaitoAtsushi/gist:6163282

Created August 6, 2013 09:57
Show Gist options
  • Save SaitoAtsushi/6163282 to your computer and use it in GitHub Desktop.
Save SaitoAtsushi/6163282 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
;;CRC32 bench
(import (scheme base))
(cond-expand
((library (rfc zlib))
(import (prefix (rfc zlib) zlib:))))
(cond-expand
(gauche (import (gauche time)))
(sagittarius (import (time)))
(else (define time values)))
(cond-expand
((library (rfc zlib))
(time (zlib:crc32 (make-bytevector (* 1024 1024 400) 80)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment