[Perl] APL → Raku : un équivalent de "code" et "decode" ?

[Laurent Rosenfeld]

Bonsoir Jean,

je pense que la méthode polymod <https://docs.perl6.org/routine/polymod>
correspond probablement à ton besoin.

Bonne soirée,
Laurent.

<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail>
Garanti
sans virus. www.avast.com
<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail>
<#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2>

Le lun. 23 mars 2020 à 19:16, Jean <ponder.stibbons at orange.fr> a écrit :

> Ainsi que je l'ai exposé lors des Journées Perl 2018
> il est possible de trouver dans Raku des équivalents à
> certains opérateurs APL. En ce moment, je cherche s'il existe
> des équivalents aux opérateurs "code" ( ⊤ ) et "decode" ( ⊥ ).
>
> Référence (en recollant les trois URL) :
>
>
> https://github.com/jforget/Perl6-Alpha-As-des-As-Zero/blob/master/Description/description-fr.pod#user-content-indices-négatifs
>
>
> https://github.com/jforget/Perl6-Alpha-As-des-As-Zero/blob/master/Description/description-fr.pod#user-content-opérateurs-unicode
>
>
> https://github.com/jforget/Perl6-Alpha-As-des-As-Zero/blob/master/Description/description-fr.pod#user-content-un-autre-héritage-dapl
>
> Premier exemple : combien font 1 million de secondes en semaines, jours,
> heures, minutes et secondes ?
>
>      52 7 24 60 60 ⊤ 1000000
> 1 4 13 46 40
>
> Réponse, cela fait 1 semaine, 4 jour, 13 heures, 46 minutes
> et 40 secondes. Vérification :
>
>      52 7 24 60 60 ⊥ 1 4 13 46 40
> 1000000
>
> Deuxième exemple. Aujourd'hui, la date en compte long maya est
> 13.0.7.6.9. Combien de jours se sont-ils écoulés depuis la date
> origine du calendrier maya ?
>
>      20 20 20 18 20 ⊥ 13 0 7 6 9
> 1874649
>
> Vérification :
>
>      20 20 20 18 20 ⊤ 1874649
> 13 0 7 6 9
>
> On pourrait avoir d'autres exemples avec les unités de mesure
> anglo-saxonnes.
>
> Savez-vous s'il existe un équivalent aux fonctions "code" et "encode"
> d'APL ? Vous avez bien compris que je ne suis pas intéressé par les
> méthodes
> de la classe DateTime ou du rôle Dateish. D'autre part, pour la fonction
> "decode", il est possible d'écrire une formule avec des parenthèses, des
> plus
> et des multiplier, donc je ne suis pas bloqué, mais c'est une question
> de style. Pareil pour la fonction "code", on peut faire cela avec une
> boucle,
> mais si je pouvais faire cela en une seule instruction avec du style...
>
> Merci pour vos lumières
>
> Jean
>
>
>
>
> _______________________________________________
> Perl mailing list
> Perl at mongueurs.net
> http://listes.mongueurs.net/mailman/listinfo/perl
> Attention, les archives sont publiques
-------------- section suivante --------------
Une pièce jointe HTML a été nettoyée...
URL: <http://listes.mongueurs.net/archives/perl/attachments/20200323/af777848/attachment.html>