else
return seq.begin()->rest.return_type();
}
-
+
unsigned add::return_type_tinfo() const
{
if (seq.empty())
unsigned ret = 0;
unsigned shift = 0;
do {
- char b2;
+ char b2;
is.get(b2);
- b = b2;
+ b = b2;
ret |= (b & 0x7f) << shift;
shift += 7;
} while (b & 0x80);
} else
throw(std::invalid_argument("The second argument should be a Clifford unit"));
}
-
+
/** Auxiliary structure to define a function for striping one Clifford unit
* from vectors. Used in clifford_to_lst(). */
static ex get_clifford_comp(const ex & e, const ex & c)
}
REGISTER_FUNCTION(conjugate_function, eval_func(conjugate_eval).
- evalf_func(conjugate_evalf).
- print_func<print_latex>(conjugate_print_latex).
- conjugate_func(conjugate_conjugate).
- set_name("conjugate","conjugate"));
+ evalf_func(conjugate_evalf).
+ print_func<print_latex>(conjugate_print_latex).
+ conjugate_func(conjugate_conjugate).
+ set_name("conjugate","conjugate"));
//////////
// absolute value
if (n & 1)
return (n==1) ? _num_1_2 : _num0;
if (!n)
- return _num1;
+ return _num1;
// store nonvanishing Bernoulli numbers here
static std::vector< cln::cl_RA > results;
{
return basis.return_type();
}
-
+
unsigned power::return_type_tinfo() const
{
return basis.return_type_tinfo();