! See http://factorcode.org/license.txt for BSD license USING: assocs fry kernel math sequences splitting ; IN: assoc-path ! retrieves values from nested assocs... ! "a.b.c" H{ { "a" H{ { "b" { H{ { "c" 23 } } H{ { "c" 42 } } } } } } } at-path ! => { 23 42 } : at-path ( pathstr assoc -- value/f ) swap "." split [ swap at@ ] each ;