Skip to content

Instantly share code, notes, and snippets.

View gfldex's full-sized avatar

Wenzel P. P. Peppmeyer gfldex

10 followers · 0 following
View GitHub Profile
@gfldex
gfldex / gist:ecde10b59aab332941a245dc4e74ddf0
Last active July 16, 2016 15:23 — forked from dogbert17/gist:dcf078ff80c7b868dfdce95632b4ad63
Taken from https://docs.perl6.org/language/functions
# function to be wrapped:
sub square-root($x) { $x.sqrt }
&square-root.wrap(sub ($num) {
nextsame if $num >= 0;
1i * callwith(abs($num));
});
say square-root(4); # 2
say square-root(-4); # 0+2i
@gfldex
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
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;
});