Higher-order functions: Difference between revisions
m
→using FreePascal : Higher-order function MAP / REDUCE ( FOLDL / FOLDR ) / FILTER
Line 2,643:
result := x [ Low ( x ) ] ;
FOR k := Low ( x ) + 1 TO High ( x ) DO
result := f ( result , x [ k ] ) ;
Line 2,660:
result := x [ Low ( x ) ] ;
FOR k := Low ( x ) + 1 TO High ( x ) DO
result := f ( result , x [ k ] ) ;
Line 2,685:
BEGIN
FOR k := High ( x ) - 1 DOWNTO Low ( x ) DO
result := f ( result , x [ k ] ) ;
Line 2,705:
result := x [ High ( x ) ];
FOR k := High ( x ) - 1 DOWNTO Low ( x ) DO
result := f ( result , x [ k ] ) ;
END ;
|