factor/extra/assocs/extras/extras.factor

16 lines
357 B
Factor
Raw Normal View History

! Copyright (C) 2012 John Benediktsson
! See http://factorcode.org/license.txt for BSD license
USING: assocs kernel sequences ;
IN: assocs.extras
: assoc-harvest ( assoc -- assoc' )
[ nip empty? not ] assoc-filter ; inline
: assoc-sift ( assoc -- assoc' )
[ nip ] assoc-filter ; inline
2012-05-14 20:04:52 -04:00
: deep-at ( assoc seq -- value/f )
[ swap at ] each ;