core: subseq-index? -> subseq-of?

[factor.git] / extra / rosetta-code / text-processing / max-licenses / max-licenses.factor

diff --git a/extra/rosetta-code/text-processing/max-licenses/max-licenses.factor b/extra/rosetta-code/text-processing/max-licenses/max-licenses.factor
index 994347091642a0d10a60b170c146be67e6e4795f..9c931179570be5c8c4930ca6a319fa0e3af78bc1 100644 (file)
--- a/extra/rosetta-code/text-processing/max-licenses/max-licenses.factor
+++ b/extra/rosetta-code/text-processing/max-licenses/max-licenses.factor
@@ -1,7 +1,7 @@
 ! Copyright (c) 2012 Anonymous
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors http.client io io.encodings.ascii io.files
-io.files.temp kernel math math.parser memoize sequences
+io.files.temp kernel math math.parser sequences
 splitting urls ;
 IN: rosetta-code.text-processing.max-licenses
 
@@ -32,9 +32,9 @@ TUPLE: maxlicense max-count current-count times ;
 
 : <maxlicense> ( -- max ) -1 0 V{ } clone \ maxlicense boa ; inline
 
-: out? ( line -- ? ) [ "OUT" ] dip subseq? ; inline
+: out? ( line -- ? ) "OUT" subseq-of? ; inline
 
-: line-time ( line -- time ) " " split harvest fourth ; inline
+: line-time ( line -- time ) split-words harvest fourth ; inline
 
 : update-max-count ( max -- max' )
     dup [ current-count>> ] [ max-count>> ] bi >
@@ -62,7 +62,7 @@ TUPLE: maxlicense max-count current-count times ;
 : process ( max line -- max ) split-line inc-current-count update-time ;
 
 MEMO: mlijobs ( -- lines )
-    "mlijobs.txt" temp-file dup exists? [
+    "mlijobs.txt" temp-file dup file-exists? [
         URL" http://rosettacode.org/resources/mlijobs.txt"
         over download-to
     ] unless ascii file-lines ;