strictly_upper_triangular.hpp

Go to the documentation of this file.

// SPDX-License-Identifier: BSD-2-Clause
 
#ifndef pRC_CORE_TENSOR_OPERATOR_FUNCTIONS_STRICTLY_UPPER_TRIANGULAR_H
#define pRC_CORE_TENSOR_OPERATOR_FUNCTIONS_STRICTLY_UPPER_TRIANGULAR_H
 
#include <prc/core/functors/view.hpp>
#include <prc/core/tensor/declarations.hpp>
#include <prc/core/tensor/operator/views/strictly_upper_triangular.hpp>
 
namespace pRC
{
    template<class X, IsTensorish R = RemoveReference<X>>
        requires(R::Dimension == 2)
    static inline constexpr auto strictlyUpperTriangular(X &&a)
    {
        if constexpr(IsInvocable<View, X>)
        {
            using V = RemoveReference<decltype(view(forward<X>(a)))>;
            return TensorViews::StrictlyUpperTriangular<typename R::Type,
                typename R::Sizes, V>(view(forward<X>(a)));
        }
        else
        {
            return eval(strictlyUpperTriangular(a));
        }
    }
}
#endif // pRC_CORE_TENSOR_OPERATOR_FUNCTIONS_STRICTLY_UPPER_TRIANGULAR_H