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 Grammar::Debugger; use Grammar::Tracer; my $test-n01 = q:to/EOS/; a …
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 …
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 })wwww|) (?(?{ $2 })w|) (?(?{ $3 })wwwwwwwwwwww|) (?(?{ $4 })ww|) (?(?{ $5 })w|) ) was gegen abgeglichen wird vvvvvvvvvvvvvvvvvvv0wwwwwwwwwwwwwww. …
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 blocks…」; if True { …
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 …
Nehmen Sie zum Beispiel die hier dargestellte aufeinanderfolgende Sequenz als Array: 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) }; Drucke: a0 = 0 …
Ich bin gespannt auf Raku (Perl 6) und seine Syntax. Ich habe Perl 5 bereits auf meinem Ubuntu-Computer installiert. vinod@ubuntu-s-1vcpu-1gb-nyc1-01:~$ perl -v This is perl 5, version 26, subversion 1 (v5.26.1) built for x86_64-linux-gnu-thread-multi (with 67 registered patches, see perl -V for more detail) Copyright 1987-2017, Larry Wall Perl may …
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 definieren können? (Wenn …
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 Ist das ein Fehler oder fehlt mir …
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 …
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 geschieht?
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) { } } role Foo[Str:D] { method is-int(::?CLASS:_: --> False) { } …
Beim Versuch, Programmcode zu debuggen, stieß ich auf Folgendes: (base) hsmyers@BigIron:~$ rlwrap -A raku To exit type 'exit' or '^D' > my regex N { <[A..G]> }; regex N { <[A..G]> } > my %h = A => 1, B => 2; {A => 1, B => 2} > 'B' …
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 { $finalString = $finalString ~ $_.chr; …
We use cookies and other tracking technologies to improve your browsing experience on our website,
to show you personalized content and targeted ads, to analyze our website traffic,
and to understand where our visitors are coming from.
By continuing, you consent to our use of cookies and other tracking technologies and
affirm you're at least 16 years old or have consent from a parent or guardian.