Created
April 5, 2017 02:26
-
-
Save Whateverable/d6f5310f2bb552d9291f587eca281cb3 to your computer and use it in GitHub Desktop.
quotable6
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
/^ ‘bisect: ’ / |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
bisect: m: my @f = <1 2 3 4>; dd @f.map(-> \x --> Str { x.Str }) | |
bisect: old=2016.10 new=HEAD m: dd (($++ ?? 42 !! |()) xx *)[^3] | |
bisect: callframe(1).annotations<line> | |
bisect: old=2016.07 say ^∞ .grep: { last } | |
bisect: old=2016.11 say (^∞ .grep: { last })[^5] | |
bisect: (<2/1> + <2/1>).ceiling.say | |
bisect: (<1/2> + <3/2>).ceiling.say | |
bisect: m: say slip().defined | |
bisect: HEAD $++ for '/home/bisectable/.bash_history'.IO.lines.batch(30) | |
bisect: $++ for '/home/bisectable/.bash_history'.IO.lines.batch(30) | |
bisect: old=2016.10 $++ for '/home/bisectable/.bash_history'.IO.lines.batch(30) | |
bisect: old=2016.12 new=HEAD $++ for '/home/bisectable/.bash_history'.IO.lines.batch(30) | |
bisect: old=2016.12 new=HEAD $++ for '/home/bisectable/.bash_history'.IO.lines.rotor(30, :partial) | |
bisect: 1 <= *.chars <= 4 | |
bisect: (1,2,3).Array[0]++ | |
bisect: use lib </home/bisectable/test>; use B; use A | |
bisect: for dir(‘foo’) { .slurp.say } | |
bisect: for dir(‘foo’) { .slurp.say }; exit 0 | |
bisect: use nqp; my int $a = 2; if nqp::isint($a) { say($a) } | |
bisect: 'hello' [&say] 'world' | |
bisect: multi infix:<-> (Str $, Str $) { say "hi" }; say "start"; quietly "x" - "x" | |
bisect: multi infix:<-> (Str $, Str $) { say "hi" }; say "start"; "x" - "x" | |
bisect: say (1,2).map({ LAST { say "DONE" } })[2] | |
bisect: old=2015.11 class MyInt is Any is Int { } | |
bisect: say 255.base(16, -100) | |
bisect: old=2015.07 say 255.base(16, -100) | |
bisect: class C { our method m {}; method n { $.m } }; say C.new.n | |
bisect: old=2016.03 say ^1000 .grep: -> $n {([+] ^$n .grep: -> $m {$m and $n %% $m}) == $n } | |
bisect: new=2016.03 say ^1000 .grep: -> $n {([+] ^$n .grep: -> $m {$m and $n %% $m}) == $n } | |
bisect: {class Test::Builder::Test { };}; {role Test::Builder::Plan::Generic { }; class Test::Builder::Plan does Test::Builder::Plan::Generic { };}; {class Test::Builder { has Test::Builder::Plan::Generic $!plan; };}; | |
bisect: *...‘WAT’ | |
bisect: %*ENV<RAKUDO_BACKTRACE_SETTING> = 1; say 1/0 | |
bisect: %*ENV<RAKUDO_VERBOSE_STACKFRAME> = 2; say 1/0 | |
bisect: for 42 { say "foo".match(/foo/); say $/ } | |
bisect: constant $R = /f(oo)/; say so "foo" ~~ $R; say ~$0 # RT #126969 | |
bisect: good=fc47bbf bad=631e2f770e constant $R = /f(oo)/; say so "foo" ~~ $R; say ~$0 # RT #126969 | |
bisect: good=631e2f770e bad=fc47bbf constant $R = /f(oo)/; say so "foo" ~~ $R; say ~$0 # RT #126969 | |
bisect: say 1**NaN | |
bisect: sub foo (*@what) { @what[*-1] ~= 42; dd @what }; foo 'foo', 'bar', 'ber' | |
bisect: 2016.04 use Test; "ac" ~~ /(.)(.)?(.)/; is-deeply $/.perl.EVAL, $/ | |
bisect: use Test; "ac" ~~ /(.)(.)?(.)/; is-deeply $/.perl.EVAL, $/ | |
bisect: sub aa (Int @a) { say "hi"; }; my @a of Int; aa(@a) | |
bisect: bad=2015.12.25,good=HEAD sub aa (Int @a) { say "hi"; }; my @a of Int; aa(@a) | |
bisect: bad=2015.12,good=HEAD sub aa (Int @a) { say "hi"; }; my @a of Int; aa(@a) | |
bisect: bad=2016.01,good=HEAD sub aa (Int @a) { say "hi"; }; my @a of Int; aa(@a) | |
bisect: good=2015.12 bad=2016.08.1 sub aa (Int @a) { say "hi"; }; my @a of Int; aa(@a) | |
bisect: good 2016.07 Scalar.new | |
bisect: good 2016.07 bad HEAD~40 Scalar.new | |
bisect: good 2016.07 bad HEAD~40 Scalar.new | |
bisect: good 2016.07 bad Scalar.new | |
bisect: good 2016.07 Scalar.new | |
bisect: say ∞.Rat.nude | |
bisect: my @a = 1; for (@a xx 1) { } | |
bisect: m: say (1 ... *).grep(*.is-prime).is-lazy; | |
bisect: multi cross() {}; | |
bisect: my $list = (1,2,3); $list[1] := 4; dd $list | |
bisect: use Test; subtest "Foo", { ok 1 } | |
bisect: my @a is List = 1,2,3; dd @a | |
bisect: good=2015.10 my @a is List = 1,2,3; dd @a # just for fun | |
bisect: good=2015.11 bad=2015.12 my @a is List = 1,2,3; dd @a # just for fun | |
bisect: 'á' ~~ m:g:ignoremark/ <[a]> / | |
bisect: Bool::False // die | |
bisect: use NativeCall; sub system (Str) is native {}; system 'ls' | |
bisect: use NativeCall; sub system (Str) is native {}; system 'hostname' | |
bisect: say (^∞).grep({ last })[5] | |
bisect: say ‘hello world’ | |
bisect: .say for ^200 | |
bisect: good=2016.03 bad 2016.02 say (^∞).grep({ last })[5] # swapped good and bad revisions | |
bisect: good 2015.10 my $p1 = start die "I’m dead"; my $p2 = start ~"I’m alive"; try await Promise.allof($p1, $p2); say .result for grep { .status ~~ ‘Kept’}, $p1, $p2; | |
bisect: "Foo".comb.count-only | |
bisect: good=053729c bad=HEAD "Foo".comb.count-only | |
bisect: " ".Int | |
bisect: say " ".Int | |
bisect: " ".Int == 0 or die | |
bisect: bad=7cff429 say " ".Int | |
bisect: bad=7cff429,good=66a592 say " ".Int | |
bisect: bad=7cff429 good=HEAD say " ".Int | |
bisect: good=HEAD bad=7cff429 say " ".Int | |
bisect: good=7cff429 bad=HEAD my $x; try $x = " ".Int; say $x.defined and die | |
bisect: https://gist.github.com/Tux/aad6d6ee389a5a19ee26e580071b6521 | |
bisect: https://gist.githubusercontent.com/Tux/aad6d6ee389a5a19ee26e580071b6521/raw/f3b033c98e99b34215863d6e851cfd9320ca2515/gistfile1.txt | |
bisect: Promise.in(1).then({exit 1}); say (0..10).rotor(1,2 xx *); | |
bisect: run($*EXECUTABLE, "--rxtrace", "-e", q/say "hello world"/, :out).out.slurp-rest.say | |
bisect: 2 ** 99999999999999999999999999999999999 | |
bisect: use nqp; die if nqp::atkey(CompUnit::Loader.load-source(q<package Qux { BEGIN say "eval!"; BEGIN EVAL q<>; BEGIN say "eval done!" }; class Foo {};>.encode).unit, q<$?PACKAGE>).^name eq "Qux"; | |
bisect: use nqp; die if nqp::atkey(CompUnit::Loader.load-source(q<package Qux { BEGIN EVAL q<>; };>.encode).unit, q<$?PACKAGE>).^name eq "Qux"; | |
bisect: good=2015.10 2 ** 99999999999999999999999999999999999 | |
bisect: ++.++ | |
bisect: bad=HEAD~200 ++.++ | |
bisect: bad=HEAD~100 ++.++ | |
bisect: bad=HEAD~50 ++.++ | |
bisect: try EVAL '++.++'; say "Error: $!" | |
bisect: my $supplier = Supplier.new; my $supply = $supplier.Supply; my @seen; $supply.act: { .say }; await (1..5).map: { start { $supplier.emit($_) } } | |
bisect: my uint8 $test = 0; $test--; say $test | |
bisect: sub foo { return 42 }; for ^158 { foo } | |
bisect: 2 ∈ <2> or die | |
bisect: sub foo() { return 42 }; for ^158 { foo } | |
bisect: my @list = 1; say @list.permutations | |
bisect: Inf.Rat == 1/0 or die | |
bisect: use Test; exit 1 if throws-like { EVAL ‘my Str where 'foo' $test’ }, X::Syntax::Malformed | |
bisect: use Test; exit 1 if throws-like { EVAL ‘my Str where 'foo' $test’ }, X::Syntax::Malformed; exit 0 | |
bisect: exit 1 if (^∞).grep({ last })[5] // 0 == 4 # RT 128181 | |
bisect: old=2015.07 42 . say | |
bisect: old=2015.11 say True ~~ Int | |
bisect: say qw|! @ # $ % ^ & * \| < > | eqv '! @ # $ % ^ & * | < >'.words | |
bisect: old=2015.07 say sum ^10 .grep: *.is-prime | |
bisect: old=2015.07 say ^10 .sum | |
bisect: old=2015.07 say 5 .Int | |
bisect: old=e0201f1 $++ for $*PROGRAM.IO.lines.batch(30) | |
bisect: old=2016.12 new=HEAD $++ for '/home/bisectable/.bash_history'.IO.lines.rotor(30, :partial) | |
bisect: old=4a295dc5 $++ for '/home/bisectable/.bash_history'.IO.lines.rotor(30, :partial) | |
bisect: say 2 ≤ 50 | |
bisect: say 5 ≤ 10 | |
bisect: old=26e6993bd82 say "aaaastaaa" ~~ m:i/st/; | |
bisect: my $x = 1,$_ | |
bisect: old=2015.10 my $x = 1,$_ | |
bisect: old=2017.01 new=HEAD my Rat @nums = (1.0, 1/2+1/2)».norm; say @nums.unique; | |
bisect: old=2015.07 say ½ | |
bisect: old=2015.07 my $s = Supplier.new; my $tap = $s.Supply.tap(-> $v { say "the value is $v" }, done => { say "Supply is done" }, done => { say "Tap done" }, quit => -> $ex { say "Supply finished with error $ex" }, ); $tap.close | |
bisect: old=6bd80ec9cc my $s = Supplier.new; my $tap = $s.Supply.tap(-> $v { say "the value is $v" }, done => { say "Supply is done" }, done => { say "Tap done" }, quit => -> $ex { say "Supply finished with error $ex" }, ); $tap.close | |
bisect: Buf.new ~ Buf.new | |
bisect: say WHY 'Life, the Universe, and Everything': | |
bisect: old=HEAD~300 say "ø".uniprop: $_ for <Numeric Alphabetic>; | |
bisect: role R { multi method foo( :$a!, ) { }; multi method foo( :$b!, ) { } }; class C does R {} | |
bisect: say '⽝'.uniprop('East_Asian_Width') | |
bisect: old=HEAD~500 say '⽝'.uniprop('East_Asian_Width') | |
bisect: old=HEAD~200 my @x = 1, 3 … *; say @x.flat.flat | |
bisect: use NativeCall; use nqp; my $anchor; my $c = nativecast(Pointer[uint8], Buf.new(1,2,3,4,5,6)); class f is repr("CStruct") { has uint16 $.a; has uint32 $.b }; my $d = nativecast(f,$c); my $f = $d.a; nqp::force_gc; $d = nativecast(f,$c); say $f == $d.a | |
bisect: my $p = Promise.new; my $b = 0; my $w = start { await($p); CATCH { default { $b = 1; .resume } } }; $p.break; await($w); $b.say | |
bisect: my $p = Promise.new; my $b = 0; my $w = start { await($p); CATCH { default { $b = 1; } } }; $p.break; await($w); $b.say | |
bisect: old=abf6caf06eb7e48674d4e22a4ad6b580e5efecbf my $p = Promise.new; my $b = 0; my $w = start { await($p); CATCH { default { $b = 1; .resume } } }; $p.break; await($w); $b.say | |
bisect: old=b8df3a613125f17e9cbc59488326187bcfed8e2c my $p = Promise.new; my $b = 0; my $w = start { await($p); CATCH { default { $b = 1; .resume } } }; $p.break; await($w); $b.say | |
bisect: my $x := (my $y := $x); say $x.WHAT | |
bisect: my @a = @a | |
bisect: old=2015.07 my @a = @a | |
bisect: 50 . say | |
bisect: ^0 . pick . say | |
bisect: ^1 .pick.say | |
bisect: old=2015.09 50 . say | |
bisect: old=2015.09 50 . say | |
bisect: -> *@a { @a.is-lazy.say }(1…∞) | |
bisect: m: my \SCALE = 3; my \FANOUT = 2; sub divide-and-conquer($n, $depth) { say "$depth: $n" if 0; $depth <= 0 ?? $n !! [+] await do for ^FANOUT { start { divide-and-conquer($n / FANOUT, $depth - 1) } } }; say divide-and-conquer(1.0, SCALE); | |
bisect: old=2015.07 say ($ = 42) ~~ S/4/2/; say $/; say $_ | |
bisect: old=f54ff833 say ($ = 42) ~~ S/4/2/; say $/; say $_ | |
bisect: old=2014.01 new=2015.12 S/4/2/.VAR.name.say given "x" | |
bisect: old=587f700e9 say ($ = 42) ~~ S/4/2/; say $/; say $_ | |
bisect: old=2015.05 new=2015.06 S/4/2/.VAR.name.say given "x" | |
bisect: class C { method defined { True } }; say ?C | |
bisect: m: my IO::Path $a .= new: "." | |
bisect: old=2017.01 new=HEAD my IO::Path $a .= new: "." | |
bisect: old=0c89292 new=HEAD my IO::Path $a .= new: "." | |
bisect: two novels and several short stories, and his debut novel 'The | |
bisect: say <one two>.categorize({ ( m:g/<[aeiou]>/ )».Str }) | |
bisect: say <one two>.classify({ ( m:g/<[aeiou]>/ )».Str }) | |
bisect: old=2016.01 new=2016.10 <one two>.classify({ ( m:g/<[aeiou]>/ )».Str }) | |
bisect: old=2016.01 new=2016.12 say <one two>.classify({ ( m:g/<[aeiou]>/ )».Str }) | |
bisect: old=5f1249e8 sub foo { supply { emit($_) for 1..10; }; }; react { whenever foo() { next if $_ > 3; say $_; }; }; | |
bisect: sub foo { supply { emit($_) for 1..10; }; }; react { whenever foo() { next if $_ > 3; CATCH { default { exit 1 } } }; }; exit 0 | |
bisect: sub clip-to ($min, $v is rw, $max) { $v = ($min max $v) min $max }; sub blah ( Array() :$rgbd ) { clip-to 0, $_, 255 for @$rgbd; }; blah(rgbd => <.086, .165, .282> ); | |
bisect: old=ed5c866 new=HEAD use lib </home/bisectable/test/DBIish/lib /home/bisectable/test/Blob/lib>; use DBIish; DBIish.install-driver(<Pg>) | |
bisect: old=ed5c866 new=HEAD use lib </home/bisectable/test/DBIish/lib /home/bisectable/test/Blob/lib>; use DBIish; DBIish.install-driver(<Pg>) | |
bisect: my @x = lazy 1..3; say (@x X 4..7)[^10] | |
bisect: my @x = 6,8,9,3,42,5,-5,0,2; say @x.minpairs | |
bisect: say list '!' ^..^ '&'; | |
bisect: multi a($a is rw) { say "writable" }; multi a($a) { $a = 99 }; a my $; a 42 | |
bisect: old=HEAD~300 my @array[2;2;2]; for @array.pairs { say .perl } | |
bisect: old=2015.07 <a b c d e f g h i>».say | |
bisect: 2015.12,HEAD dd my $b = Blob.new(1,2,3); dd subbuf-rw($b,2,1) = Buf.new(42); dd $b | |
bisect: dd my $b = Blob.new(1,2,3); dd subbuf-rw($b,2,1) = Buf.new(42); dd $b | |
bisect: 2015.12,HEAD my %f := Map.new; %f.WHICH.say | |
bisect: my %f := Map.new; %f.WHICH.say | |
bisect: my %f := Map.new; exit %f.WHICH.gist.ends-with(‘|’) | |
bisect: say [-] [+] 1,2,3 | |
bisect: multi regex-dispatch(/fo+/) { }; multi regex-dispatch(/ba+/) {}; regex-dispatch("foo"); | |
bisect: class A { has $.wut = [] }; my $a = A.new; $a.wut = [1,2,3]; say $a.wut | |
bisect: class Foo { submethod BUILD { fail "noway" } } ; dd Foo.new | |
bisect: old=2014.07 say Rakudo::Internals.PROPCODE('space'); say Rakudo::Internals.PROPCODE('White_Space'), | |
bisect: sub foo(--> 123) { } | |
bisect: old=2015.10 sub foo(--> 123) { } | |
bisect: old=2015.09 sub foo(--> 123) { } | |
bisect: say Dateish.is-leap-year(2016); | |
bisect: new=f4bda35^ say Dateish.is-leap-year(2016); | |
bisect: my @x; say @x»<xxx> | |
bisect: say WHAT ‘hello’.comb(/./) | |
bisect: my $x = do while (1) { LAST { exit }; }; | |
bisect: my $i = 30; say permutations( +(^$i).join.comb ).elems | |
bisect: new=ab3a59c3^ my $i = 30; say permutations( +(^$i).join.comb ).elems | |
bisect: all Rakudo::Internals.PROPCODE('Space') | |
bisect: all say Rakudo::Internals.PROPCODE('Space') | |
bisect: 0xF.uniprop-bool('space').say | |
bisect: 0xF.uniprop-bool('Space').say | |
bisect: my @a = 1,2; say @a =:= @a.item; | |
bisect: my @a = 1,2; say @a.WHERE === @a.item.WHERE; | |
bisect: all say 0xD800.chr | |
bisect: multi sub cross() { } | |
bisect: class foo { method TWEAK { say ‘hi’ } }; foo.new | |
bisect: my $a = Pointer[int32].new(10); $a.deref.say; | |
bisect: use NativeCall; my $a = Pointer[int32].new(10); $a.deref.say; | |
bisect: (^42).^lookup('max').file.say | |
bisect: old=2016.11 say 2**-999999 | |
bisect: old=2015.11 my &block = { say 'returning from &block'; return }; sub returned-from(&code) { say 'enter returned-from'; code; say 'leave returned-from' }; sub forcing-a-return { returned-from &block }; forcing-a-return; | |
bisect: my $xs = map({ $_² }, (1…Inf)); say $xs.grep({last if $_ > 100; True})[^100] | |
bisect: say <a1 a2 a3>.map({S/a/x/}).perl | |
bisect: say ‘abc’.trans(‘a’ => ‘X’, ‘a’ => ‘Z’, ‘c’ => ‘C’) | |
bisect: "<ciao>mamma</ciao>" ~~ /:r '<' (<[\w\W]>+?) '>'/ | |
bisect: .say for Inf..0 | |
bisect: 2015.07 .say for Inf..0 | |
bisect: old=2015.07 .say for Inf..0 | |
bisect: old=2015.07 .say for (Inf..0)[^2000] | |
bisect: old=2015.07 .say for (Inf..0)[2000] | |
bisect: [SR-] | |
bisect: old=2016.09 say (4,5,6).head(-9999999999999999999) | |
bisect: old=2016.09 say (4,5,6).tail(-9999999999999999999) | |
bisect: say ‘hi’.indent(9999999999999999999) | |
bisect: say S:g/d// given 'abc' | |
bisect: https://gist.github.com/dogbert17/41042137f44394a0094c1cc1c05055bb | |
bisect: https://gist.githubusercontent.com/dogbert17/41042137f44394a0094c1cc1c05055bb/raw/fa0236369e6d8ca5c3eccf8a0a6fddac1f85f616/gistfile1.txt | |
bisect: m: my $x = "meow" but role { method ^name($) { dd "heh" } } | |
bisect: say 42 x Nil | |
bisect: old=2016.10 say 42 x Nil | |
bisect: old=2015.10 say 42.roll(-1) | |
bisect: say ().rotor(1) | |
bisect: q'test' | |
bisect: dd (^10).lazy.iterator.can("count-only") | |
bisect: dd (^10).lazy.iterator.count-only | |
bisect: old=2015.10 say ½ | |
bisect: old=2015.07 sub (+abc){}(42, 69) | |
bisect: use MONKEY-SHINE; | |
bisect: use MONKEY-BARS; | |
bisect: role Fooish { method fooey {...} }.WHY.say | |
bisect: #|{ a Fooish thingy }; role Fooish { method fooey {...} } | |
bisect: old=2016.10 new=2016.11 dd '789'.comb(/ . <?{ say $/; False }> /) | |
bisect: sub foo(True) { dd 'meow' }; foo False | |
bisect: old=2016.10 my $errors = 3; my @stuff = flat ("abc" xx 255) Z ("12" xx 128+$errors); for @stuff -> $line { unless $line ~~ m/1/ { say "seen: $line" if $line.index("2") }; if $line ~~ m/9/ { } } | |
bisect: my $errors = 3; my @stuff = flat ("abc" xx 255) Z ("12" xx 128+$errors); for @stuff -> $line { unless $line ~~ m/1/ { say "seen: $line" if $line.index("2") }; if $line ~~ m/9/ { } } | |
bisect: sub f(::T $a) { sub(T $b) { $a ~ $b } }; f(2)(3).say | |
bisect: my $a = "john.doe@perl6.org"; my $b = / <:L>+\.<:L>+\@<:L+:N>+\.<:L>+ /; say $/ if $a ~~ $b; | |
bisect: old=2016.10 my $a = "john.doe@perl6.org"; my $b = / <:L>+\.<:L>+\@<:L+:N>+\.<:L>+ /; say $/ if $a ~~ $b; | |
bisect: sort: 1...3; say sort.gist | |
bisect: sort unique (2, 12, 1, 2): : | |
bisect: class { has $.x! }.new | |
bisect: my int $a = -10; say $a % 12 | |
bisect: sub foo { loop (my $i = 0; $i < 5; ++$i) { say $i; } }; foo # RT #127238 | |
bisect: sub infix:<j>{$^l.comb.tail eq $^r.comb.head??(|$l,$r)!!|@};say [Xj] <te tt>,<fg et>,<wd td>; # usually you'll do this | |
bisect: open 'foo' orelse say "Something happened $!" | |
bisect: sub t { say $*d }; my $*d = 1; await do { start { t() } } | |
bisect: my $*A = 42; do { start { $*A++ } }; sleep 1; say $*A | |
bisect: [*] set(1,2,3), | |
bisect: say [*] set(1,2,3), | |
bisect: old=2015.10 ((1,2,3),(4,5,6)).map(&join).say | |
bisect: old=2015.10 put() | |
bisect: old=2015.10 put() # oh come on | |
bisect: "foo".IO.modified | |
bisect: m: my $var = 5; say "aaaaa" ~~ / "a" ** $var / | |
bisect: good=2016.04,bad=HEAD m: my $var = 5; say "aaaaa" ~~ / "a" ** $var / | |
bisect: m: say "7\x[308]" ~~ /^ \d+ $/ | |
bisect: my @a = 5, 6; END dd @a; @a.push: 42 | |
bisect: m: sub foo ( *@what ) { say @what.is-lazy }( 1...* ) | |
bisect: m: Promise.in(2).then: {exit}; sub foo ( *@what ) { say @what.is-lazy }( 1...* ) | |
bisect: my regex fú { \. }; say 'w00t' if 'a.b' ~~ / <fú> / | |
bisect: :१x | |
bisect: say DateTime.now.Str.chars | |
bisect: my $foo = True; END say $foo | |
bisect: good=2015.12 bad=HEAD say ^1000 .grep: -> $n {([+] ^$n .grep: -> $m {$m and $n %% $m}) == $n } | |
bisect: m: my $awesome-int = 42 but role { method is-even { self %% 2 } }; 42.is-even.say; | |
bisect: class WorkingInt is Int {}; my $awesome-int = WorkingInt.new(42) but role { method is-even { self %% 2 } }; 42.is-even.say; | |
bisect: m: say Any.^can("push")[0] ~~ Callable; | |
bisect: m: fail.^name.say | |
bisect: fail.^name.say | |
bisect: my $x; ($x) = (42, 69); say $x | |
bisect: sub foo { { LEAVE { say ‘block left’ }; return 42; }; say ‘end’ }; say foo | |
bisect: say WHAT ‘.’.IO.abspath | |
bisect: module Foo { multi MAIN($, $) is export { } }; import Foo; multi MAIN($) { }; | |
bisect: good=HEAD bad=2016.01 module Foo { multi MAIN($, $) is export { } }; import Foo; multi MAIN($) { }; | |
bisect: m: sub infix:<↑>($a, $b) is assoc<right> {$a ** $b}; sub infix:<↑↑>($a, $b) is assoc<right> { [↑] $a xx $b }; sub infix:<↑↑↑>($a, $b) is assoc<right> { [↑↑] $a xx $b }; sub infix:<↑↑↑↑>($a, $b) is assoc<right> { [↑↑↑] $a xx $b }; say 3↑↑3 | |
bisect: m: sub foo (:$what = 42) { dd $what }; sub bar (:$what) { foo (:$what if $what) }; bar | |
bisect: ++blah++ | |
bisect: for 1..100 -> $i { say (((^$i).map: {^$_}) <<(-)>> ((^($i+1)).map: {$_ xx $i})) } | |
bisect: 2+2 | |
bisect: for 1..100 -> $i { say (((^$i).map: {^$_}) <<(-)>> ((^($i+1)).map: {$_ xx $i})) } | |
bisect: m: use MONKEY-TYPING; augment class IO::Path { multi method basename (:$ext!) { $.basename.substr: 0, *-$.extension } }; "foo.txt.bak".IO.basename(:!ext).say | |
bisect: my @ends; for ^0x00ff -> $i { my $c = try { $i.chr }; next if !$c.defined or $c eq "("; next unless $c ~~ /<:Ps>|<:Pi>/; my $end = :16(uniprop($c, "Bidi_Mirroring_Glyph")); next unless $end.defined; $end = $end.chr; say("'$c' {uniname($c)} ~ '$end' {uniname($end)}") } | |
bisect: https://gist.github.com/ugexe/7ce08d3ad4cfd36f275c437ba9713471 | |
bisect: https://gist.githubusercontent.com/ugexe/7ce08d3ad4cfd36f275c437ba9713471/raw/e1deedcbc120a53757d8dd78602bb8bf51b21c3b/gistfile1.txt | |
bisect: https://gist.githubusercontent.com/zoffixznet/1b371fb8c4624aa662d622e685d6e950/raw/d42b6046679b369cbb0faa4dcefde97b5f66d0f5/gistfile1.txt | |
bisect: say ^10 .grep: { last if * > 2 } | |
bisect: say ^10 .grep({ last if $_ > 4; $_ }) | |
bisect: min(+'a', +'a').say | |
bisect: good=2015.10 min(+'a', +'a').say | |
bisect: good=2015.10 try { min(+‘a’, +‘a’).say; CATCH { exit 1 } } | |
bisect: say chr 9999999999999999999999 | |
bisect: good=2015.10 say chr 9999999999999999999999 | |
bisect: try { say chr 9999999999999999999999; CATCH { default { exit 1 if $_ ~~ /Cannot\sunbox/; exit 0 } } } | |
bisect: good=2015.10 try { say chr 9999999999999999999999; CATCH { default { exit 1 if $_ ~~ /Cannot\sunbox/; exit 0 } } } | |
bisect: good=2015.10 bad=7f30326^ try { say chr 9999999999999999999999; CATCH { default { exit 1 if $_ ~~ /Cannot\sunbox/; exit 0 } } } | |
bisect: good=2015.10 bad=7f30326^ say chr 9999999999999999999999 | |
bisect: say List.^name | |
bisect: good=2015.10 my $p1 = start die "I’m dead"; my $p2 = start ~"I’m alive"; try await Promise.allof($p1, $p2); say .result for grep { .status ~~ ‘Kept’}, $p1, $p2; | |
bisect: #| THIS IS A CLASS FOR SHOUTING THINGS class MY-CLASSES-ARE-ALL-CAPS { method WHY { "I DON'T KNOW" } } my $c = MY-CLASSES-ARE-ALL-CAPS.new; say $c.WHY say $c."WHY"() | |
bisect: good=2015.10 #| THIS IS A CLASS FOR SHOUTING THINGS class MY-CLASSES-ARE-ALL-CAPS { method WHY { "I DON'T KNOW" } } my $c = MY-CLASSES-ARE-ALL-CAPS.new; say $c.WHY say $c."WHY"() | |
bisect: #| THIS IS A CLASS FOR SHOUTING THINGS class MY-CLASSES-ARE-ALL-CAPS { method WHY { "I DON'T KNOW" } } my $c = MY-CLASSES-ARE-ALL-CAPS.new; say $c.WHY; say $c."WHY"() | |
bisect: #| THIS IS A CLASS FOR SHOUTING THINGS class MY-CLASSES-ARE-ALL-CAPS { method WHY { "I DON'T KNOW" } }; my $c = MY-CLASSES-ARE-ALL-CAPS.new; say $c.WHY; say $c."WHY"() | |
bisect: good=2015.10 #| THIS IS A CLASS FOR SHOUTING THINGS class MY-CLASSES-ARE-ALL-CAPS { method WHY { "I DON'T KNOW" } }; my $c = MY-CLASSES-ARE-ALL-CAPS.new; say $c.WHY; say $c."WHY"() | |
bisect: good=2015.09 #| THIS IS A CLASS FOR SHOUTING THINGS class MY-CLASSES-ARE-ALL-CAPS { method WHY { "I DON'T KNOW" } }; my $c = MY-CLASSES-ARE-ALL-CAPS.new; say $c.WHY; say $c."WHY"() | |
bisect: https://gist.github.com/atweiden/9d1dfe825ade18a7db54d8e0733ca2e4 | |
bisect: # newline testexit 42 | |
bisect: class Foo { method new { self.bless: *, :foo<bar> } }.new | |
bisect: good=2016.01.1 class Foo { method new { self.bless: *, :foo<bar> } }.new | |
bisect: good=2016.02 class Foo { method new { self.bless: *, :foo<bar> } }.new | |
bisect: good=2d9202c class Foo { method new { self.bless: *, :foo<bar> } }.new | |
bisect: use REPL; say 1 | |
bisect: EVAL “use REPL” if 1; CATCH { exit 0 if $_ ~~ /builtin/; exit 1 } | |
bisect: my $p1 = start die "I’m dead"; my $p2 = start ~"I’m alive"; try await Promise.allof($p1, $p2); say .result for grep { .status ~~ ‘Kept’}, $p1, $p2; | |
bisect: class Foo { method new { self.bless: *, :foo<bar> } }.new | |
bisect: use REPL; say 1 | |
bisect: bad=HEAD~1 use REPL; say 1 | |
bisect: use REPL; say 1 | |
bisect: my @h = :foo; sub bar (@h) { say @h; @h[0] = 42; say @h }; bar @h; say @h | |
bisect: class User { has $.username is required; method new(*%args) { my $obj = self.bless(*, |%args); return $obj; } }; User.new(username => 'foo'); | |
bisect: class MY-CLASSES-ARE-ALL-CAPS { method WHY { "I DONT KNOW" } }; my $c = MY-CLASSES-ARE-ALL-CAPS.new; say $c.WHY; say $c."WHY"() | |
bisect: #| THIS IS A CLASS FOR SHOUTING THINGS class MY-CLASSES-ARE-ALL-CAPS { method WHY { "I DON'T KNOW" } } my $c = MY-CLASSES-ARE-ALL-CAPS.new; say $c.WHY say $c."WHY"() # /o\ | |
bisect: #| THIS IS A CLASS FOR SHOUTING THINGS class MY-CLASSES-ARE-ALL-CAPS { method WHY { "I DON'T KNOW" } } my $c = MY-CLASSES-ARE-ALL-CAPS.new; say $c.WHY say $c."WHY"() # /o\ | |
bisect: use experimental :macros; macro polo ($ast) { quasi { say 42; say {{{ $ast }}} } }; polo 11 | |
bisect: bad=HEAD~10 use experimental :macros; macro polo ($ast) { quasi { say 42; say {{{ $ast }}} } }; polo 11 | |
bisect: use experimental :macros; macro polo ($ast) { quasi { say 42; say {{{ $ast }}} } }; polo 11 | |
bisect: use experimental :macros; macro a { quasi {{{ 42 }}} }; a | |
bisect: react { whenever Supply.interval: 1 -> $ { done } } | |
bisect: exit 42 | |
bisect: exit 999999999999999 | |
bisect: exit -99999999 | |
bisect: exit -999999999 | |
bisect: exit -999999 | |
bisect: exit -99999 | |
bisect: [1..99].map:{[$_%%5&&'fizz', $_%%3&&'buzz'].grep:Str} | |
bisect: my $b = bag <bacon eggs>; my $p = $b.pairs; say $p.WHAT; for $p { .say }; for $p { .say } | |
bisect: m: class Bar { ... }; class Foo { trusts Bar; has $!meths = <foo bar ber>; }; class Bar { method do ($z) { .say for $z!meths } }; Bar.new.do: Foo.new | |
bisect: m: class Bar { ... }; class Foo { trusts Bar; has $!meths = <foo bar ber>; method !meths { $!meths } }; class Bar { method do ($z) { .say for $z!meths } }; Bar.new.do: Foo.new | |
bisect: my $*TOLERANCE = 0.1; say .9 =~= 1 | |
bisect: my @a = ^4; my @b = ^6; (@a Z @b)».Slip[0].^name eq 'Slip' or die | |
bisect: say “p̷̢̖̤̙̬̞̙͉͕̲̺̮͎͖̆̄͒͛́͊̋ͣ͢ͅe͙͕̖̥̜͚͕̥̮̹͓̥͇̯̫̺̯̹͌͛̐ͨ̍ͬͮ̑̊̕͟r̅ͪ̌̑̾̄ͬ̈҉̨̩̬̤̭̰̮͎̹̦̩̮̞̘̳͈̩̠͉͜͢ḷ̡̦̳̹̻̪͇͈͕̼̙̦̞̝̬͎͚̙̿͌ͨ̽̂́6̊ͣ͌͋ͦͣ҉̛͓͔̤̞̤͇͇̗̣̖͔͓̗̗͓͘”.comb.map(*.NFD[0].chr).join | |
bisect: exit “p̷̢̖̤̙̬̞̙͉͕̲̺̮͎͖̆̄͒͛́͊̋ͣ͢ͅe͙͕̖̥̜͚͕̥̮̹͓̥͇̯̫̺̯̹͌͛̐ͨ̍ͬͮ̑̊̕͟r̅ͪ̌̑̾̄ͬ̈҉̨̩̬̤̭̰̮͎̹̦̩̮̞̘̳͈̩̠͉͜͢ḷ̡̦̳̹̻̪͇͈͕̼̙̦̞̝̬͎͚̙̿͌ͨ̽̂́6̊ͣ͌͋ͦͣ҉̛͓͔̤̞̤͇͇̗̣̖͔͓̗̗͓͘”.comb.map(*.NFD[0].chr).join eq 'perl6' | |
bisect: class Foo { submethod BUILD { fail "noway" } } ; Foo.new ~~ Failure; | |
bisect: my $numFactors = 500;my$sum=0;for (1...*) -> $term {$sum+=$term;my$factors=(1..floor(sqrt($sum))).grep(-> $x { $sum % $x == 0} ).elems * 2;$factors-- if floor(sqrt($sum)) == sqrt($sum);if $factors > $numFactors {say "$sum";last;}} | |
bisect: my $sum = 10082800;for (4601...4900) -> $term { $sum += $term; my $sq = floor(sqrt($sum)); my $factors = (1..$sq).grep(-> $x { $sum % $x == 0} ).elems * 2; } | |
bisect: good=6bb23a my $sum = 10082800;for (4601...4900) -> $term { $sum += $term; my $sq = floor(sqrt($sum)); my $factors = (1..$sq).grep(-> $x { $sum % $x == 0} ).elems * 2; } | |
bisect: good=6bb23a my $sum = 10082800;for (4601...4900) -> $term { $sum += $term; my $sq = floor(sqrt($sum)); my $factors = (1..$sq).grep(-> $x { $sum % $x == 0} ).elems * 2; }; say ‘hi’ | |
bisect: my $sum = 10082800;for (4601...4900) -> $term { $sum += $term; my $sq = floor(sqrt($sum)); my $factors = (1..$sq).grep(-> $x { $sum % $x == 0} ).elems * 2; }; say ‘hi’ | |
bisect: good=HEAD~150 my $sum = 10082800;for (4601...4900) -> $term { $sum += $term; my $sq = floor(sqrt($sum)); my $factors = (1..$sq).grep(-> $x { $sum % $x == 0} ).elems * 2; }; say ‘hi’ | |
bisect: class A { has $.wut = [] }; my $a = A.new; $a.wut = [1,2,3]; $a.wut.say | |
bisect: for ‘q b c d’.words -> $a, $b { } | |
bisect: class A { has $.wut = [] }; my $a = A.new; $a.wut = [1,2,3]; $a.wut.say | |
bisect: good=2016.03 bad 2016.02 say (^∞).grep({ last })[5] | |
bisect: say (^∞).grep({ last })[5] | |
bisect: exit 42 | |
bisect: say $*VM.version | |
bisect: exit 42 | |
bisect: exit 42 | |
bisect: exit 42 | |
bisect: exit 1 if (^∞).grep({ last })[5] // 0 == 4 # RT 128181 | |
bisect: say (^∞).grep({ last })[5] | |
bisect: good=2016.03 bad 2016.02 say (^∞).grep({ last })[5] | |
bisect: for ‘q b c d’.words -> $a, $b { } | |
bisect: class A { has $.wut = [] }; my $a = A.new; $a.wut = [1,2,3]; $a.wut.say | |
bisect: Scalar.new = 5 | |
bisect: m: (^100).pick(*).map: { start { sleep $_; .say } } | |
bisect: use nqp; nqp::const::just_a_test; | |
bisect: m: my $x := (my $y := $x); say $x.WHAT; | |
bisect: my int $x = 0; my $y = ($x - 1) % 8; exit 1 if $y == -1 | |
bisect: my int $x = 0; my $y = ($x - 1) % 8; exit 1 if $y != -1 | |
bisect: exit 1 if (^∞).grep({ last })[5] // 0 == 4 | |
bisect: exit 1 if (^∞).grep({ last })[5] // 0 == 4 | |
bisect: exit 1 if (^∞).grep({ last })[5] // 0 == 4 | |
bisect: exit 1 if (^∞).grep({ last })[5] // 0 == 4 | |
bisect: exit 1 if (^∞).grep({ last })[5] // 0 == 4 | |
bisect: try { NaN.Rat == NaN; exit 0 }; exit 1 | |
bisect: for ‘q b c d’.words -> $a, $b { }; CATCH { exit 0 }; exit 1 | |
bisect: 1/0; exit 0 | |
bisect: try { 1/0 }; exit $! ?? 1 !! 0 | |
bisect: try { 1/0 }; exit $! ?? 0 !! 1 | |
bisect: say 1/0; CATCH { exit 0 }; exit 1 | |
bisect: exit 1 if (^∞).grep({ last })[5] // 0 == 4 # RT 128181 | |
bisect: for ‘q b c d’.words -> $a, $b { }; CATCH { exit 0 }; exit | |
bisect: for ‘q b c d’.words -> $a, $b { }; CATCH { exit 0 }; exit 1 | |
bisect: good=v6.c bad=HEAD exit 1 if (^∞).grep({ last })[5] // 0 == 4 # RT 128181 | |
bisect: exit 1 | |
bisect: exit 0 | |
bisect: try { NaN.Rat == NaN; exit 0 }; exit 1 | |
bisect: try { say NaN.Rat == NaN; exit 0 }; exit 1 | |
bisect: exit 125 | |
bisect: exit 1 if 10.polymod(lazy 2, 2) eqv (0, 1, 2); exit 0 | |
bisect: exit 0 | |
bisect: old=Xͫ⃝ say 42 | |
bisect: (Scalar).unique |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment