Für eine Bibliothek, die ich schreibe, habe ich ein Attribut für ein WIE, das das handlesMerkmal verwendet, um Methoden verschiedener Rollen, die von einem anderen WIE ausgeführt werden, an eine Instanz dieses WIE zu delegieren. Mein erster Versuch sah so aus (obwohl dies nur einfacher zu lesen...
Ich benutze Raku für einige Berechnungen, weil es schöne numerische Typen hat. Ich habe jedoch ein Problem mit der Verwendung von '.raku'. say (1/6+1/6).raku #<1/3> Wir erhalten dies. Jedoch, say (1/10+1/10).raku #0.2 Ist es ein Fehler? Ich habe <1/5> erwartet. Was...
Eine Funktion von Rollen sind Rollengruppen, mit denen Sie mehrere Rollen mit demselben Namen deklarieren können, die unterschiedliche Parameter akzeptieren, ähnlich wie bei mehreren Routinen: role Foo[Int:D] { method is-int(::?CLASS:_: --> True) { } method is-str(::?CLASS:_: --> False) { } }...
Vielleicht fehlt mir etwas, aber ich würde gerne wissen, ob es einen guten Grund gibt, warum dieser Code kompiliert werden sollte 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...
Ich habe einen großen Hash von Arrays, %qual<discordant> (~ ca. 13199 Werte wie '88 .23 ', '99 .23' usw. die von 88-100 reicht und aus Textdateien eingelesen wird, und wenn ich drucke %qual<discordant>.minund %qual<discordant>.maxsehe, dass die Werte eindeutig falsch sind. Ich...
Erwägen .say for (1,2,2).rotor(2=>-1).map( -> ($a, $b) { $a - $b }) das funktioniert wie erwartet. Jedoch, .say for (1,2,2).pairs.rotor(2=>-1).map( -> ($a, $b) { $a.value - $b.value }) wirft Too few positionals passed to '<anon>'; expected 2 arguments but got 0 in sub-signature...
Dies scheint eine einfache Frage zu sein, aber Perl6 / Raku verhält sich nicht so, wie ich es erwarten würde. Ich versuche, einen Verweis auf ein Array innerhalb eines Hashs zu erstellen, erhalte jedoch nicht das erwartete Verhalten. In Perl5 würde die Antwort den Zugriff auf das Array als Referenz...
Verwenden Sie den folgenden Code: 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'; } Ergebnisse...
Ich möchte ein mehrdimensionales Array @ain ein Array klonen @b. Ich habe den intuitivsten Weg eingeschlagen und mir Folgendes ausgedacht: 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; und der Ausdruck ist: @a :...
Ich muss Tausende von binären Byte-Strings, die jeweils etwa ein Megabyte lang sind, in ASC-Strings konvertieren. Dies ist, was ich getan habe und scheint zu langsam: sub fileToCorrectUTF8Str ($fileName) { # binary file my $finalString = ""; my $fileBuf = slurp($fileName, :bin); for @$fileBuf {...
Ich versuche herauszufinden, wie man eine Karte in einen Sink-Kontext wirft. In diesem Code class Sunk { has $.titanic; method sink { say "Sinking $!titanic"; } } Sunk.new( :titanic($_) ) for 1..3; (1..3).map: { Sunk.new( :titanic($_) ) }; Die forSchleife versenkt effektiv alle erstellten, die...
Laut der Checkliste 6.d (aktuelle Version) können sie. Jedoch, class Foo { has num $.numillo; submethod BUILD( :$numillo = 3.5 ) {} }; my $foo = Foo.new; say $foo.raku; # OUTPUT: «Foo.new(numillo => 0e0)» Das Attribut scheint nicht bindbar zu sein oder erhält zumindest keinen zugewiesenen Wert....
Ich habe eine Klasse mit Attributen. Ich möchte überprüfen, ob einige, aber nicht alle definiert sind. Damit: 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...
Rakudo Version 2020.01 Ich habe einen Wegwerfcode geschrieben und mich nicht darum gekümmert, eine Klasse zu implementieren, sondern nur einen Hash als Work-Alike verwendet. Ich fand ein überraschendes Verhalten bei Listen. class Q1 {} class R1 { has Str $.some-str is required; has @.some-list is...
Ich habe das CPAN Perl-Modul Data :: Printer (DP) mit Perl verwendet. Es funktioniert großartig. Jetzt möchte ich es im Raku-Code verwenden. Wenn ich die :from<Perl5>Funktion zum Importieren verwende und dann Code damit ausführe, wird die Anmerkung (tied to Perl6::Hash)an die Anzeige von...
Beim Lesen und Ausprobieren von Signatur-Smartmatching stoße ich auf etwas Seltsames. Ausführen der folgenden Smartmaching-Signaturpaare: my @sigs = :($a, $b), :($a, @b), :($a, %b); my @signatures_to_check = :($, $), :($, @), :($, %); my $c = 0; for @sigs -> $sig { for @signatures_to_check...
In der folgenden einfachen for-Schleife erstellen wir ein Array (@a), indem wir eine typenlose Variable ($ n) inkrementieren: my @a = do for 1..3 { state $n; $n.^name, $n++; } say @a; Das Ergebnis wird "irgendwie" erwartet: [(Any 0) (Int 1) (Int 2)] Und ich sage "irgendwie", weil ich als...
Ich möchte eine Zeichenfolgenersetzung in einem forBlock mithilfe eines benannten Captures vornehmen . Ich habe erwartet, die Zahlen 1,2,3 als Ausgabe zu erhalten. Aber es ist Nilfür den ersten Lauf und dann 1 und 2 für den 2. und 3. Lauf. Wie verwende ich .substdas Konstrukt korrekt in der...
Wie teile ich eine Zeichenfolge an einer Liste von Positionen schön / idiomatisch auf? Was ich habe: .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 $s.substr(...
Im folgenden Beispiel versuche ich, ein Capture dynamisch zu erstellen, indem ich ein Array (@a) in ein Capture "konvertiere". Betrachten Sie den Code: 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 ''; }...