a # 1 61 R ' r#vv collect cv;t                                           '
a # a,[1]  ' r#t,[Lio+0.5]((t#drep cv)J.=cv)+.Xvv                        '
a # a,[1]  ' $0                                                          '
a # a,[1]  '"collect - collect and summarize coefficients of common codes'
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm.  '
a # a,[1]  '"-vv and cv are a pair of numeric vectors to which we had    '
a # a,[1]  '" been catenating pairs of corresponding data.               '
a # a,[1]  '"-we desire to reduce the data by collecting and summing     '
a # a,[1]  '" those terms in vv that are in the same category, as        '
a # a,[1]  '" represented by repetition in cv, the code vector.          '
a # a,[1]  '"-the code vector, although numeric, may represent           '
a # a,[1]  '" alphabetic characters.  see Gljnform.                      '
a # a,[1]  '"-uses: Gdrep                                                '
Lfx a