/*

  *

  *

  * Copyright (c) 1994

  * Hewlett-Packard Company

  *

  * Copyright (c) 1996,1997

  * Silicon Graphics Computer Systems, Inc.

  *

  * Copyright (c) 1997

  * Moscow Center for SPARC Technology

  *

  * Copyright (c) 1999

  * Boris Fomitchev

  *

  * This material is provided "as is", with absolutely no warranty expressed

  * or implied. Any use is at your own risk.

  *

  * Permission to use or copy this software for any purpose is hereby granted

  * without fee, provided the above notices are retained on all copies.

  * Permission to modify the code and to distribute modified code is granted,

  * provided the above notices are retained, and a notice that the code was

  * modified is included with the above copyright notice.

  *

  */

 #ifndef _STLP_NUMERIC_C

 #define _STLP_NUMERIC_C

 #ifndef _STLP_INTERNAL_NUMERIC_H

 # include <stl/_numeric.h>

 #endif

 _STLP_BEGIN_NAMESPACE

 _STLP_MOVE_TO_PRIV_NAMESPACE

 template <class _InputIterator, class _OutputIterator, class _Tp,

           class _BinaryOperation>

 _OutputIterator

 __partial_sum(_InputIterator __first, _InputIterator __last,

               _OutputIterator __result, _Tp*, _BinaryOperation __binary_op) {

   _STLP_DEBUG_CHECK(__check_range(__first, __last))

   if (__first == __last) return __result;

   *__result = *__first;

   _Tp __val = *__first;

   while (++__first != __last) {

     __val = __binary_op(__val, *__first);

     *++__result = __val;

   }

   return ++__result;

 }

 template <class _InputIterator, class _OutputIterator, class _Tp,

           class _BinaryOperation>

 _OutputIterator

 __adjacent_difference(_InputIterator __first, _InputIterator __last,

                       _OutputIterator __result, _Tp*,

                       _BinaryOperation __binary_op) {

   _STLP_DEBUG_CHECK(__check_range(__first, __last))

   if (__first == __last) return __result;

   *__result = *__first;

   _Tp __val = *__first;

   while (++__first != __last) {

     _Tp __tmp = *__first;

     *++__result = __binary_op(__tmp, __val);

     __val = __tmp;

   }

   return ++__result;

 }

 template <class _Tp, class _Integer, class _MonoidOperation>

 _Tp __power(_Tp __x, _Integer __n, _MonoidOperation __opr) {

   _STLP_MPWFIX_TRY

   if (__n == 0)

     return __identity_element(__opr);

   else {

     while ((__n & 1) == 0) {

       __n >>= 1;

       __x = __opr(__x, __x);

     }

     _Tp __result = __x;

   _STLP_MPWFIX_TRY

     __n >>= 1;

     while (__n != 0) {

       __x = __opr(__x, __x);

       if ((__n & 1) != 0)

         __result = __opr(__result, __x);

       __n >>= 1;

     }

     return __result;

   _STLP_MPWFIX_CATCH

   }

   _STLP_MPWFIX_CATCH_ACTION(__x = _Tp())

 }

 _STLP_MOVE_TO_STD_NAMESPACE

 _STLP_END_NAMESPACE

 #endif /*  _STLP_NUMERIC_C */

 // Local Variables:

 // mode:C++

 // End: