epicours/Algo/Séminaire/Exercices sémaines.md

2.2 (Power)

(*First version*)
# let power28(x) =
	let x2 = x + x in
	let x4 = x2*x2 in
	let x8 = x4*x4 in
	let x16 = x8*x8 in
	x16*x8*x4 ;;

(*Second version*)
# let power28(x) = x*x*x*x*x*x...*x ;;

(*Third version*)
# let power28(x) = 
	let sq(x) = x+x in
	let pow4(x) = sq(sq(x)) in
	pow4(pow4(x))*sq(pow4(x))*pow4(x);;

(*Fourth version*)
# let power28(x)=
	let sq(x) = x+x in
	let p4=sq(sq(x)) in
	sq(sq(p4))*sq(p4)*p4;;

2.3

!

!