Changeset 25596 in project
- Timestamp:
- 11/28/11 14:49:57 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
wiki/eggref/4/srfi-4-utils
r20221 r25596 19 19 === Procedures 20 20 21 22 For each value of {{TAG}} in {{{ s8, u8, s16, u16, s32, u32, f32, f64 23 }}}, the following procedures are defined: 24 25 <procedure>TAGvector-fold :: F * X0 * V [* V1 ... VN] -> XN</procedure> 21 <procedure>s8vector-fold :: F * X0 * V [* V1 ... VN] -> XN</procedure><br> 22 <procedure>u8vector-fold :: F * X0 * V [* V1 ... VN] -> XN</procedure><br> 23 <procedure>s16vector-fold :: F * X0 * V [* V1 ... VN] -> XN</procedure><br> 24 <procedure>u16vector-fold :: F * X0 * V [* V1 ... VN] -> XN</procedure><br> 25 <procedure>s32vector-fold :: F * X0 * V [* V1 ... VN] -> XN</procedure><br> 26 <procedure>u32vector-fold :: F * X0 * V [* V1 ... VN] -> XN</procedure><br> 27 <procedure>f32vector-fold :: F * X0 * V [* V1 ... VN] -> XN</procedure><br> 28 <procedure>f64vector-fold :: F * X0 * V [* V1 ... VN] -> XN</procedure> 26 29 27 30 where {{F :: V(I) [ * V1(I) ... VN(I)] * AX -> AX}} 28 31 29 <procedure>TAGvector-map :: F * V [ * V1 ... VN] -> V</procedure> 32 <procedure>s8vector-map :: F * V [ * V1 ... VN] -> V</procedure><br> 33 <procedure>u8vector-map :: F * V [ * V1 ... VN] -> V</procedure><br> 34 <procedure>s16vector-map :: F * V [ * V1 ... VN] -> V</procedure><br> 35 <procedure>u16vector-map :: F * V [ * V1 ... VN] -> V</procedure><br> 36 <procedure>s32vector-map :: F * V [ * V1 ... VN] -> V</procedure><br> 37 <procedure>u32vector-map :: F * V [ * V1 ... VN] -> V</procedure><br> 38 <procedure>f32vector-map :: F * V [ * V1 ... VN] -> V</procedure><br> 39 <procedure>f64vector-map :: F * V [ * V1 ... VN] -> V</procedure> 30 40 31 <procedure>TAGvector-foldi :: F * X0 * V [ * V1 ... VN] -> XN</procedure> 41 <procedure>s8vector-foldi :: F * X0 * V [ * V1 ... VN] -> XN</procedure><br> 42 <procedure>u8vector-foldi :: F * X0 * V [ * V1 ... VN] -> XN</procedure><br> 43 <procedure>s16vector-foldi :: F * X0 * V [ * V1 ... VN] -> XN</procedure><br> 44 <procedure>u16vector-foldi :: F * X0 * V [ * V1 ... VN] -> XN</procedure><br> 45 <procedure>s32vector-foldi :: F * X0 * V [ * V1 ... VN] -> XN</procedure><br> 46 <procedure>u32vector-foldi :: F * X0 * V [ * V1 ... VN] -> XN</procedure><br> 47 <procedure>f32vector-foldi :: F * X0 * V [ * V1 ... VN] -> XN</procedure><br> 48 <procedure>f64vector-foldi :: F * X0 * V [ * V1 ... VN] -> XN</procedure> 32 49 33 50 where {{F :: I * V(I) [ * V1(I) ... VN(I)] * AX -> AX}} 34 51 35 <procedure>TAGvector-mapi :: F * V [* V1 ... VN] -> V</procedure> 52 53 <procedure>s8vector-mapi :: F * V [* V1 ... VN] -> V</procedure><br> 54 <procedure>u8vector-mapi :: F * V [* V1 ... VN] -> V</procedure><br> 55 <procedure>s16vector-mapi :: F * V [* V1 ... VN] -> V</procedure><br> 56 <procedure>u16vector-mapi :: F * V [* V1 ... VN] -> V</procedure><br> 57 <procedure>s32vector-mapi :: F * V [* V1 ... VN] -> V</procedure><br> 58 <procedure>u32vector-mapi :: F * V [* V1 ... VN] -> V</procedure><br> 59 <procedure>f32ector-mapi :: F * V [* V1 ... VN] -> V</procedure><br> 60 <procedure>f64vector-mapi :: F * V [* V1 ... VN] -> V</procedure> 36 61 37 62 where {{F :: I * V(I) [* V1(I) ... VN(I)] -> V}} 38 63 39 <procedure>TAGvector-quick-sort! :: V * ELT< [ * START * END] -> V</procedure> 64 65 <procedure>s8vector-quick-sort! :: V * ELT< [ * START * END] -> V</procedure><br> 66 <procedure>u8vector-quick-sort! :: V * ELT< [ * START * END] -> V</procedure><br> 67 <procedure>s16vector-quick-sort! :: V * ELT< [ * START * END] -> V</procedure><br> 68 <procedure>u16vector-quick-sort! :: V * ELT< [ * START * END] -> V</procedure><br> 69 <procedure>s32vector-quick-sort! :: V * ELT< [ * START * END] -> V</procedure><br> 70 <procedure>u32vector-quick-sort! :: V * ELT< [ * START * END] -> V</procedure><br> 71 <procedure>f32vector-quick-sort! :: V * ELT< [ * START * END] -> V</procedure><br> 72 <procedure>f64vector-quick-sort! :: V * ELT< [ * START * END] -> V</procedure> 40 73 41 74 where {{F :: i1 * V(i1) * i2 * V(i2) -> boolean}} 75 42 76 43 77 == Examples
Note: See TracChangeset
for help on using the changeset viewer.