Para una biblioteca que estoy escribiendo, tengo un atributo en un CÓMO que usa el handlesrasgo para delegar métodos de varios roles realizados por otro CÓMO que usa a una instancia de ese CÓMO. Mi primer intento se veía así (aunque para hacer esto más fácil de leer, esto solo se resolverá...
Estoy usando Raku para algunos cálculos, porque tiene buenos tipos numéricos. Sin embargo, tengo un problema con el uso de '.raku' say (1/6+1/6).raku #<1/3> Obtenemos esto. Sin embargo, say (1/10+1/10).raku #0.2 ¿Es un error? Esperaba <1/5>. ¿Lo que
Una característica de los roles son los grupos de roles, que le permiten declarar múltiples roles con el mismo nombre aceptando diferentes parámetros, de manera similar a las rutinas múltiples: role Foo[Int:D] { method is-int(::?CLASS:_: --> True) { } method is-str(::?CLASS:_: --> False) {...
Tal vez me falta algo, pero me gustaría saber si hay una buena razón por la cual este código debe compilarse 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 = A.new; say...
Tengo un gran hash de matrices, %qual<discordant> (~ aproximadamente 13199 valores como '88 .23 ', '99 .23', etc. que oscila entre 88 y 100, y se leen desde archivos de texto, y cuando imprimo %qual<discordant>.miny %qual<discordant>.maxpuedo ver que los valores están...
Considerar .say for (1,2,2).rotor(2=>-1).map( -> ($a, $b) { $a - $b }) que funciona como se esperaba Sin embargo, .say for (1,2,2).pairs.rotor(2=>-1).map( -> ($a, $b) { $a.value - $b.value }) tiros Too few positionals passed to '<anon>'; expected 2 arguments but got 0 in...
Esto parece una pregunta simple, pero Perl6 / Raku no se está comportando como esperaba. Estoy tratando de crear una referencia a una matriz dentro de un hash, pero no obtengo el comportamiento esperado. En Perl5, la respuesta implicaría acceder a la matriz por referencia, pero no veo una sintaxis...
Usando el siguiente 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'; } Resultados en: (base)...
Quiero clonar una matriz multidimensional @aen una matriz @b. He procedido de la manera más intuitiva y se me ocurrió lo siguiente: 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; y la impresión es:...
Necesito convertir miles de cadenas de bytes binarios, cada una de aproximadamente un megabyte de longitud, en cadenas ASC. Esto es lo que he estado haciendo, y parece demasiado lento: sub fileToCorrectUTF8Str ($fileName) { # binary file my $finalString = ""; my $fileBuf = slurp($fileName,...
Estoy tratando de ver la forma de lanzar un mapa en contexto de sumidero. En este código class Sunk { has $.titanic; method sink { say "Sinking $!titanic"; } } Sunk.new( :titanic($_) ) for 1..3; (1..3).map: { Sunk.new( :titanic($_) ) }; los for bucle efectivamente hunde todo lo creado, el...
De acuerdo con la lista de verificación 6.d (versión actual) , pueden hacerlo . Sin embargo, class Foo { has num $.numillo; submethod BUILD( :$numillo = 3.5 ) {} }; my $foo = Foo.new; say $foo.raku; # OUTPUT: «Foo.new(numillo => 0e0)» El atributo no parece ser enlazable, o al menos no...
Tengo una clase con atributos. Quiero verificar si algunos pero no todos están definidos. Entonces: 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...
Rakudo versión 2020.01 Estaba escribiendo un código desechable y no me molesté en implementar una clase, solo usé un Hash como trabajo. Encontré un comportamiento sorprendente con las listas. class Q1 {} class R1 { has Str $.some-str is required; has @.some-list is required; } my $r1 =...
He usado el módulo CPAN Perl Data :: Printer (DP) con Perl. Funciona muy bien Ahora quiero usarlo en el código Raku. Cuando uso la :from<Perl5>función para importarlo y luego ejecuto el código que lo usa, la anotación (tied to Perl6::Hash)se agrega a la visualización de hashes. 1 Como...
Mientras leo e intento el emparejamiento inteligente de firmas, me encuentro con algo extraño. Ejecutando los siguientes pares de firmas de smartmaching: my @sigs = :($a, $b), :($a, @b), :($a, %b); my @signatures_to_check = :($, $), :($, @), :($, %); my $c = 0; for @sigs -> $sig { for...
En el siguiente bucle for simple, creamos una matriz (@a) incrementando una variable sin tipo ($ n): my @a = do for 1..3 { state $n; $n.^name, $n++; } say @a; El resultado es "tipo de" esperado: [(Any 0) (Int 1) (Int 2)] Y digo "tipo de" porque he esperado como el primer valor de $ n el...
Me gustaría hacer una sustitución de cadena en un forbloque usando una captura con nombre. Esperaba obtener los números 1,2,3 como salida. Pero es Nilpara la primera carrera, y luego 1 y 2 para la segunda y tercera carrera. ¿Cómo uso .substcorrectamente en la construcción de bucle? Veo el mismo...
¿Cómo divido agradable / idiomáticamente una cadena en una lista de posiciones? Lo que tengo: .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; } take...
En el siguiente ejemplo, trato de crear una captura dinámicamente "convirtiendo" una matriz (@a) en una captura. Considera el 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 =...