Jeu i++ =) - Page 13

Tiens, j'ai oublié de dire que comme ce stack overflow était un peu ennuyeux j'ai dû réécrire la fonction nobre_of_int... la nouvelle version est peut-être un peu moins shadok, mais elle est tellement plus camélienne

let nombre_of_int n =
  let ( * ) a b c = a (b c)
  in let rec ajoute = function
       0 -> (function x -> x)
     | 1 -> suivant
     | n -> ajoute (n/2) * ajoute ((n + 1)/2)
  in ajoute n origine

Et comme ça, ça marche même sur les gros nombres (ça m'a calculé shadok 10000000 en même pas deux minutes !)
(Bon évidement, ma toute première proposition était très légèrement plus rapide ; mais le problème c'est qu'elle ne faisait clairement pas comme il fallait... et mieux vaut faire les choses bien que vite, non ? )

./355 -> bugagabuga (pourquoi tu sautes des nombres HIPPOPOTAME ?)