Wenzel P. P. Peppmeyer gfldex

gfldex / test2.p6

Created January 31, 2017 08:47 — forked from samcv/test2.p6

	my %results;
	for ^10 {
	%results{$_}<bytes> = (1..10).pick;
	}
	say %results.perl;
	say %results.keys.sort({
	my $c = %results{$^a}<bytes> cmp %results{$^b}<bytes>;
	$c ?? $c !! $^a.Int cmp $^b.Int;
	});

gfldex / accepts.pl6

Created July 17, 2016 18:53 — forked from anonymous/accepts.pl6

	class Command {
	has Str $.name;

	method ACCEPTS(Any:D $other) {
	return $other ~~ Str and $other ~~ $!name;
	}
	}

	my $c = Command.new(name => 'foo');
	say ('foo' ~~ $c); #outputs: True

gfldex / gist:ecde10b59aab332941a245dc4e74ddf0

Last active July 16, 2016 15:23 — forked from dogbert17/gist:dcf078ff80c7b868dfdce95632b4ad63

Taken from https://docs.perl6.org/language/functions