| use nqp; | |
| { | |
| constant $read-file = "README.md".IO; | |
| $read-file.IO.r; | |
| for ^1000 { | |
| my $p = Proc::Async.new( | «/bin/cat $read-file» ); | |
| my $output = ''; | |
| $p.stdout.tap: -> $s { $output ~= $s; }; | |
| await $p.start; |
| path-iterator |
| Processing https://docs.raku.org/ | |
| List of broken links and other issues: | |
| https://github.com/Raku/doc/blob/master/CONTRIBUTING.md | |
| Line: 84 | |
| Code: 200 OK | |
| To do: Some of the links to this resource point to broken URI fragments | |
| (such as index.html#fragment). |
| multi sub infix:<+>(Unit $x, Unit $y) { | |
| if (not $x.isSameUnit($y)) {die "Units do not match.";} | |
| return Unit.new(magnitude => $x.magnitude + $y.magnitude, units => $x.units); | |
| } | |
| my $a = Units::Unit.new(magnitude => 1.2, units => ("m" => 1)); | |
| my $b = Units::Unit.new(magnitude => 5.0, units => ("m" => 1)); | |
| say $a + $b; |
| #!/usr/bin/env perl6 | |
| sub get_primes(int $n) { | |
| return () if $n < 2; | |
| return (2) if $n == 2; | |
| my int @s = (); | |
| loop (my int $i = 3; $i <= $n; $i+=2) { | |
| @s.push($i); | |
| } |
| my class a { | |
| has @.b; | |
| method get-flat { @!b.map(|*.get-flat); } | |
| method p { | |
| say 'A: ', WHAT $.get-flat; | |
| # why doesn't this loop act like D: below? | |
| for self.get-flat() -> $c { | |
| say 'B: ', $c.perl | |
| } | |
| } |
Is there a cute Perl 6 way to take an array (say
‘a’..‘d’) and get all head/tail partitions of it (e.g.(<a>, <b c d>), (<a b>, <c d>), (<a b c>, <d>))?
Sure! Pick one:
my @a = ‘a’..‘e’; say (@a[^$_, $_..*] for 1..^@a);
my @b = ‘a’..‘e’; say (1..^@b).map: {@b[^$_, $_..*]};
my @c = ‘a’..‘e’; say (@c.rotor($_, ∞, :partial) for 1..^@c);
my @z = ‘a’..‘e’; say @z[0..*-2].keys.map: {@z[0..$_, $_^..*]}; # same as b
my @d = ‘a’..‘e’; say (1..^@d).map: {@d.rotor: $_, ∞, :partial};