Quelle est la meilleure façon de propager les erreurs à partir d'un thread séparé (par exemple, le bloc de démarrage, Proc :: Async ou un sous-conteneur les contenant). Le simple encapsulage du code qui dérive un nouveau thread dans un bloc try / CATCH ne fonctionne pas, et l'utilisation de...
Série mathématique, prenez par exemple la séquence consécutive représentée ici sous forme de tableau: my @seq = my $a=0, {++$a} ... *; for @seq[^10].kv {state $f=0; ($^k < 4 or $^k > 7) ?? say "a$^k = " ~ $^v !! (say "..." if $f ne 1; $f=1) }; Tirages: a0 = 0 a1 = 1 a2 = 2 ... a8 = 8 a9 = 9...
J'ai une liste de listes à deux éléments, comme ce que vous obtiendrez par exemple (1..5) Z (20..24), que je veux transformer en hachage (dans cet exemple, ce que vous obtenez {1 => 20, 2 => 21, 3 => 22, 4 => 23, 5 =>24}. Je pourrais le faire "à la main", mais ce n'est pas pas trop...
Il existe deux types d'alternance dans l'expression régulière de Raku: le |et ||. Quelle est la différence ? say 'foobar' ~~ / foo || foobar / # ｢foo｣ say 'foobar' ~~ / foo | foobar / # ｢foobar｣
À l'exception du bloc où j'ai déclaré une signature, tous les blocs ont la même valeur d'identité et prétendent être déclarés sur la ligne 1, peu importe où ils se produisent. Quelqu'un pourrait-il nous expliquer pourquoi c'est le cas? say ｢Let's look at some blocks…｣; if True { &?BLOCK.say; }...
Dans Perl 5, vous pouvez émuler en wc -lutilisant oneliner: perl -lnE 'END {say $.}' test.txt Comment implémenter cette fonctionnalité sur Raku Si vous essayez de l'implémenter: raku -e 'say "test.txt".IO.open.lines.elems' il s'avère lent et utilise beaucoup de mémoire Informations à reproduire: $...
J'ai cherché dans la documentation Raku et plusieurs livres et tutoriels et plusieurs publications Stackoverflow pour apprendre comment supprimer un élément d'une liste / tableau proprement, c'est-à-dire sans avoir (Tout) à la place de l'élément supprimé my @s = <3 18 4 8 92 14 30>; my $item...
J'essaie de convertir une solution basée sur regex pour le problème de sac à dos de Perl en raku. Détails sur Perlmonks La solution Perl crée cette expression régulière: (?<P>(?:vvvvvvvvvv)?) (?<B>(?:vv)?) (?<Y>(?:vvvv)?) (?<G>(?:vv)?) (?<R>(?:v)?) 0 (?= (?(?{ $1...
Je sais que je peux planifier une Promiseconservation dans un laps de temps donné avec my $promise = Promise.in($seconds); mais comment puis-je planifier sa rupture? Plus précisément, je pense à une promesse qui "expirera", de sorte qu'elle ait jusqu'à un certain temps pour être conservée, sinon...
Nous savons qu'un échec peut être géré par un bloc CATCH. Dans l'exemple suivant, nous créons un échec «AdHoc» (dans other-sub) et nous gérons l'exception dans un bloc CATCH (dans my-sub) sub my-sub { try { CATCH { when X::AdHoc { say 'AdHoc Exception handled here'; .resume } default {say 'Other...
Je voudrais définir quelques sous-ensembles auxquels j'ajoute également quelques contraintes et quelques dieinstructions pour certains messages d'erreur utiles. Je ne veux pas les définir en haut du module qui utilise ces sous-ensembles et je veux plutôt les placer dans un autre module tout en...
Le code donné dans ce fil ne fonctionne plus: comment puis-je ré-bénir un objet en Perl 6? J'ai écrit ce morceau de code l'année dernière, et cela a fonctionné ensuite. Maintenant, ce n'est pas le cas: class Person { ; } class Woman is Person { ; } my $tom = Person.new; my $lisa = Woman.new; say...
J'essaie de calculer la constante e ( AKA Euler's Number ) en calculant la formule Afin de calculer la factorielle et la division en un seul coup, j'ai écrit ceci: my @e = 1, { state $a=1; 1 / ($_ * $a++) } ... *; say reduce * + * , @e[^10]; Mais ça n'a pas marché. Comment le faire...
Par défaut, le "die" de Raku rapporte le numéro de ligne où se trouve le "die", que se passe-t-il si vous souhaitez le numéro de ligne du contexte appelant, ala "carpe" avec perl
Je supprime le message car je n'ai pas été consulté sur la censure /
En train d'écrire un traducteur d'une langue musicale à une autre (ABC à Alda) comme excuse pour apprendre la capacité Raku DSL, j'ai remarqué qu'il ne semblait pas y avoir de moyen de terminer un .parse! Voici mon code de démonstration abrégé: #!/home/hsmyers/rakudo741/bin/perl6 use v6d; # use...
Je voudrais trouver les séquences contiguës d'éléments égaux (par exemple de longueur 2) dans une liste my @s = <1 1 0 2 0 2 1 2 2 2 4 4 3 3>; say grep {$^a eq $^b}, @s; # ==> ((1 1) (2 2) (4 4) (3 3)) Ce code semble correct mais quand un 2 de plus est ajouté après la séquence de 2 2 2ou...