! Copyright (C) 2010 Daniel Ehrenberg
! Copyright (C) 2005, 2011 John Benediktsson, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays assocs hash-sets hashtables.private
-kernel kernel.private math math.private sequences
-sequences.private sets sets.private slots.private vectors ;
+USING: accessors arrays hash-sets hashtables.private kernel
+kernel.private math math.private sequences sequences.private
+sets sets.private slots.private vectors ;
IN: hash-sets
TUPLE: hash-set
M: sequence all-unique?
dup length <hash-set> [ (all-unique?) ] curry all? ;
-
-M: hash-set >alist
- array>> dup zip ;