Skip to content

Instantly share code, notes, and snippets.

@Whateverable
Created March 31, 2018 11:24
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Whateverable/f72b60a28a2b2403ff388cb54ec53d2a to your computer and use it in GitHub Desktop.
Save Whateverable/f72b60a28a2b2403ff388cb54ec53d2a to your computer and use it in GitHub Desktop.
greppable6
Bool\.(roll|pick)
File Code
JMERELO/Algorithm-Evolutionary-Simple
…/Simple.pm6 :6:
return Bool.pick() xx $length;
TIMOTIMO/SDL2-Raw
…/white_noise.p6 :53:
$pixdata[$cursor + $col] = Bool.roll ?? 0xff !! 0x0;
gfldex/perl6-pod-to-bigpage
…/html.xhtml :2583:
Bool.pick;
gfldex/perl6-pod-to-bigpage
…/html.xhtml :3957:
do { say "Heads I win, tails I die."; Bool.pick } or die; say "I win.";</pre>
gfldex/perl6-pod-to-bigpage
…/html.xhtml :7965:
die if not Bool.pick;
gfldex/perl6-pod-to-bigpage
…/html.xhtml :7973:
<p>In the above case, if the <span class="code">Bool.pick</span> returns true, the answer will stay as 84 because the block returns a defi…
gfldex/perl6-pod-to-bigpage
…/html.xhtml :12931:
die if not Bool.pick;
gfldex/perl6-pod-to-bigpage
…/html.xhtml :12939:
<p>In the above case, if the <span class="code">Bool.pick</span> returns true, the answer will stay as 84 because the block returns a defi…
gfldex/perl6-pod-to-bigpage
…/html.xhtml :18124:
Bool.pick ?? "($formula $op $number)"
gfldex/perl6-pod-to-bigpage
…/html.xhtml :19707:
if Bool.pick {
jonathanstowe/Chronic
…/020-basic.t :27:
last if Bool.pick;
jonathanstowe/Chronic
…/020-basic.t :29:
last if Bool.pick;
perl6/doc
…/concurrency.pod6 :193:
Bool.pick;
perl6/doc
…/control.pod6 :94:
do { say "Heads I win, tails I die."; Bool.pick } or die; say "I win.";
perl6/doc
…/haskell-to-p6.pod6 :295:
multi greeting ( Str \name where { Bool.pick } --> 'True' ){}
perl6/doc
…/haskell-to-p6.pod6 :307:
multi greeting ( Str \name where { Bool.pick } --> 'True' ){}
perl6/doc
…/operators.pod6 :1321:
die if not Bool.pick;
perl6/doc
…/operators.pod6 :1330:
In the above case, if the C<Bool.pick> returns true, the answer will
perl6/doc
…/variables.pod6 :848:
die if not Bool.pick;
perl6/doc
…/variables.pod6 :857:
In the above case, if the C<Bool.pick> returns true, the answer will
perl6/doc
…/Bool.pod6 :58:
say Bool.pick; # OUTPUT: «True␤»
perl6/doc
…/Bool.pod6 :59:
say Bool.pick(1); # OUTPUT: «(False)␤»
perl6/doc
…/Bool.pod6 :60:
say Bool.pick(*); # OUTPUT: «(False True)␤»
perl6/doc
…/Bool.pod6 :73:
say Bool.roll; # OUTPUT: «True␤»
perl6/doc
…/Bool.pod6 :74:
say Bool.roll(3); # OUTPUT: «(True False False)␤»
perl6/doc
…/Bool.pod6 :75:
say Bool.roll(*); # OUTPUT: «(...)␤»
perl6/doc
…/List.pod6 :884:
Bool.pick ?? "($formula $op $number)"
perl6/doc
…/Promise.pod6 :173:
if Bool.pick {
skids/perl6-Control-Bail
…/README.md :128:
Bool.pick or die("Unpredicable failure");
skids/perl6-Control-Bail
…/README.md :145:
Bool.pick or die "sacked!";
skids/perl6-Control-Bail
…/README.md :148:
Bool.pick or die "tackled!";
skids/perl6-Control-Bail
…/Bail.pm6 :21:
Bool.pick or die "sacked!";
skids/perl6-Control-Bail
…/Bail.pm6 :25:
Bool.pick or die "tackled!";
skids/perl6sum
…/libcrypto.t :49:
lives-ok { for 0..10000 { my $a := Sum::libcrypto::Instance.new("sha1"); $a.finalize() if Bool.pick; } }, "Supposedly test GC sanity";
skids/perl6sum
…/libmhash.t :55:
lives-ok { for 0..10000 { my $a := Sum::libmhash::Instance.new("ADLER32"); $a.finalize if Bool.pick; } }, "Supposedly test GC sanity";
skids/perl6sum
…/librhash.t :45:
lives-ok { for 0..10000 { my $a := Sum::librhash::Instance.new("CRC32"); $a.finalize(:bytes(4)) if Bool.pick; } }, "Supposedly test GC sanity";
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment