| Author: | pruned |
|---|---|
| Mode: | text |
| Date: | Sun, 28 Sep 2008 17:12:36 |
P" resource:work/psums/psums.factor"
31: psums-list [| name term! | I: "[ 9 N term compute-sum ]\t[ name ]" . ] assoc-each ;
^
Nesting:
{ slip slip }
{ keep keep }
{ ~literal~ f }
{ (collect) (collect) }
{ collect collect }
{ map-into map-into }
{ ~literal~ f }
{ ~literal~ f }
{ map-as map-as }
{ map map }
{ compute-sum compute-sum }
Literal value expected