Code-Web.org

let pi n = 
	let rec aux n a l = 
		if l = n then a
	    else aux (n+.1.) (a+.((-.1.**n)/.(2.*.n+.1.))) l
	in
(aux 1. 1. (float_of_int n)) *.4.

ça donne :

let pi n = 
	let rec aux n a l = 
		if l = n then a
	    else aux (n+.1.) (a+.((-.1.**n)/.(2.*.n+.1.))) l
	in
(aux 1. 1. (float_of_int n)) *.4.

Test de SyntaxeHl sous Dotclear 2.0 RC2.1 :

<?php
// Le classique Hello World !
echo 'Hello World !';
?>