steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use file-lines more

db4
Slava Pestov 2008-01-10 22:06:29 -05:00
parent a8ad463de9
commit 9447cc529e
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/help/cookbook/cookbook.factor
View File

@ -199,7 +199,7 @@ ARTICLE: "cookbook-io" "I/O cookbook"
} }
"Print the lines of a file in sorted order:" "Print the lines of a file in sorted order:"
{ $code { $code
"\"lines.txt\" <file-reader> lines natural-sort [ print ] each" "\"lines.txt\" file-lines natural-sort [ print ] each"
} }
"Read 1024 bytes from a file:" "Read 1024 bytes from a file:"
{ $code { $code

2
extra/porter-stemmer/porter-stemmer-tests.factor
View File

@ -56,7 +56,7 @@ io.files ;
[ "hell" ] [ "hell" step5 "" like ] unit-test [ "hell" ] [ "hell" step5 "" like ] unit-test
[ "mate" ] [ "mate" step5 "" like ] unit-test [ "mate" ] [ "mate" step5 "" like ] unit-test
: resource-lines resource-path <file-reader> lines ; : resource-lines resource-path file-lines ;
[ { } ] [ [ { } ] [
"extra/porter-stemmer/test/voc.txt" resource-lines "extra/porter-stemmer/test/voc.txt" resource-lines

4
extra/project-euler/067/067.factor
View File

@ -39,7 +39,7 @@ IN: project-euler.067
: pyramid ( -- seq ) : pyramid ( -- seq )
"resource:extra/project-euler/067/triangle.txt" ?resource-path "resource:extra/project-euler/067/triangle.txt" ?resource-path
<file-reader> lines [ " " split [ string>number ] map ] map ; file-lines [ " " split [ string>number ] map ] map ;
PRIVATE> PRIVATE>
@ -66,7 +66,7 @@ PRIVATE>
] "" make ; ] "" make ;
: source-067a ( -- triangle ) : source-067a ( -- triangle )
(source-067a) <file-reader> lines [ " " split [ string>number ] map ] map ; (source-067a) file-lines [ " " split [ string>number ] map ] map ;
PRIVATE> PRIVATE>