Welcome to the CHICKEN Scheme pasting service

slow find-files added by mario-goulart on Mon Jun 1 20:05:12 2015

$ cat ~/misc/find-files.py 
import os.path

def find_files(dir):
    results = []
    for root, dirs, files in os.walk(dir):
        results += [os.path.join(root, file) for file in files + dirs]
    return results

find_files(".")


$ cat ~/misc/find-files.scm 
(use posix)
(find-files "." dotfiles: #t)


$ time python ~/misc/find-files.py 

real    0m0.468s
user    0m0.312s
sys     0m0.144s


$ time csi -s ~/misc/find-files.scm 

real    0m0.765s
user    0m0.584s
sys     0m0.176s

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which procedure can be used to check whether its argument is a procedure?
Visually impaired? Let me spell it for you (wav file) download WAV