Skip to content

Commit

Permalink
switch to words from sequences.extras.
Browse files Browse the repository at this point in the history
  • Loading branch information
mrjbq7 committed May 14, 2012
1 parent 6fff026 commit c170b10
Show file tree
Hide file tree
Showing 4 changed files with 8 additions and 8 deletions.
2 changes: 1 addition & 1 deletion enigma/enigma.factor
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license

USING: accessors arrays ascii kernel locals math random
sequences utils ;
sequences sequences.extras utils ;

IN: enigma

Expand Down
4 changes: 2 additions & 2 deletions iphone-backup/messages/messages.factor
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@

USING: accessors db db.sqlite db.tuples db.types io.directories
io.files.info io.files.unique io.pathnames iphone-backup kernel
sequences sorting utils ;
math.statistics sequences sorting utils ;

IN: iphone-backup.messages

Expand Down Expand Up @@ -80,7 +80,7 @@ msg-group "msg_group" {
T{ group-member } select-tuples ;

: all-conversations ( -- conversations )
all-messages [ group-id>> ] group-by ;
all-messages [ group-id>> ] collect-by ;

USE: io
USE: io.styles
Expand Down
4 changes: 2 additions & 2 deletions plagiarism/plagiarism.factor
Original file line number Diff line number Diff line change
Expand Up @@ -3,8 +3,8 @@

USING: command-line grouping io io.encodings.utf8 io.files
kernel math math.parser math.ranges namespaces regexp sequences
sets splitting unicode.case unicode.categories unicode.data
utils ;
sequences.extras sets splitting unicode.case unicode.categories
unicode.data utils ;

IN: plagiarism

Expand Down
6 changes: 3 additions & 3 deletions reddit/reddit.factor
Original file line number Diff line number Diff line change
Expand Up @@ -2,8 +2,8 @@
! See http://factorcode.org/license.txt for BSD license

USING: accessors assocs calendar combinators formatting
http.client json json.reader kernel make math sequences urls
utils ;
http.client json json.reader kernel make math math.statistics
sequences urls utils ;

IN: reddit

Expand Down Expand Up @@ -110,5 +110,5 @@ PRIVATE>
: domain-stats ( domain -- stats )
(domains) all-pages [
created>> 1000 * millis>timestamp year>>
] group-by [ [ score>> ] map-sum ] assoc-map ;
] collect-by [ [ score>> ] map-sum ] assoc-map ;

0 comments on commit c170b10

Please sign in to comment.