1 ! Copyright (C) 2013 John Benediktsson
2 ! See https://factorcode.org/license.txt for BSD license
4 USING: assocs hashtables.numbers kernel literals sequences
7 { 1000 } [ 3/2 NH{ { 1.5 1000 } } at ] unit-test
10 1001 1.5 NH{ { 3/2 1000 } }
15 NH{ } clone 1001 1.5 pick set-at
19 { { { 1.0 1000 } } } [ NH{ { 1.0 1000 } } >alist ] unit-test