




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);;
: PPS Laboratory, Université Paris 7.
: LRI Laboratory, Université Paris Sud.
: LRI Laboratory, Université Paris Sud.
|
|