Welcome to the CHICKEN Scheme pasting service

gunzip? added by akkad on Tue Mar 14 02:19:33 2017

(use z3)

(define (gunzip file file-new)
  (let ((gzip-stream (z3:open-compressed-input-file file)))
    (call-with-output-file file-new
      (copy-port gzip-stream file-new))))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which R5RS procedure returns `'(2 3)' when given `'(1 2 3)' as input?
Visually impaired? Let me spell it for you (wav file) download WAV