1:":"; exec mzscheme -r $0 "$@"
2:
3:(require (lib "vector-lib.ss" "srfi" "43"))
4:(require (lib "string.ss" "srfi" "13"))
5:
6:
7:(define load-file
8: (lambda (fname)
9: (printf "Loading file: ~a\n" fname)
10: (call-with-input-file fname
11: (lambda (p)
12: (read-string (file-size fname) p)))))
13:
14:
15:(define count-words
16: (lambda (wordlist)
17: (for-each (lambda (word)
18: (printf "~a\n" word))
19: wordlist)))
20:
21:
22:;;; main steps
23:(begin
24: (vector-for-each (lambda (i fname)
25: (count-words (string-tokenize (load-file fname))))
26: argv))