AlexDaniel’s gists

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

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 / 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 / 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 / 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 / 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 / query

Created June 25, 2018 22:57 — forked from Whateverable/query

greppable6

\<\-\>

AlexDaniel / query

Last active July 13, 2018 12:17 — forked from Whateverable/query

greppable6

if[^{]+=(?!=)[^{]+\{

AlexDaniel / gist:227c34f20d638d0b339947c744d05bc8

Last active August 13, 2018 16:21 — forked from dogbert17/gist:f663fabba14ffe6fda2fc33182b78c46

Perf regression

AlexDaniel / foo.p6

Last active September 5, 2018 20:29 — forked from bazzaar/gist:914a5c3e6fd69e45de7ecce9d16e360b

for loop with .lines

	#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 {

Aleks-Daniel Jakimenko-Aleksejev AlexDaniel