Aleks-Daniel Jakimenko-Aleksejev AlexDaniel

AlexDaniel / rc-authors.p6

Last active February 26, 2018 23:10

Reliably works on 2017.11. reliably fails on 2017.12 and later.

	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 / mustache-hyper.pl6

Last active August 20, 2017 16:43 — forked from scmorrison/mustache-hyper.pl6

Perl 6 - Template::Mustache.render dies with hyper

	#!/usr/bin/env perl6
	use lib ‘data/all-modules/softmoth/p6-Template-Mustache’;
	use v6;
	#use v6.d.PREVIEW;

	use Template::Mustache;

	my $html = q:to/EOF/;
	<html>
	{{> head }}

AlexDaniel / testshellmem.p6

Last active August 16, 2017 20:47 — forked from Skarsnik/result.txt

	use nqp;

	my $html;
	my $proc = run "wget", "-o", "/dev/null", "-O", "-", "https://www.fimfiction.net/bookshelf/149291/", :out;
	$html = $proc.out.slurp-rest;

	say "html is " ~ $html.chars ~ " chars";
	nqp::force_gc;
	say "/proc/$PID/statm".IO.lines[0].split(/\s/)[5] 4096 / 1024

AlexDaniel / test.pl6

Last active July 8, 2017 15:51 — forked from dogbert17/test.pl6

Fails when run normally but works with MVM_SPESH_DISABLE=1

	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;

AlexDaniel / gist:429ed056c3791545824d2a1c139258fe

Last active May 7, 2016 22:10 — forked from ahalbert/gist:b2714e33f15d6e2b3aa9944ef6c1867d

	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;

AlexDaniel / t3.pl6

Last active May 3, 2016 02:21

	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
	}
	}