| Paste number 70132: | read-file |
| Pasted by: | blink-left |
| When: | 3 years, 6 months ago |
| Share: | Tweet this! | http://paste.lisp.org/+1I44 |
| Channel: | #dylan |
| Paste contents: |
define method read-file(path)
with-open-file(file = path)
let words = read-to-end(file);
words;
end;
end;Annotations for this paste:
| Annotation number 2: | library.dylan |
| Pasted by: | blink-left |
| When: | 3 years, 6 months ago |
| Share: | Tweet this! | http://paste.lisp.org/+1I44/2 |
| Paste contents: |
module: dylan-user define library norvig use system; use functional-dylan; use io; end; define module norvig use file-system; use streams; use format-out; end;
| Annotation number 1: | read-file |
| Pasted by: | blink-left |
| When: | 3 years, 6 months ago |
| Share: | Tweet this! | http://paste.lisp.org/+1I44/1 |
| Paste contents: |
module: norvig
format-out(read-file("big.txt"));