Rosetta Code

Higher-order functions: Difference between revisions

← Older editNewer edit →
Content deleted Content added
JPD (talk | contribs)
122 edits
JPD (talk | contribs)
122 edits
Line 2,554:
Setlength ( __, length ( x ) );
 
FOR k := Low ( x ) toTO High ( x ) DO
__ [ k ] := x [ High ( x ) - k ] ;
 
Line 2,585:
Setlength ( __, High ( x ) );
 
FOR k := Low ( x ) + 1 toTO High ( x ) DO
__ [ k - 1 ] := x [ k ] ;
 
Line 2,607:
Setlength ( __, y );
 
FOR k := Low ( x ) toTO y - 1 DO
__ [ k ] := x [ k ] ;
 
Retrieved from "https://rosettacode.org/wiki/Higher-order_functions"