Algorithme glouton de Fibonacci-Sylvester en HASKELL

Haskell est un langage de programmation fonctionelle.

La figure ci-dessous présente une ébauche d'implémentation de l'algorithme glouton de Fibonacci-Sylvester dans ce langage.

Si cela vous intéresse, il est assez facile de comprendre comment ça marche, puis de transformer cette ébauche en un jolie petite application ...

Pour jouer avec Haskell en ligne, accéder au Online Haskell Compiler.

import Data.Ratio rest frac = frac - (1 % (ceiling(1/frac))) glouton frac 0 = rest frac glouton frac n = rest (glouton frac (n-1)) main :: IO () main =  do putStr "rest 3/13 = " print(1 % (ceiling(1/(3%13)))) print(glouton (3 % 13) 0) print(glouton (3 % 13) 1)