X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Frosetta-code%2Fordered-words%2Fordered-words.factor;fp=extra%2Frosetta-code%2Fordered-words%2Fordered-words.factor;h=8c37abfc3696542e6316a7294ea01c71874ebdfd;hp=0ce7c4319e0e2872d27c723cb3f6e34f11e9d229;hb=722d92fbfdeff55645f4148d3016798afe4fd433;hpb=42676f8c59c0a97c89a7a3579ec0c50302b5e8ca diff --git a/extra/rosetta-code/ordered-words/ordered-words.factor b/extra/rosetta-code/ordered-words/ordered-words.factor index 0ce7c4319e..8c37abfc36 100644 --- a/extra/rosetta-code/ordered-words/ordered-words.factor +++ b/extra/rosetta-code/ordered-words/ordered-words.factor @@ -19,7 +19,7 @@ IN: rosetta-code.ordered-words MEMO: word-list ( -- seq ) URL" https://raw.githubusercontent.com/quinnj/Rosetta-Julia/master/unixdict.txt" "unixdict.txt" temp-file - download-to utf8 file-lines ; + download-once-to utf8 file-lines ; : ordered-word? ( word -- ? ) >lower [ <= ] monotonic? ;