Welcome to the CHICKEN Scheme pasting service

silly md5/simple-md5/openssl/md5sum benchmark added by wasamasa on Fri Jul 9 11:35:28 2021

; ; ls -la small medium large 
-rw-r--r-- 1 wasa wasa 4294967296 Jun 24 16:42 large
-rw-r--r-- 1 wasa wasa    4194304 Jun 24 16:40 medium
-rw-r--r-- 1 wasa wasa       4096 Jun 24 16:40 small
; ; for f in small medium large; do time ./openssl "$f"; done
859662b37db970c2fcea7b604eb3c355  small
./openssl "$f"  0.01s user 0.00s system 71% cpu 0.009 total
7a41bc74f071a0efed223345df1f49c0  medium
./openssl "$f"  0.02s user 0.00s system 94% cpu 0.022 total
06701f325ce9d8ce0f2d59943a194448  large
./openssl "$f"  8.93s user 1.05s system 99% cpu 10.035 total
; ; for f in small medium large; do time ./md5 "$f"; done
859662b37db970c2fcea7b604eb3c355  small
./md5 "$f"  0.01s user 0.00s system 71% cpu 0.019 total
7a41bc74f071a0efed223345df1f49c0  medium
./md5 "$f"  0.01s user 0.01s system 83% cpu 0.022 total

Error: number does not fit in foreign type: 4294967296

        Call history:

        md5.scm:4: chicken.load#load-extension
        type-errors-numbers.impl.scm:4: chicken.load#load-extension
        type-errors-atoms.scm:8: chicken.load#load-extension
        type-errors-atoms.impl.scm:14: chicken.load#load-extension
        type-errors-structured.impl.scm:4: chicken.load#load-extension
        type-errors.scm:9: chicken.load#load-extension
        type-errors.scm:9: chicken.load#load-extension
        type-errors.scm:9: chicken.load#load-extension
        md5.scm:5: chicken.load#load-extension
        md5.scm:11: chicken.process-context#command-line-arguments
        md5.scm:9: md5#md5-primitive
        md5.scm:9: message-digest-item#message-digest-file              <--
./md5 "$f"  0.00s user 0.00s system 92% cpu 0.008 total
;_; for f in small medium large; do time ./simple-md5 "$f"; done
859662b37db970c2fcea7b604eb3c355  small
./simple-md5 "$f"  0.00s user 0.00s system 76% cpu 0.011 total
7a41bc74f071a0efed223345df1f49c0  medium
./simple-md5 "$f"  0.02s user 0.00s system 91% cpu 0.020 total

Error: number does not fit in foreign type: 4294967296

        Call history:

        simple-md5.scm:4: chicken.load#load-extension
        simple-md5.scm:9: chicken.process-context#command-line-arguments
        simple-md5.scm:8: simple-md5#file-md5sum                <--
./simple-md5 "$f"  0.01s user 0.00s system 93% cpu 0.007 total
;_; for f in small medium large; do time md5sum "$f"; done
859662b37db970c2fcea7b604eb3c355  small
md5sum "$f"  0.00s user 0.00s system 45% cpu 0.003 total
7a41bc74f071a0efed223345df1f49c0  medium
md5sum "$f"  0.01s user 0.00s system 97% cpu 0.012 total
06701f325ce9d8ce0f2d59943a194448  large
md5sum "$f"  6.58s user 0.73s system 99% cpu 7.337 total
; ;

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What's the equality predicate for strings in R5RS?
Visually impaired? Let me spell it for you (wav file) download WAV