1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors assocs kernel linked-assocs math sequences
7 <linked-hash> 1 "b" pick set-at
14 <linked-hash> 1 "b" pick set-at
20 { { 2 3 4 } { "c" "a" "d" } 3 } [
21 <linked-hash> 1 "a" pick set-at
25 [ values ] [ keys ] [ assoc-size ] tri
29 <linked-hash> 1 "c" pick set-at
32 "c" over at swap assoc-size
36 <linked-hash> 1 "a" pick set-at
40 dup clear-assoc [ keys ] [ assoc-size ] bi
44 <linked-hash> dup clone
53 { [ 3 * ] [ 1 - ] } "first" pick set-at
54 { [ [ 1 - ] bi@ ] [ 2 / ] } "second" pick set-at
55 4 6 pick values [ first call ] each
56 + swap values <reversed> [ second call ] each
59 { V{ { "az" 1 } { "by" 2 } { "cx" 3 } } } [
67 { t V{ { 1 20 } { 3 40 } { 5 60 } } } [
68 { { 1 2 } { 3 4 } { 5 6 } } >linked-hash
69 [ 10 * ] assoc-map [ linked-assoc? ] [ >alist ] bi
72 { V{ { 1 2 } { 3 4 } { 5 6 } } } [
73 { { 1 2 } { 3 4 } { 5 6 } }
74 { } <linked-assoc> assoc-like >alist
78 { { "a" "b" } { "c" "d" } }
79 [ >linked-hash ] [ >linked-hash ] bi =