Index: srfi-4-utils
===================================================================
--- srfi-4-utils (revisão 25595)
+++ srfi-4-utils (cópia de trabalho)
@@ -18,28 +18,62 @@
=== Procedures
+s8vector-fold :: F * X0 * V [* V1 ... VN] -> XN
+u8vector-fold :: F * X0 * V [* V1 ... VN] -> XN
+s16vector-fold :: F * X0 * V [* V1 ... VN] -> XN
+u16vector-fold :: F * X0 * V [* V1 ... VN] -> XN
+s32vector-fold :: F * X0 * V [* V1 ... VN] -> XN
+u32vector-fold :: F * X0 * V [* V1 ... VN] -> XN
+f32vector-fold :: F * X0 * V [* V1 ... VN] -> XN
+f64vector-fold :: F * X0 * V [* V1 ... VN] -> XN
-For each value of {{TAG}} in {{{ s8, u8, s16, u16, s32, u32, f32, f64
-}}}, the following procedures are defined:
-
-TAGvector-fold :: F * X0 * V [* V1 ... VN] -> XN
-
where {{F :: V(I) [ * V1(I) ... VN(I)] * AX -> AX}}
-TAGvector-map :: F * V [ * V1 ... VN] -> V
+s8vector-map :: F * V [ * V1 ... VN] -> V
+u8vector-map :: F * V [ * V1 ... VN] -> V
+s16vector-map :: F * V [ * V1 ... VN] -> V
+u16vector-map :: F * V [ * V1 ... VN] -> V
+s32vector-map :: F * V [ * V1 ... VN] -> V
+u32vector-map :: F * V [ * V1 ... VN] -> V
+f32vector-map :: F * V [ * V1 ... VN] -> V
+f64vector-map :: F * V [ * V1 ... VN] -> V
-TAGvector-foldi :: F * X0 * V [ * V1 ... VN] -> XN
+s8vector-foldi :: F * X0 * V [ * V1 ... VN] -> XN
+u8vector-foldi :: F * X0 * V [ * V1 ... VN] -> XN
+s16vector-foldi :: F * X0 * V [ * V1 ... VN] -> XN
+u16vector-foldi :: F * X0 * V [ * V1 ... VN] -> XN
+s32vector-foldi :: F * X0 * V [ * V1 ... VN] -> XN
+u32vector-foldi :: F * X0 * V [ * V1 ... VN] -> XN
+f32vector-foldi :: F * X0 * V [ * V1 ... VN] -> XN
+f64vector-foldi :: F * X0 * V [ * V1 ... VN] -> XN
where {{F :: I * V(I) [ * V1(I) ... VN(I)] * AX -> AX}}
-TAGvector-mapi :: F * V [* V1 ... VN] -> V
+s8vector-mapi :: F * V [* V1 ... VN] -> V
+u8vector-mapi :: F * V [* V1 ... VN] -> V
+s16vector-mapi :: F * V [* V1 ... VN] -> V
+u16vector-mapi :: F * V [* V1 ... VN] -> V
+s32vector-mapi :: F * V [* V1 ... VN] -> V
+u32vector-mapi :: F * V [* V1 ... VN] -> V
+f32ector-mapi :: F * V [* V1 ... VN] -> V
+f64vector-mapi :: F * V [* V1 ... VN] -> V
+
where {{F :: I * V(I) [* V1(I) ... VN(I)] -> V}}
-TAGvector-quick-sort! :: V * ELT< [ * START * END] -> V
+s8vector-quick-sort! :: V * ELT< [ * START * END] -> V
+u8vector-quick-sort! :: V * ELT< [ * START * END] -> V
+s16vector-quick-sort! :: V * ELT< [ * START * END] -> V
+u16vector-quick-sort! :: V * ELT< [ * START * END] -> V
+s32vector-quick-sort! :: V * ELT< [ * START * END] -> V
+u32vector-quick-sort! :: V * ELT< [ * START * END] -> V
+f32vector-quick-sort! :: V * ELT< [ * START * END] -> V
+f64vector-quick-sort! :: V * ELT< [ * START * END] -> V
+
where {{F :: i1 * V(i1) * i2 * V(i2) -> boolean}}
+
== Examples