util_sets_equal_p (public)

 util_sets_equal_p list1 list2

Defined in packages/acs-tcl/tcl/utilities-procs.tcl

Tests whether each unique string in list1 occurs as many times in list1 as in list2 and vice versa (regardless of order).

Parameters:
list1 (required)
list2 (required)
Returns:
1 if the lists have identical sets and 0 otherwise
Author:
Peter Marklund

Testcases:
sync_actions, sync_batch_ims_example_doc, message__get_embedded_vars, util__sets_equal_p, spellcheck__get_element_formtext
Source code:
    return [expr { [llength $list1] == [llength $list2] && [lsort $list1] eq [lsort $list2] }]
XQL Not present:
PostgreSQL, Oracle
Generic XQL file:
packages/acs-tcl/tcl/utilities-procs.xql

[ hide source ] | [ make this the default ]
Show another procedure: