Ich habe die Raku-Dokumentation und mehrere Bücher und Tutorials sowie mehrere Stackoverflow-Beiträge durchsucht, um zu erfahren, wie ein Element sauber aus einer Liste / einem Array gelöscht wird, dh ohne das (Beliebige) anstelle des gelöschten Elements my @s = <3 18 4 8 92 14 30>; my $item...
Wir wissen, dass ein Fehler von einem CATCH-Block behandelt werden kann. Im folgenden Beispiel erstellen wir einen 'AdHoc'-Fehler (in einem anderen Sub) und behandeln die Ausnahme in einem CATCH-Block (in meinem Sub). sub my-sub { try { CATCH { when X::AdHoc { say 'AdHoc Exception handled here';...
Ich möchte einige Teilmengen definieren, zu denen ich auch einige Einschränkungen und einige dieAnweisungen für einige nützliche Fehlermeldungen hinzufüge . Ich möchte sie nicht oben im Modul definieren, das diese Teilmengen verwendet, sondern sie in einem anderen Modul platzieren und gleichzeitig...
Was ist der beste Weg, um Fehler aus einem separaten Thread zu verbreiten (z. B. Startblock, Proc :: Async oder Sub, der diese enthält). Das einfache Umschließen des Codes, der einen neuen Thread in einen try / CATCH-Block spinnt, funktioniert nicht, und die Verwendung von await funktioniert nur in...
In Perl 5 können Sie wc -lmit Oneliner emulieren : perl -lnE 'END {say $.}' test.txt So implementieren Sie diese Funktionalität auf Raku Wenn Sie versuchen, dies zu implementieren: raku -e 'say "test.txt".IO.open.lines.elems' es stellt sich als langsam heraus und verbraucht viel Speicher...
Ich habe eine Liste von Listen mit zwei Elementen, wie (1..5) Z (20..24)zum Beispiel, was Sie erhalten möchten, die ich in einen Hash umwandeln möchte (in diesem Beispiel, was Sie erhalten {1 => 20, 2 => 21, 3 => 22, 4 => 23, 5 =>24}. Ich könnte es "von Hand" tun, aber das ist es...
Der in diesem Thread angegebene Code funktioniert nicht mehr: Wie kann ich ein Objekt in Perl 6 erneut aktivieren? Ich habe diesen Code letztes Jahr geschrieben und er hat dann funktioniert. Jetzt tut es nicht: class Person { ; } class Woman is Person { ; } my $tom = Person.new; my $lisa =...
Ich versuche, die e- Konstante ( AKA Euler's Number ) durch Berechnung der Formel zu berechnen Um die Fakultät und die Division in einem Schuss zu berechnen, habe ich Folgendes geschrieben: my @e = 1, { state $a=1; 1 / ($_ * $a++) } ... *; say reduce * + * , @e[^10]; Aber es hat nicht...
Standardmäßig gibt Rakus "Würfel" die Zeilennummer an, in der sich der "Würfel" befindet. Was ist, wenn Sie die Zeilennummer des aufrufenden Kontexts möchten, ala "Karpfen" mit Perl
Mit Ausnahme des Blocks, in dem ich eine Signatur deklariert habe, haben alle Blöcke denselben Identitätswert und behaupten, in Zeile 1 deklariert zu werden, unabhängig davon, wo sie auftreten. Könnte jemand etwas Licht ins Dunkel bringen, warum dies der Fall ist? say ｢Let's look at some...
Der Operator 'xx' ist insofern interessant: (^100).pick xx 10 erzeugt eine Liste von 10 zufälligen Ints anstelle eines zufälligen Int, das 10 Mal als Liste wiederholt wird. Wird der Operator vom Compiler als Sonderfall behandelt? Oder ist es wirklich nur ein anderes Sub, das wir auch selbst...
Beim Schreiben eines Übersetzers einer Musiksprache in eine andere (ABC an Alda) als Ausrede für das Erlernen der Raku-DSL-Fähigkeit fiel mir auf, dass es anscheinend keine Möglichkeit gibt, a zu beenden .parse! Hier ist mein verkürzter Demo-Code: #!/home/hsmyers/rakudo741/bin/perl6 use v6d; # use...
Es gibt zwei Arten von Abwechslung in Rakus Regex: die |und ||. Was ist der Unterschied ? say 'foobar' ~~ / foo || foobar / # ｢foo｣ say 'foobar' ~~ / foo | foobar / #
Nehmen wir an, ich benutze ziemlich regelmäßig einen bestimmten Satz Boilerplate: class Foo { method abc($a: $b, $c, +@d) is pure { use Slang::Bar; … } method xyz($a: $b, $c, +@d) is pure { use Slang::Bar; … } method blarg($a: $b, $c, +@d) is pure { use Slang::Bar; … } } Ich möchte lieber einfach...
Ich möchte die zusammenhängenden Folgen gleicher Elemente (z. B. Länge 2) in einer Liste finden 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)) Dieser Code sieht in Ordnung aus, aber wenn nach der Sequenz eine weitere 2 hinzugefügt wird 2 2...
Ich experimentiere oft in der REPL und ich werde etwas sagen wie: subset Bar of Int where * %% 57; Dann spiele ich Barein bisschen mit der Überprüfung der -ness für Dinge herum . Alles ist glücklich, bis mir klar wird, dass ich die Definition von ändern möchte Bar. Wenn ich nur neu definiere Bar,...
Warum muss ich für eine Dauer eine Ratte von Hand zu einem Real zwingen, aber nicht zu einem Int? Dies ist Rakudo Version 2020.01, die auf MoarVM Version 2020.01.1 basiert und Perl 6.d implementiert. Unter OSX. say $v.WHAT; #(Int) $v = Duration.new( $v ); say $v; #20 my $w = 20.0; say $w.WHAT;...
Ich versuche, eine Regex-basierte Lösung für das Rucksackproblem von Perl auf Raku umzustellen. Details zu Perlmonks Die Perl-Lösung erstellt diesen regulären Ausdruck: (?<P>(?:vvvvvvvvvv)?) (?<B>(?:vv)?) (?<Y>(?:vvvv)?) (?<G>(?:vv)?) (?<R>(?:v)?) 0 (?= (?(?{ $1...
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...
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...