Higher-order functions: Difference between revisions
m
→using FreePascal : Higher-order function MAP / REDUCE ( FOLDL / FOLDR ) / FILTER
Line 2,554:
Setlength ( __, length ( x ) );
FOR k := Low ( x )
__ [ k ] := x [ High ( x ) - k ] ;
Line 2,585:
Setlength ( __, High ( x ) );
FOR k := Low ( x ) + 1
__ [ k - 1 ] := x [ k ] ;
Line 2,607:
Setlength ( __, y );
FOR k := Low ( x )
__ [ k ] := x [ k ] ;
|