Paste: avoiding gymnastics...
Author: | sykopomp |
Mode: | factor |
Date: | Fri, 15 Jan 2010 23:11:50 |
Plain Text |
: split-keys-and-values unzip swap keys ;
: (reduce-results)
split-keys-and-values f
[ eval call ]
map ;
Author: | erg |
Mode: | factor |
Date: | Fri, 15 Jan 2010 23:26:46 |
Plain Text |
{
{ { "foo" "a0oe89ugao0" } 1 }
{ { "bar" "eua90oe8ae" } 1 }
}
{ "[ 3drop 1 ]" "[ drop nip [ + ] reduce ]" }
[ unzip swap keys ] dip [ eval call ] 3map
Author: | erg |
Mode: | factor |
Date: | Fri, 15 Jan 2010 23:42:53 |
Plain Text |
: couchdb-reduce
[ unzip swap keys ] 2dip
'[ eval _ call ] 3map ;
New Annotation