Je me désespérais de voir apparaître le portage de TapTempo en OCaml alors je m'y colle.
Taptempocaml est donc le portage du désormais célèbre TapTempo en OCaml.
Ce portage n’a pas la prétention de présenter l’état de l’art de la programmation fonctionnelle. Le but ici est plutôt de fournir le code le plus simple et le plus proche de l’original et ceci pour trois raisons :
I. Bien que le langage fournisse des fonctionnalités très évoluées, dans 93 % des cas, ce dont on a réellement besoin c’est d’une solution simple et directe.
II. La proximité de ce portage avec l’original facilitera aux éventuels lecteurs la comparaison avec celui-ci.
III. Je suis fainéant.
En principe, ce portage est ISO-fonctionnel avec l’original.
Je ne présente ici que la fonction principale :
open I18n.Gettext
let run sampleSize resetTime precision =
let hitTimePoints = Queue.create() in
print_string(s_"Hit enter key for each beat (q to quit).\n");
while input_char stdin <> 'q' do
let currentTime = Unix.gettimeofday() in
if Queue.is_empty hitTimePoints
|| currentTime -. Queue.top hitTimePoints > resetTime
then (
Queue.clear hitTimePoints; (* Reset if the hit diff is too big. *)
print_string(s_"[Hit enter key one more time to start bpm computation...]\n")
)
else (
let occurenceCount = Queue.length hitTimePoints in
(* Remove the older time from hitTimePoints with Queue.pop if the sample size is reached.
Otherwise it is kept in the queue with Queue.top. *)
let olderTime = Queue.(if occurenceCount < sampleSize then top else pop) hitTimePoints in
let bpm = 60. *. float_of_int occurenceCount /. (currentTime -. olderTime) in
Printf.printf(f_"Tempo: %.*f bpm%!") precision bpm;
);
Queue.add currentTime hitTimePoints;
done;
print_string(s_"Bye Bye!\n")
let () =
let sampleSize, resetTime, precision = Options.createFromArgs Sys.argv
in
run sampleSize resetTime precision
Si la motivation première de ce portage est la joie de participer à l’enthousiasme frénétique qui entoure cette vague de portage de TapTempo, cet exercice m’aura en outre permit de découvrir la bibliothèque Gettext et le module Arg. Rien que pour cela je remercie mfz ainsi que tout les auteurs des différents portages de TapTempo.
Maintenant, ce qui serait vraiment intéressant, ce serait le portage de TapTempo en Reason…
# Lisibilité
Posté par Blackknight (site web personnel, Mastodon) . Évalué à 8.
Merci pour ce journal parce que sans vouloir troller, c'est la première fois que je vois un code OCaml que je comprenne du premier coup.
Clairement, tu as fait l'effort de faire le portage au plus près de la solution initiale.
Ce qui serait super cool maintenant, c'est que quelqu'un, pas forcément toi, mette une version plus OCaml comme on en voit traîner régulièrement sur LinuxFr :)
[^] # Re: Lisibilité
Posté par kantien . Évalué à 3. Dernière modification le 12 mars 2018 à 10:41.
Qu'entends-tu par plus OCaml ? Tu veux dire dans un style fonctionnel ? Là son code est fondamentalement impératif (le langage est multi-paradigme) et les traits impératifs se prêtent bien au problème. Ceci étant on pourrait ne pas mettre de boucle
while
, mais une fonction récursive à la place, du genre :c'est ce genre de code dont tu parles ? (ici j'utilise une horloge monotone et un module à ma sauce pour gérer la logique de calcul du tempo)
L'avantage que je vois, c'est que cela évite les imbrications, des fois dure à suivre, des
if then else
. Ici on est protégé des exceptions et seule la toucheenter
peut être appuyée en cadence. Sans cela, un test comme :générera une exception (non rattrapée) quand le flux d'entrée est fermé et, selon que l'on accepte ou non n'importe quel caractère, cela peut changer le résultat de celui-ci :
Sapere aude ! Aie le courage de te servir de ton propre entendement. Voilà la devise des Lumières.
[^] # Re: Lisibilité
Posté par Blackknight (site web personnel, Mastodon) . Évalué à 2.
Voilà, c'est exactement ça et je me doutais bien que ce serait toi qui t'y collerai :)
Merci, je vais étudier ça de près.
[^] # Re: Lisibilité
Posté par kantien . Évalué à 6.
Dans ce cas, je te propose la version suivante de la boucle principale (dans une approche similaire à celle en Elixir et ce que l'auteur à appeler flow programming).
Ici c'est dans la même veine que le code Rust que tu ne comprenais pas : c'est à base de pipe (on connecte les flux d'entrée et de sortie de fonctions). Il y a deux types de connecteurs de flux sous forme d'opérateurs infixes :
|-
qui est proche de la commande unixtee
(d'où le choix du symbole) et le|>
qui fonctionne comme le pipe|
du shell.Si tu comprends cette commande, alors c'est bon :
on chaîne les commandes, et on utilise
tee
pour faire un log de résultats intermédiaires mais sans casser le flux. Comme dans cet exemple OCaml :on prend une chaîne, on lui retire les espaces en préfixe et suffixe (
String.trim
), on calcule la longueur de la chaîne ainsi obtenue (String.length
) puis on effectue des calculs sur cette valeur entière, le tout en faisant quelques commandes de log entre temps. Exemple d'usage :L'opérateur infixe
|-
se définit tout simplement ainsi :j'ai juste mis une contrainte de type sur la sortie de
f
de telle sorte que :Maintenant, si on reprend la partie du code qui correspond au traitement à effectuer lors de l'appui sur la touche
enter
:On calcule un nouvelle horodatage et le temps écoulé (en secondes) depuis le dernier appui sur
enter
; ensuite on enchaîne les traitements sur la file des horodatages :option
contenu dans la structure[1]) ;C'est beau, c'est fin, ça se mange sans faim. :-)
[1]: en arrière plan, le type de la file d'horodatage est
Sapere aude ! Aie le courage de te servir de ton propre entendement. Voilà la devise des Lumières.
[^] # Re: Lisibilité
Posté par kantien . Évalué à 5. Dernière modification le 13 mars 2018 à 17:49.
Comme tu es plus habitué au paradigme impératif, je donne ci-dessous la boucle
while
équivalente à mon code avec une fonction récursive, puis je donne une explication pour passer de l'un à l'autre.Le principe d'une boucle
while
, comme illustré dans cet exemple, est d'être une procédure qui modifie par effet de bords certaines variables qui lui sont globales (ici essentiellementsamples
etstamp
) tant qu'une condition est satisfaite (ici, tant que l'on n'a pas appuyé surq
ou que l'entrée standard est n'est pas au bout). En tant que telle, du point de vue d'OCaml, c'est une expression qui a une valeur (comme n'importe quelle expression du langage) de typeunit
: ce type ne contient qu'une seule valeur (on parle de type singleton) notée()
, c'est la valeur qui ne contient aucune information.Pour transformer cette boucle en une fonction récursive, il faut d'abord qu'elle retourne la même valeur, à savoir
()
, lorsqu'elle termine. Ensuite, les variables globales sur laquelle opérait la boucle sont transformées en paramètres de la fonction : elles ne seront plus globales à la boucle, mais locales. On commence donc par écrire :Ensuite, il faut exprimer la condition d'arrêt de la boucle. Celle-ci dépend du caractère que l'on lit sur l'entrée standard, d'où :
On fait alors une étude de cas, à la manière d'un switch, en commençant par dire quand la fonction termine (et qui renvoie alors
()
) :Vient ensuite le cœur de la logique de la boucle, ce qui se passe quand on a appuyé sur
enter
:Il reste enfin à traiter le cas où l'on a appuyé sur une autre touche : on ne fait rien et on relance la boucle avec les mêmes paramètres
Maintenant que le corps de la fonction est écrit, il ne reste plus qu'à l'appeler pour lancer la boucle. Pour ce faire, on appelle la fonction avec, pour paramètres, les valeurs initiales des variables globales de la boucle
while
:Voilà le principe général pour transformer une boucle
while
en fonction récursive : on transforme les variables globales de la boucle en variables locales, et à chaque tour on lui passe les nouvelles valeurs.Ceci étant, ce genre d'approche n'est pas propre au paradigme fonctionnel, mais ce dernier en fait un usage omniprésent et c'est la route vers la pureté (absence d'effets de bords)1. Pour l'instant, la variable
samples
fonctionne toujours pas effet de bords et, dans le message précédent, j'ai juste modifié l'écriture de sa logique de mise à jour en utilisant une approche par pipe avec le code :Mais si, à la place d'une structure impérative, j'utilisais une structure purement applicative, j'aurais juste à changer les deux premiers combinateurs de tuyaux : un pipe
|>
au lieu d'un T|-
et utiliser la fonctionidentity
au lieu deignore
Derrière cette vision par pipeline, il y a une notion élémentaire de mathématique (bon c'est pas du niveau primaire, mais début de lycée ;-), à savoir la composition de fonction.
que l'on peut écrire (la pipeline est assez visible sur le diagramme) :
L'opérateur de composition est une opérateur d'ordre supérieur : il prend deux fonctions en entrée et en renvoie une en sortie; raison pour laquelle il a une place centrale de le paradigme de la programmation fonctionnelle. Que peux-t-on faire avec une fonction ?
J'espère que ces explications t'aideront un peu mieux à comprendre certains principes élémentaires à la base du paradigme fonctionnel.
En réalité, c'est cette recherche d'absence d'effets de bord qui nous les fait écrire ainsi. On obtient alors des fonctions récursives avec appel dits terminaux, que le compilateur optimisera comme une simple boucle (il fera la traduction dans le sens inverse de celle que je viens de faire). Voir mon commentaire sur la version de taptempo en Emacs Lisp. ↩
Sapere aude ! Aie le courage de te servir de ton propre entendement. Voilà la devise des Lumières.
[^] # Re: Lisibilité
Posté par mzf (site web personnel) . Évalué à 1.
Super, merci beaucoup pour ces explications. Ça donne envie de faire du vrai fonctionnel :)
Concernant la récursivité en OCaml, y a-t-il une limitation du nombre d'appel récursif comme dans la plupart des langages impératifs ?
[^] # Re: Lisibilité
Posté par kantien . Évalué à 3.
Absolument aucune limitation si les appels récursifs sont terminaux : il se font alors en espace constant sur la pile. Voir ma réponse du dessous à gndl.
Sapere aude ! Aie le courage de te servir de ton propre entendement. Voilà la devise des Lumières.
[^] # Re: Lisibilité
Posté par gndl (site web personnel) . Évalué à 1.
Merci à toi pour ta question et à Kantien pour ça brillante réponse. Au final, ça donne un exemple basique de code qui évolue progressivement vers une version fonctionnelle avancée. C’est cette progressivité qui me manque souvent dans la documentation sur OCaml.
[^] # Re: Lisibilité
Posté par kantien . Évalué à 4. Dernière modification le 15 mars 2018 à 11:45.
Merci.
Tu parles de la documentation officielle ? Celle-ci est plus un manuel de référence du langage qu'une initiation aux principes de la programmation fonctionnelle.
La traduction de la boucle
while
que j'ai faite relève des principes généraux de la programmation fonctionnelle. C'est pour cela que j'avais donné un lien vers un de mes commentaires sur le journal de la version detaptempo
en Emacs Lisp. Une personne cherchait à écrire la fonction factorielle de manière récursive terminale et ne savait pas comment faire. Il avait écrit la version naïve :qui génère un dépassement de pile sur de grandes entrées :
La version impérative pour une telle fonction, à base de boucle
for
, est la suivante :La version fonctionnelle avec récursion terminale consiste donc à utiliser un boucle avec un accumulateur, comme dans la version impérative :
Dans les deux versions, impérative et fonctionnelle, la boucle dépend de l'entrée
n
. Mais, dans la version fonctionnelle, l'accumulateur est également un paramètre de la boucle, là où c'est une variable globale pour celle-ci dans le cas impératif.Pour l'autre transformation du code, là c'est plutôt une astuce propre aux langages fonctionnels qui permettent d'avoir des opérateurs binaires infixes, donc hors famille Lisp et leur folie des parenthèses. L'idée étant que dans une telle situation :
on puisse « factoriser » la variable sur laquelle on effectue notre séquence de transformation :
Ici, il faut pouvoir définir les opérateurs d'ordre supérieur
&
et|-
, ce que peut faire n'importe quel langage fonctionnel, mais leur utilité réside essentiellement dans le fait qu'on les utilise de manière infixe, ce qui fournit du sucre syntaxique à cette approche.Sapere aude ! Aie le courage de te servir de ton propre entendement. Voilà la devise des Lumières.
# ISO-fonctionnel
Posté par mzf (site web personnel) . Évalué à 2.
Bravo pour ce portage qui me rend curieux de tester l'iso-fonctionnalité avec l'original.
Peux-tu m'expliquer comment le compiler et l'exécuter ?
Je vois que le fichier jbuild décrit les dépendances; sont-elles automatiquement téléchargées lors de la construction ?
[^] # Re: ISO-fonctionnel
Posté par kantien . Évalué à 4.
Sans avoir à installer une partie des outils de développements OCaml, le plus simple est sans doute de passer par le gestionnaire de paquets de ta distribution. Sous Debian (ou dérivée), il te faudrait au minimum les paquets suivants :
ensuite tu vas dans le répertoire des sources, et tu lances la commande suivante :
Par contre, chez moi, l'internationalisation ne marche pas : j'ai le texte en anglais. De plus, le flux de sortie standard n'est pas vidé sur certaines écritures : je ne vois rien avant d'avoir appuyer plusieurs fois sur
enter
. Tu peux corriger cela en rajoutantflush stdout;
après ces deux lignes detaptempocaml.ml
:Sapere aude ! Aie le courage de te servir de ton propre entendement. Voilà la devise des Lumières.
[^] # Re: ISO-fonctionnel
Posté par gndl (site web personnel) . Évalué à 1.
Merci pour l’intérêt que tu porte à cette implémentation. J’avoue que je ne m’attendais pas à ce que quelqu’un souhaite le tester :-).
Dans un premier temps, j’ai utiliser un nouveau système de build (jbuilder) que je ne maîtrise pas. Je suis revenu aux bons vieux Makefile pour gérer l’internationalisation. Malheureusement je ne parviens pas à obtenir la traduction des chaînes de format. Les messages d’aide et l’affichage du tempo ne sont donc pas traduits. Les instructions pour compiler, installer et exécuter l’application ont été ajoutées au README.
[^] # Re: ISO-fonctionnel
Posté par Michaël (site web personnel) . Évalué à 3.
Si tu travailles encore avec des Makefile, tu peux essayer ceux-cis: BSD Owl. (Attention, c'est pour bmake. Il y a même un paquet Debia pour une vieille version. )
[^] # Re: ISO-fonctionnel
Posté par gndl (site web personnel) . Évalué à 0.
Merci. Je ne connaissais pas cet outil.
Suivre le flux des commentaires
Note : les commentaires appartiennent à celles et ceux qui les ont postés. Nous n’en sommes pas responsables.