<div dir="ltr"><div>Bonsoir Jean,</div><div><br></div><div>je pense que la méthode <a href="https://docs.perl6.org/routine/polymod">polymod</a> correspond probablement à ton besoin.</div><div><br></div><div>Bonne soirée,</div><div>Laurent.<br></div></div><div id="DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2"><br> <table style="border-top:1px solid #d3d4de">
        <tr>
      <td style="width:55px;padding-top:18px"><a href="https://www.avast.com/sig-email?utm_medium=email&amp;utm_source=link&amp;utm_campaign=sig-email&amp;utm_content=webmail" target="_blank"><img src="https://ipmcdn.avast.com/images/icons/icon-envelope-tick-round-orange-animated-no-repeat-v1.gif" alt="" width="46" height="29" style="width: 46px; height: 29px;"></a></td>
                <td style="width:470px;padding-top:17px;color:#41424e;font-size:13px;font-family:Arial,Helvetica,sans-serif;line-height:18px">Garanti sans virus. <a href="https://www.avast.com/sig-email?utm_medium=email&amp;utm_source=link&amp;utm_campaign=sig-email&amp;utm_content=webmail" target="_blank" style="color:#4453ea">www.avast.com</a>                 </td>
        </tr>
</table>
<a href="#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2" width="1" height="1"></a></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Le lun. 23 mars 2020 à 19:16, Jean &lt;<a href="mailto:ponder.stibbons@orange.fr">ponder.stibbons@orange.fr</a>&gt; a écrit :<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Ainsi que je l&#39;ai exposé lors des Journées Perl 2018<br>
il est possible de trouver dans Raku des équivalents à<br>
certains opérateurs APL. En ce moment, je cherche s&#39;il existe<br>
des équivalents aux opérateurs &quot;code&quot; ( ⊤ ) et &quot;decode&quot; ( ⊥ ).<br>
<br>
Référence (en recollant les trois URL) :<br>
<br>
<a href="https://github.com/jforget/Perl6-Alpha-As-des-As-Zero/blob/master/Description/description-fr.pod#user-content-indices-n%C3%A9gatifs" rel="noreferrer" target="_blank">https://github.com/jforget/Perl6-Alpha-As-des-As-Zero/blob/master/Description/description-fr.pod#user-content-indices-négatifs</a><br>
<br>
<a href="https://github.com/jforget/Perl6-Alpha-As-des-As-Zero/blob/master/Description/description-fr.pod#user-content-op%C3%A9rateurs-unicode" rel="noreferrer" target="_blank">https://github.com/jforget/Perl6-Alpha-As-des-As-Zero/blob/master/Description/description-fr.pod#user-content-opérateurs-unicode</a><br>
<br>
<a href="https://github.com/jforget/Perl6-Alpha-As-des-As-Zero/blob/master/Description/description-fr.pod#user-content-un-autre-h%C3%A9ritage-dapl" rel="noreferrer" target="_blank">https://github.com/jforget/Perl6-Alpha-As-des-As-Zero/blob/master/Description/description-fr.pod#user-content-un-autre-héritage-dapl</a><br>
<br>
Premier exemple : combien font 1 million de secondes en semaines, jours,<br>
heures, minutes et secondes ?<br>
<br>
     52 7 24 60 60 ⊤ 1000000<br>
1 4 13 46 40<br>
<br>
Réponse, cela fait 1 semaine, 4 jour, 13 heures, 46 minutes<br>
et 40 secondes. Vérification :<br>
<br>
     52 7 24 60 60 ⊥ 1 4 13 46 40<br>
1000000<br>
<br>
Deuxième exemple. Aujourd&#39;hui, la date en compte long maya est<br>
13.0.7.6.9. Combien de jours se sont-ils écoulés depuis la date<br>
origine du calendrier maya ?<br>
<br>
     20 20 20 18 20 ⊥ 13 0 7 6 9<br>
1874649<br>
<br>
Vérification :<br>
<br>
     20 20 20 18 20 ⊤ 1874649<br>
13 0 7 6 9<br>
<br>
On pourrait avoir d&#39;autres exemples avec les unités de mesure <br>
anglo-saxonnes.<br>
<br>
Savez-vous s&#39;il existe un équivalent aux fonctions &quot;code&quot; et &quot;encode&quot;<br>
d&#39;APL ? Vous avez bien compris que je ne suis pas intéressé par les méthodes<br>
de la classe DateTime ou du rôle Dateish. D&#39;autre part, pour la fonction<br>
&quot;decode&quot;, il est possible d&#39;écrire une formule avec des parenthèses, des <br>
plus<br>
et des multiplier, donc je ne suis pas bloqué, mais c&#39;est une question<br>
de style. Pareil pour la fonction &quot;code&quot;, on peut faire cela avec une <br>
boucle,<br>
mais si je pouvais faire cela en une seule instruction avec du style...<br>
<br>
Merci pour vos lumières<br>
<br>
Jean<br>
<br>
<br>
<br>
<br>
_______________________________________________<br>
Perl mailing list<br>
<a href="mailto:Perl@mongueurs.net" target="_blank">Perl@mongueurs.net</a><br>
<a href="http://listes.mongueurs.net/mailman/listinfo/perl" rel="noreferrer" target="_blank">http://listes.mongueurs.net/mailman/listinfo/perl</a><br>
Attention, les archives sont publiques</blockquote></div>