<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&utm_source=link&utm_campaign=sig-email&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&utm_source=link&utm_campaign=sig-email&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 <<a href="mailto:ponder.stibbons@orange.fr">ponder.stibbons@orange.fr</a>> 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'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'il existe<br>
des équivalents aux opérateurs "code" ( ⊤ ) et "decode" ( ⊥ ).<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'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'autres exemples avec les unités de mesure <br>
anglo-saxonnes.<br>
<br>
Savez-vous s'il existe un équivalent aux fonctions "code" et "encode"<br>
d'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'autre part, pour la fonction<br>
"decode", il est possible d'écrire une formule avec des parenthèses, des <br>
plus<br>
et des multiplier, donc je ne suis pas bloqué, mais c'est une question<br>
de style. Pareil pour la fonction "code", 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>