La voix du secrétaire (Jean)
Présents à la réunion, en fonction de la disposition autour de la table :
Nous avons mangé des nems au poulet, des ravioles, de la terrine de lapin, une entrecôte, du confit de canard, un croustillant au saumon, du pain perdu et des fondants au chocolat. Nous avons bu de l'Orangina, un mojito, des cocktails Diderot, de la bière et un déca.
Nous avons parlé de Perl, Internet informatique et points divers.
Python m'étouffe.
use strict; use warnings;quitte à faire planter les programmes et modules existants qui ne respectent pas les préconisations. Les P5P préfèrent que Perl 7 soit tout simplement la nouvelle version de Perl, après la 5.xx et que l'on active la « programmation propre » par
use v7;Quoi qu'il en soit, certains participants à la réunion de ce soir sont d'avis que le développement de Perl 7 est mal barré.
+---------------+
! !
! !
+---------------+---------------+
! !
! !
+---------------+
Une diagonale fait bien 48 pouces,
mais l'autre...
Pour une disposition plus naturelle, vous pouvez
aller voir le calcul
en annexe
si vous supportez bien la trigonométrie.
Si vous faites partie des rares personnes
qui ont des boutons lorsqu'il est question
de trigonométrie, ou si vous faites partie
des innombrables personnes qui prétendent
avoir des boutons lorsqu'il est question
de trigonométrie, inutile d'aller voir
ce paragraphe.
# -*- encoding: utf-8; indent-tabs-mode: nil -*-
# superscript two ² C-q 262
# greek small letter pi π C-q 1700
# greek small letter phi φ C-q 1706
# square root √ C-q 21032
# black lower right triangle ◢ C-q 22742
# racine carrée
sub prefix:<√> ($a) {
return sqrt($a);
}
# calcul de la longueur de l'hypothénuse
sub infix:<◢> ($a, $b) {
return √($a² + $b²);
}
my Num $diag = 24.Num;
my Num $φ = π / 2 - atan2(16, 9);
my Num $longueur = $diag × $φ.cos;
my Num $hauteur = $diag × $φ.sin;
say "Pour des écrans côte à côte, la diagonale est ", ((2 × $longueur) ◢ $hauteur );
say "Pour des écrans superposés, la diagonale est ", ( $longueur ◢ (2 × $hauteur));