Skip to content

Instantly share code, notes, and snippets.

@Whateverable
Created July 29, 2017 17:35
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/aa5bae6dfcf4096b9e57fc37b52f4696 to your computer and use it in GitHub Desktop.
Save Whateverable/aa5bae6dfcf4096b9e57fc37b52f4696 to your computer and use it in GitHub Desktop.
greppable6

0racle/p6-Net-Netmask:373: #my ($addr, $mask) = @args.flatmap( *.split(/ \s+ | '/' /) );
0racle/p6-Net-Netmask:394: i.split('.').flatmap({
0racle/p6-Net-Netmask:455: my @n = $n.flatmap(* × $inc);
Mouq/toml-pm6:34: %top{.key} := $%(%top{.key}.flatmap({.pairs}), .value.pairs);
atweiden/mktxn:236: my VarName:D @entities-seen = @entry.flatmap({
atweiden/txn-parser:897: @<segment>».made.flatmap(*.grep(TXN::Parser::AST::Entry:D));
colomon/ABC:101: my $sf = $.context.key-info.key.flatmap({ "{.key}{.value}" }).sort.Str.lc;
colomon/ABC:145: my @chords = $/<chord>.flatmap({ $_.ast });
colomon/ABC:146: my @texts = $/<text_expression>.flatmap({ ~$_ });
colomon/ABC:22: $element-pair.value.flatmap({
colomon/ABC:285: is $match<element>.flatmap(~*), "g>e c g e c e/ f/ g/ e/", "Each element was matched";
colomon/ABC:294: is $match<element>.flatmap(~*), "g>e c g e c e/ f/ g/ e/ ", "Each element was matched";
colomon/ABC:442: is $match<header_field>.flatmap({ .<header_field_name> }), "X T S M L K", "Got the right field names";
colomon/ABC:463: is .<header_field>.flatmap({ .<header_field_name> }), "X T S M L K", "Got the right field names";
colomon/ABC:10: my @titles = @( $match<tune> ).flatmap({ @( .<header><header_field> ).grep({ .<header_field_name> eq "T" })[0] }).flatmap({ .<header_field_data> });
cygx/p6-image-png-inflated:12: my $row = blob8.new(^256 .flatmap: { $_ xx 3, 255 });
dginev/perl6-Lingua-EN-Sentence:25: my Str @ABBREVIATIONS = (@PEOPLE, @ARMY, @INSTITUTES, @COMPANIES, @PLACES, @MONTHS, @MATH, @MISC).flat.flatmap(&lc).sort;
gfldex/perl6-pod-to-bigpage:17810: <p>passes <span class="code">(1, 2)</span> and <span class="code">&lt;a b> </span> in turn to the block, leading to a total of two iterations and th…
gfldex/perl6-pod-to-bigpage:17816: <a name="t99.2.10"></a><h2 id="_type_List.pod6-method_flatmap">99.2.10 method flatmap</h2>
gfldex/perl6-pod-to-bigpage:17818: <pre class="code">method flatmap(List:D: &amp;amp;code) returns Seq:D</pre>
gfldex/perl6-pod-to-bigpage:17820: <pre class="code">LIST.flatmap(CODE)</pre>
gfldex/perl6-pod-to-bigpage:17823: <pre class="code">say ((1, 2), &amp;lt;a b&gt;).flatmap(&amp;amp;uc).join('|'); # 1|2|A|B</pre>
gfldex/perl6-pod-to-bigpage:24980: <a href="#t99.2.10"><li class="toc-level toc-level-2"><span class="toc-number">99.2.10</span> method flatmap</li></a>
grondilu/openssl:31: Buf.new: $A[^$length].flatmap({ splitint(my int $ = $_) });
jonathanstowe/Chronic:215: @values = $top.split(',').flatmap(&explode-item).map(*.Int);
leont/path-iterator:306: ).flatmap: { ($_ => $^pair.key for @($^pair.value)) };
masak/xml-writer:46: [~] @attrs.flatmap({ sprintf ' %s="%s"', .key, $.escape(.value) });
masak/xml-writer:23: (1..20).flatmap: { ; "foobarbaz$_" => [ 'abc' x 5 ] }
moritz/json:41: ~ $d.flatmap(&to-json).join(', ')
moritz/json:46: ~ $d.flatmap({ to-json(.key) ~ ' : ' ~ to-json(.value) }).join(', ')
nkh/P6-Data-Dump-Tree:512: $text.lines.flatmap: { .comb($width) }
perl6-community-modules/uri:7: my %escapes = (^256).flatmap: {
perl6-community-modules/uri:31: @rc = @to_unesc.flatmap: {
perl6-community-modules/uri:35: ?? $0.flatmap({ :16(~$_).chr }).join
perl6-community-modules/uri:36: !! Buf.new($0.flatmap({ :16(~$_) })).decode('UTF-8')
perl6/DBIish:51: make $0.flatmap({.values[0].ast}).join;
perl6/DBIish:150: (0 xx *).flatmap({
perl6/DBIish:158: (0 xx *).flatmap({
perl6/DBIish:25: %h.sort.flatmap({ join '', .key, '=«', .value, '»' }).join('; ');
perl6/doc:508: =head2 method flatmap
perl6/doc:513: method flatmap(--> TODO)
perl6/doc:212: See L<method flatmap|/type/List#method_flatmap> for an alternative that flattens.
perl6/doc:245: =head2 method flatmap
perl6/doc:249: method flatmap(List:D: &code --> Seq:D)
perl6/doc:255: It is considered B<bad practice> to use flatmap. Instead of C<.flatmap( )>,
perl6/doc:257: not confusing like C<.flatmap>.
perl6/doc:261: ## flatmap
perl6/doc:263: say @list.flatmap({.reverse}).perl;
perl6/doc:268: ## .map .flat has the same output as .flatmap
perl6/doc:36: $s.subst(:g, / [ '%' (<.xdigit> ** 2 ) ]+ /, -> $/ { Buf.new($0.flatmap({ :16(~$_) })).decode('UTF-8') })
perl6/doc:342: flatmap
perl6/tap-harness6:8: return $path.dir(:test(rx/\.t$/)).flatmap(&listall);
perl6/tap-harness6:45: my @sources = @files.map(*.IO).flatmap(&listall);
ppentchev/perl6-Getopt-Std:50: $t.optstring.comb(/ . ':'? /).flatmap(-> $opt {
raydiak/pray:34: my @filters = @obstructions.flatmap: {
sergot/http-useragent:20: $s ~= ';' ~ (%.fields.flatmap( *.fmt("%s=%s") )).join('; ') if %.fields.elems > 1;
sergot/http-useragent:48: self.set-cookie($_) for $response.field('Set-Cookie').grep({ $_.defined }).flatmap({ "Set-Cookie: $_" });
sergot/http-useragent:58: my $cookiestr = "{$cookie.name}={$cookie.value}; {($cookie.fields.flatmap( *.fmt("%s=%s") )).join('; ')}";
sergot/http-useragent:119: @.cookies.flatmap({ "Set-Cookie: {$_.Str}" }).join("\n");
sergot/http-useragent:113: @.fields.flatmap({ "{$_.name}: {self.field($_.name)}$eol" }).join;
spitsh/spitsh:740: @!os-candidates .= flatmap: -> $os,$block { cont-pair $os,$block };
stmuk/tap-harness6-prove6:8: return $path.dir(:test(rx/\.t$/)).flatmap(&listall);
stmuk/tap-harness6-prove6:44: my @sources = @files.map(*.IO).flatmap(&listall);
tadzik/panda:49: my @saved = @projects.flatmap({ $es.project-get-saved-meta($_) || {} });
tadzik/panda:52: my $max-rev = @saved.flatmap({ $_<source-revision> // '?'})».chars.max;
ugexe/zef:330: my @source_files = $meta<provides>.values.flatmap(*.values.map(*.<file>));
ugexe/zef:341: $identity ~~ any($candi.dist.compat.meta<provides>.values.flatmap(*.values.map(*.<file>)))
ugexe/zef:656: for |@args.flatmap(*.split(/\=/, 2)).rotor(2 => -1, :partial) {
ugexe/zef:616: if @installed-candidates.map(*.dist).flatmap(*.scripts.keys).unique -> @bins {
ugexe/zef:752: .map(*.dist.metainfo<includes>).flatmap(*.flat);
ugexe/zef:765: @ = @linked.map(*.dist.metainfo<includes>).flatmap(*.flat).unique;
ugexe/zef:65: @.depends = @.depends.flatmap(*.flat);
ugexe/zef:66: @!test-depends = @!test-depends.flatmap(*.flat);
ugexe/zef:67: @!build-depends = @!build-depends.flatmap(*.flat);
ugexe/zef:68: @!resources = @!resources.flatmap(*.flat);
zostay/Template-Anti:258: %attribs.sort».kv.flatmap: -> ($k, $v) {
zostay/p6-Getopt-ForClass:7: my %named-params = $sig.params.grep(*.named).flatmap(-> $p {
zostay/p6-HTTP-Headers:410: method flatmap(&code) {
zostay/p6-HTTP-Headers:411: self.sorted-headers.flatmap: &code;
zostay/p6-HTTP-Headers:418: my $string = join $eol, self.flatmap: -> $header {
zostay/p6-HTTP-Headers:436: self.flatmap: -> $h {
zostay/perl6-ArrayHash:664: @!array.kv.flatmap({ .defined && Pair ?? .kv !! $_ })
zostay/perl6-IO-Glob:406: [&&] (@parts Z @!globbers).flatmap: -> ($p, $g) { $p ~~ $g };

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment