FAQ: Dans Raku, comment supprimez-vous certains caractères d'une chaîne, en fonction de leur index? Dis que je veux supprimer les indices 1 à 3 et 8 xxx("0123456789", (1..3, 8).flat); # 045679
Pour les questions relatives au langage de programmation Raku (anciennement connu sous le nom de Perl 6).
FAQ: Dans Raku, comment supprimez-vous certains caractères d'une chaîne, en fonction de leur index? Dis que je veux supprimer les indices 1 à 3 et 8 xxx("0123456789", (1..3, 8).flat); # 045679
Parfois, je vais commencer à écrire une chaîne d'appels de méthode sur Perl 6 REPL, comme: ".".IO.dir.grep(...).map(...). ... et puis je me rends compte que ce que je veux faire avec la liste finale, c'est imprimer chaque élément sur sa propre ligne. Je m'attendrais à ce que les séquences aient...
En essayant de créer un message JSON pour une API, j'ai eu du mal à faire quelque chose que je pensais être simple. J'avais besoin de créer un message comme celui-ci: { "list": [ { "foo": 1, "bar": 2 } ] } Cependant, ma première tentative n'a pas fonctionné: say to-json { foo => [ { a => 1, b...
J'ai passé beaucoup de temps à déboguer un script récemment, et quand j'ai finalement trouvé le problème, c'était à cause du code qui ressemblait à ceci: class Foo { has $.bar; method () { # do stuff $!.bar; } } Il s'est avéré que le problème était avec cela $!.bar, qui aurait dû être soit $!barou...
Comment exprimer la séquence de double sommation double variable en Perl 6? Pour un exemple de séquence de sommation double variable double , voir ceci Il doit être exprimé tel quel, c'est-à-dire sans réduire mathématiquement la double sommation en une seule sommation. Je vous...
En Perl, en utilisant Moo, vous pouvez implémenter des aroundsous-marins, qui encapsuleront d'autres méthodes dans une classe. around INSERT => sub { my $orig = shift; my $self = shift; print "Before the original sub\n"; my $rv = $orig->($self, @_); print "After the original sub\n"; };...
J'ai des données TSV ID Name Email 1 test [email protected] 321 stan [email protected] Je voudrais analyser ceci dans une liste de hachages @entities[0]<Name> eq "test"; @entities[1]<Email> eq "[email protected]"; J'ai du mal à utiliser le métacaractère de nouvelle ligne pour délimiter la...
J'ai du mal à comprendre quand et pourquoi la valeur détenue par un Scalarconteneur poussé est affectée après la poussée. Je vais essayer d'illustrer le problème que j'ai rencontré dans un contexte plus compliqué dans deux exemples stylisés. * Exemple 1 * Dans le premier exemple, un scalaire $iest...
#Private attribute example class C { has $!w; #private attribute multi method w { $!w } #getter method multi method w ( $_ ) { #setter method warn “Don’t go changing my w!”; #some side action $!w = $_ } } my $c = C.new $c.w( 42 ) say $c.w #prints 42 $c.w: 43 say $c.w #prints 43 #but not $c.w = 44...
my @s=<1 2 3 2 3 4>; say reduce {$^a < $^b}, @s; say [<] @s; # -------- # True # False Ma question est double: premièrement, pourquoi le méta- <opérateur de réduction traite-t-il l' opérateur différemment? Il semble que la métaop de réduction soit estimée à l'aide d'une variable qui,...
J'écris un package de dessin avec certaines parties et j'ai des opérateurs et des types de données dispersés. Cependant, je ne veux pas que les utilisateurs ajoutent les modules correspondants à chaque fois, car ce serait assez compliqué, par exemple, j'aurais une Pointclasse, un Monoidrôle et une...
Je voudrais exécuter une application perl6 / raku Cro en tant que service derrière un serveur Web frontal. Le simple fait de courir cro runne gérera pas le redémarrage après des erreurs de segmentation et des redémarrages. Auparavant avec perl5, j'ai utilisé FastCGI - cependant Cro::HTTP::Serverl'...
Ici j'apprends mon chemin autour de Raku (neé Perl 6), très sympa tout autour. Mais la magie <>de Perl 5 me manque cruellement , où vous pouvez simplement: my $x = <>; print $x; while(<>) { print join(':', split); } (lire la ligne d'entrée suivante dans $x, faire une boucle sur le...
Je suis curieux de savoir pourquoi Raku exécute si mal les tableaux multidimensionnels de manipulation. J'ai fait un test rapide en initialisant une matrice à 2 dimensions en Python, C # et Raku et le temps écoulé est étonnamment élevé pour la dernière. Pour Raku my @grid[4000;4000] = [[0 xx 4000]...
Hash avec des touches tapées… use v6; class Foo {} my Hash[Foo, Foo] $MAP; my $f1 = Foo.new; my $f2 = Foo.new; $MAP{$f1} = $f2; produit l'erreur: L'invocant de la méthode 'ASSIGN-KEY' doit être une instance d'objet de type 'Hash [Foo, Foo]', pas un objet type de type 'Hash [Foo, Foo]'. Avez-vous...
Je peux facilement utiliser des signatures de jeton en utilisant directement le nom du jeton: my token t ( $x ) { $x }; 'axb' ~~ / 'a' <t: 'x'> 'b' /; # match 'axb' ~~ / 'a' <t( 'x' )> 'b' /; # match Cependant, je n'ai pas trouvé de moyen de le faire, lorsque le jeton est stocké dans...
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 supprime le message car je n'ai pas été consulté sur la censure /
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...
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...