Para uma biblioteca que estou escrevendo, tenho um atributo em um HOW que usa a handlescaracterística para delegar métodos de várias funções executadas por outro COMO ele usa para uma instância desse HOW. Minha primeira tentativa foi assim (embora para facilitar a leitura, isso só lide com isso...
Estou usando o Raku para alguns cálculos, porque possui bons tipos numéricos. No entanto, tenho um problema ao usar '.raku' say (1/6+1/6).raku #<1/3> Nós obtemos isso. Contudo, say (1/10+1/10).raku #0.2 Isso é um bug? Eu esperava <1/5>. O que
Um recurso de funções são os grupos de funções, que permitem declarar várias funções com o mesmo nome, aceitando parâmetros diferentes, da mesma forma que as várias rotinas: role Foo[Int:D] { method is-int(::?CLASS:_: --> True) { } method is-str(::?CLASS:_: --> False) { } } role Foo[Str:D]...
Talvez esteja faltando alguma coisa, mas eu gostaria de saber se existe um bom motivo para esse código ser compilado role L { method do-l (Int, Int --> Int ) { ... } } class A does L { method do-l (Int $a, Real $b --> Str) { .Str ~ ": Did you expect Int?" with $a + $b } } my $a =...
Eu tenho um grande hash de matrizes, %qual<discordant> (~ aprox. 13199 valores como '88 .23 ', '99 .23' etc. que varia de 88 a 100 e são lidos em arquivos de texto, e quando imprimo %qual<discordant>.mine %qual<discordant>.maxvejo que os valores estão claramente errados. Eu...
Considerar .say for (1,2,2).rotor(2=>-1).map( -> ($a, $b) { $a - $b }) que funciona como esperado. Contudo, .say for (1,2,2).pairs.rotor(2=>-1).map( -> ($a, $b) { $a.value - $b.value }) joga Too few positionals passed to '<anon>'; expected 2 arguments but got 0 in...
Parece uma pergunta simples, mas Perl6 / Raku não está se comportando como eu esperava. Estou tentando criar uma referência a uma matriz dentro de um hash, mas não estou obtendo o comportamento esperado. No Perl5, a resposta envolveria o acesso à matriz por referência, mas não vejo sintaxe...
Usando o seguinte código: use v6d; # sub circumfix:<α ω>( @a ) { # @a[0] >= @a[1] & @a[0] <= @a[2]; # }; sub circumfix:<α ω>( $a, $b, $c ) { $a >= $b & $a <= $c; }; if (α <5 0 10> ω) { say 'Truthy'; } else { say 'Falsey'; } Resulta em: (base)...
Eu quero clonar uma matriz multidimensional @a em uma matriz @b. Eu procedi da maneira mais intuitiva e criei o seguinte: my @a = [0, 0, 0], [0, 0, 0], [0, 0, 0]; my @b = @a.clone; @a[0][1] = 1; @b[1][0] = 1; say '@a : ' ~ @a.gist; say '@b : ' ~ @b.gist; e a impressão é: @a : [[0 1...
Preciso converter milhares de cadeias de bytes binários, cada uma com cerca de um megabyte, em cadeias ASC. É o que tenho feito e parece muito lento: sub fileToCorrectUTF8Str ($fileName) { # binary file my $finalString = ""; my $fileBuf = slurp($fileName, :bin); for @$fileBuf { $finalString =...
Estou tentando ver a maneira de jogar um mapa no contexto do coletor. Neste código class Sunk { has $.titanic; method sink { say "Sinking $!titanic"; } } Sunk.new( :titanic($_) ) for 1..3; (1..3).map: { Sunk.new( :titanic($_) ) }; O forloop efetivamente afunda todo o criado, o mapnão....
De acordo com a lista de verificação 6.d (versão atual) , eles podem. Contudo, class Foo { has num $.numillo; submethod BUILD( :$numillo = 3.5 ) {} }; my $foo = Foo.new; say $foo.raku; # OUTPUT: «Foo.new(numillo => 0e0)» O atributo atttr parece não ser vinculável ou, pelo menos, não...
Eu tenho uma classe com atributos. Quero verificar se alguns, mas nem todos, estão definidos. Assim: class A { has $.a is rw; has $.b is rw; has $.c is rw; has $.d is rw; method delete { ... } } my A $x .= new(:a<hi>, :d<good>); ## later $x.b = 'there'; ## code in which $x.c...
Versão Rakudo 2020.01 Eu estava escrevendo um código descartável e não me incomodei em implementar uma classe, apenas usei um Hash como trabalho. Eu encontrei um comportamento surpreendente com listas. class Q1 {} class R1 { has Str $.some-str is required; has @.some-list is required; } my $r1...
Eu usei o módulo CPAN Perl Data :: Printer (DP) com Perl. Isso funciona muito bem. Agora eu quero usá-lo no código Raku. Quando eu uso o :from<Perl5>recurso para importá-lo e, em seguida, executar o código usando-o, a anotação (tied to Perl6::Hash)é anexada à exibição de hashes. 1 Como o...
Ao ler e tentar assinatura de correspondência inteligente, encontro algo estranho. Executando os seguintes pares de assinaturas de smartmaching: my @sigs = :($a, $b), :($a, @b), :($a, %b); my @signatures_to_check = :($, $), :($, @), :($, %); my $c = 0; for @sigs -> $sig { for...
No loop for simples a seguir, criamos uma matriz (@a) incrementando uma variável sem tipo ($ n): my @a = do for 1..3 { state $n; $n.^name, $n++; } say @a; O resultado é "tipo de" esperado: [(Any 0) (Int 1) (Int 2)] E digo "mais ou menos" porque esperava como o primeiro valor de $ n o valor...
Eu gostaria de fazer uma substituição de string em um forbloco usando uma captura nomeada. Eu esperava obter os números 1,2,3 como saída. Mas é Nilpara a primeira execução e, em seguida, 1 e 2 para a 2ª e a 3ª execução. Como uso .substcorretamente a construção do loop? Eu vejo o mesmo comportamento...
Como faço para dividir uma sequência de caracteres bem / idioma em uma lista de posições? O que eu tenho: .say for split-at( "0019ABX26002", (3, 4, 8) ); sub split-at( $s, @positions ) { my $done = 0; gather { for @positions -> $p { take $s.substr($done, $p - $done ); $done = $p;...
No exemplo a seguir, tento criar um Capture dinamicamente "convertendo" uma matriz (@a) em um Capture. Considere o código: sub f (|c){ say ''; say ' List : ' ~ do {c.list.gist if c.list.elems > 0}; say ' Hash : ' ~ do {c.hash.gist if c.hash.elems > 0}; say ''; } my $c1 = \(1,(2,3),4,5,...