




template<class X,class N>
struct exp : if_< equal_to<int_<0>,N>
, int_<1>
, times<X, exp<X, minus<N,int_<1> > >
> {};
let rec exp x n = match n with
| 0 -> 1
| n -> x * exp x (n-1);;
: Laboratoire PPS, Université Paris 7.
: Laboratoire LRI, Université Paris Sud.
: Laboratoire LRI, Université Paris Sud.
|
|