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

remove unused prune word

cvs
Slava Pestov 2006-01-21 07:38:46 +00:00
parent 2c4d058fdc
commit 9ee2327fdf
4 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
doc/handbook/sequences.facts
View File

@ -132,7 +132,6 @@ ARTICLE: "sequences-adding" "Adding and appending"
{ $subsection join } { $subsection join }
"Mutable sequences can have elements added in-place." "Mutable sequences can have elements added in-place."
{ $subsection push } { $subsection push }
{ $subsection adjoin }
{ $subsection nappend } { $subsection nappend }
"Subsequences can be replaced:" "Subsequences can be replaced:"
{ $subsection replace-slice } { $subsection replace-slice }
@ -141,7 +140,6 @@ ARTICLE: "sequences-adding" "Adding and appending"
ARTICLE: "sequences-sets" "Order-insensitive operations" ARTICLE: "sequences-sets" "Order-insensitive operations"
"New sequences can be constructed by removing elements from an existing sequence:" "New sequences can be constructed by removing elements from an existing sequence:"
{ $subsection remove } { $subsection remove }
{ $subsection prune }
{ $subsection diff } { $subsection diff }
"Mutable sequences can have elements removed in-place:" "Mutable sequences can have elements removed in-place:"
{ $subsection delete } { $subsection delete }

6
library/collections/sequences-epilogue.factor
View File

@ -78,12 +78,6 @@ M: object >list ( seq -- list ) dup length 0 rot (>list) ;
: add ( seq elt -- seq ) : add ( seq elt -- seq )
swap [ push ] immutable ; flushable swap [ push ] immutable ; flushable
: adjoin ( elt seq -- )
2dup member? [ 2drop ] [ push ] if ;
: prune ( seq -- seq )
dup dup length <vector> swap [ over adjoin ] each swap like ;
: diff ( seq1 seq2 -- seq2-seq1 ) : diff ( seq1 seq2 -- seq2-seq1 )
[ swap member? not ] subset-with ; flushable [ swap member? not ] subset-with ; flushable

4
library/collections/sequences-epilogue.facts
View File

@ -86,10 +86,6 @@ HELP: adjoin "( elt seq -- )"
{ $side-effects "seq" } { $side-effects "seq" }
{ $errors "Throws an error if the type of " { $snippet "elt" } " is not permitted in sequences of the same class as " { $snippet "seq1" } "." } ; { $errors "Throws an error if the type of " { $snippet "elt" } " is not permitted in sequences of the same class as " { $snippet "seq1" } "." } ;
HELP: prune "( seq -- newseq )"
{ $values { "seq" "a sequence" } { "newseq" "a sequence" } }
{ $description "Outputs a new sequence of the same class as " { $snippet "seq" } " with each element appearing only once." } ;
HELP: diff "( seq1 seq2 -- newseq )" HELP: diff "( seq1 seq2 -- newseq )"
{ $values { "seq1" "a sequence" } { "seq2" "a sequence" } { "newseq" "a sequence" } } { $values { "seq1" "a sequence" } { "seq2" "a sequence" } { "newseq" "a sequence" } }
{ $description "Outputs a sequence consisting of elements present in " { $snippet "seq2" } " but not " { $snippet "seq1" } ", comparing elements for equality." } ; { $description "Outputs a sequence consisting of elements present in " { $snippet "seq2" } " but not " { $snippet "seq1" } ", comparing elements for equality." } ;

2
library/test/collections/sequences.factor
View File

@ -175,8 +175,6 @@ unit-test
[ -1 f ] [ -1 { 1 2 3 } [ 1 = ] find* ] unit-test [ -1 f ] [ -1 { 1 2 3 } [ 1 = ] find* ] unit-test
[ { 1 2 3 } ] [ { 1 1 2 2 3 3 } prune ] unit-test
[ 0 ] [ { "a" "b" "c" } { "A" "B" "C" } mismatch ] unit-test [ 0 ] [ { "a" "b" "c" } { "A" "B" "C" } mismatch ] unit-test
[ 1 ] [ { "a" "b" "c" } { "a" "B" "C" } mismatch ] unit-test [ 1 ] [ { "a" "b" "c" } { "a" "B" "C" } mismatch ] unit-test