Skip to content

Instantly share code, notes, and snippets.

@bdw
Created Oct 6, 2018
Embed
What would you like to do?
shift test
#!/usr/bin/env nqp
sub shifter(int $x, int $y) {
nqp::abs_i(nqp::bitshiftl_i($x, $y));
}
my int $i := 0;
while ($i++ < 1_000_000) {
my $x := shifter(10,3);
if (shifter(10,3) != 80) {
nqp::die("OHNO $i $x");
}
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment