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

Remove some duplication in lists

db4
Doug Coleman 2011-10-14 12:08:48 -07:00
parent 378786599d
commit 623ccb95e6
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/lists/lists.factor
View File

@ -36,15 +36,15 @@ M: object nil? drop f ;
: 1list? ( list -- ? ) { [ nil? not ] [ cdr nil? ] } 1&& ; inline
: 2list ( a b -- cons ) nil cons cons ; inline
: 2list ( a b -- cons ) 1list cons ; inline
: 3list ( a b c -- cons ) nil cons cons cons ; inline
: 3list ( a b c -- cons ) 2list cons ; inline
: cadr ( list -- elt ) cdr car ; inline
: 2car ( list -- car caar ) [ car ] [ cdr car ] bi ; inline
: 2car ( list -- car caar ) [ car ] [ cadr ] bi ; inline
: 3car ( list -- car cadr caddr ) [ car ] [ cdr car ] [ cdr cdr car ] tri ; inline
: 3car ( list -- car cadr caddr ) [ car ] [ cadr ] [ cdr cadr ] tri ; inline
: lnth ( n list -- elt ) swap [ cdr ] times car ; inline
@ -74,10 +74,10 @@ PRIVATE>
0 [ drop 1 + ] foldl ;
: lreverse ( list -- newlist )
nil [ swap cons ] foldl ;
nil [ swons ] foldl ;
: lappend ( list1 list2 -- newlist )
[ lreverse ] dip [ swap cons ] foldl ;
[ lreverse ] dip [ swons ] foldl ;
: lcut ( list index -- before after )
[ nil ] dip