Skip to content

Instantly share code, notes, and snippets.

💭
🦋

Aleks-Daniel Jakimenko-Aleksejev AlexDaniel

💭
🦋
  • Tallinn, Estonia
Block or report user

Report or block AlexDaniel

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View role-import.p6
# MAIN
require ($*PROGRAM.parent.absolute ~ "/to_require.pm") <required_role> ;
my $c = 1 does required_role ;
View gist:092458de72b918a2873c4429b427500a
use v6;
my int $max = 2_000_000 × 4;
# find all primes up to $max using The Sieve of Erathostenes
my int @a = (0..$max);
for (2..($max div 2)) -> int $i {
my int $j = 2;
@a[$i * $j++] = 1 while $i * $j <= $max;
}
@AlexDaniel
AlexDaniel / Foo.pm6
Last active Oct 5, 2018 — forked from mwienand/Foo.pm6
re-export p6
View Foo.pm6
use FooBar;
module Foo {
sub foo is export { "foo" ~ bar() }
}
sub EXPORT {
FooBar::EXPORT::DEFAULT::
}
View foo.p6
#use Slang::Tuxic;
#use Text::CSV;
#use File::Find;
my $csv_line = foo; # Text::CSV.new (eol => "\n");
my $cols = 49;
my @IO-object-list = < a b c >; #find(:dir</home/user1/documents/animals>, :type<file>, :name(/armadillos_201<[4..8]>.*\.csv/));
for @IO-object-list -> $IO-object {
View gist:227c34f20d638d0b339947c744d05bc8
use v6;
my Int @cache is default(0);
my $sum89 = 0;
for (1..567) -> $i {
@cache[$i] = calc-chain($i);
}
for (1..400_000) -> $i {
@AlexDaniel
AlexDaniel / query
Last active Jul 13, 2018 — forked from Whateverable/query
greppable6
View query
if[^{]+=(?!=)[^{]+\{
@AlexDaniel
AlexDaniel / query
Created Jun 25, 2018 — forked from Whateverable/query
greppable6
@AlexDaniel
AlexDaniel / rc-authors.p6
Last active Feb 26, 2018
Reliably works on 2017.11. reliably fails on 2017.12 and later.
View rc-authors.p6
use lib data/all-modules/github/sergot/datetime-parse/lib;
use lib data/all-modules/github/perl6/Perl6-MIME-Base64/lib;
use lib data/all-modules/github/perl6-community-modules/uri/lib;
use lib data/all-modules/github/supernovus/perl6-http-status/lib;
use lib data/all-modules/github/sergot/http-useragent/lib;
use lib data/all-modules/github/sergot/perl6-encode/lib;
use lib data/all-modules/github/perlpilot/p6-File-Temp/lib;
use lib data/all-modules/github/labster/p6-file-directory-tree/lib;
use lib data/all-modules/cpan/TIMOTIMO/JSON-Fast/lib;
use lib data/all-modules/github/perl6-community-modules/uri/lib;
@AlexDaniel
AlexDaniel / Rakudo-Weekly.md
Last active Nov 27, 2017
🦋 Rakudo weekly report (From ≈2017-11-19T16:04:30 to ≈2017-11-27T00:21:12)
View Rakudo-Weekly.md

Open tickets before: 1727
Open tickets after: 1732
Number of tickets touched: 34

Resolved tickets (13)

[resolved] RT#127573 Lazy range as Array index stops at first deleted index unexpectedly
  [closed]    GH#730 $*VM.platform-library-name: only return IO::Path
@AlexDaniel
AlexDaniel / Rakudo-Weekly.md
Last active Nov 19, 2017
🦋 Rakudo tweekly report (From ≈2017-11-05T14:53:21 to ≈2017-11-19T16:04:30)
View Rakudo-Weekly.md

Open tickets before: 1718
Open tickets after: 1727
Number of tickets touched: 72

Resolved tickets (20)

[resolved]  RT#76120 backslash escapes in double-angle quotes
[resolved]  RT#79424 implement :: in regexes
You can’t perform that action at this time.