Higher-order functions: Difference between revisions
m
→using FreePascal : Higher-order function MAP / REDUCE ( FOLDL / FOLDR ) / FILTER
Line 2,472:
USES
TYPE
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 ] ;
Line 2,634:
result := Ar ;
Setlength ( Ar, 0 );
END;
Line 2,666 ⟶ 2,668:
result := Ar ;
Setlength ( Ar, 0 );
END;
Line 2,686 ⟶ 2,690:
result := Ar ;
Setlength ( Ar, 0 );
END;
Line 2,706 ⟶ 2,712:
result := Ar ;
Setlength ( Ar, 0 );
END;
Line 2,744 ⟶ 2,752:
result := Ar ;
Setlength ( Ar, 0 );
END;
Line 2,781 ⟶ 2,790:
result := Ar ;
Setlength ( Ar, 0 );
END;
Line 2,933 ⟶ 2,943:
FUNCTION Cotangens ( x: variant ) : variant ;
BEGIN
IF ( x = 0 ) Then Exit ( 'Inf');
result := cot ( x );
END ;
Line 2,964 ⟶ 2,978:
FUNCTION Delete ( x, y: variant ) : variant ;
BEGIN
IF ( x = y ) THEN Exit ( False ) ;
result := y;
END ;
Line 3,039 ⟶ 3,057:
END ;
END.
| |||