Skip to content

Instantly share code, notes, and snippets.

@Whateverable
Created June 6, 2024 14:10
Show Gist options
  • Save Whateverable/cc98ccb28c09c744d74cd817442f4450 to your computer and use it in GitHub Desktop.
Save Whateverable/cc98ccb28c09c744d74cd817442f4450 to your computer and use it in GitHub Desktop.
greppable6
File Code
FCO/Red
…/Model.pm6 :133:
my @roles-cols = self.roles_to_compose(type).flatmap(*.^attributes).grep: Red::Attr::Column;
FCO/Red
…/ResultSeq.pm6 :254:
#method flatmap(&filter) {
HANENKAMP/ArrayHash
…/ArrayHash.pm6 :664:
@!array.kv.flatmap({ .defined && Pair ?? .kv !! $_ })
HANENKAMP/Getopt-ForClass
…/ForClass.pm6 :7:
my %named-params = $sig.params.grep(*.named).flatmap(-> $p {
HANENKAMP/HTTP-Headers
…/Headers.pm6 :414:
method flatmap(&code) {
HANENKAMP/HTTP-Headers
…/Headers.pm6 :415:
self.sorted-headers.flatmap: &code;
HANENKAMP/HTTP-Headers
…/Headers.pm6 :422:
my $string = join $eol, self.flatmap: -> $header {
HANENKAMP/HTTP-Headers
…/Headers.pm6 :440:
self.flatmap: -> $h {
HANENKAMP/IO-Glob
…/Glob.pm6 :442:
[&&] (@parts Z @!globbers).flatmap: -> ($p, $g) { $p ~~ $g };
HANENKAMP/Template-Anti
…/Template.pm6 :258:
%attribs.sort».kv.flatmap: -> ($k, $v) {
MORITZ/JSON-Tiny
…/Tiny.pm :41:
~ $d.flatmap(&to-json).join(', ')
MORITZ/JSON-Tiny
…/Tiny.pm :46:
~ $d.flatmap({ to-json(.key) ~ ' : ' ~ to-json(.value) }).join(', ')
TITSUKI/Algorithm-HierarchicalPAM
…/Formatter.pm6 :12:
my Str @tokenized = @documents[$doc-index].flatmap(&tokenizer);
TITSUKI/Algorithm-LDA
…/Formatter.pm6 :12:
my Str @tokenized = @documents[$doc-index].flatmap(&tokenizer);
UGEXE/zef
…/CLI.pm6 :307:
my @source_files = $meta<provides>.values.flatmap(*.values.map(*.<file>));
UGEXE/zef
…/CLI.pm6 :314:
$identity ~~ any($candi.dist.compat.meta<provides>.values.flatmap(*.values.map(*.<file>)))
UGEXE/zef
…/CLI.pm6 :590:
for |@args.flatmap(*.split(/\=/, 2)).rotor(2 => -1, :partial) {
UGEXE/zef
…/Client.pm6 :599:
if @installed-candidates.map(*.dist).flatmap(*.scripts.keys).unique -> @bins {
UGEXE/zef
…/Client.pm6 :734:
.map(*.dist.metainfo<includes>).flatmap(*.flat);
UGEXE/zef
…/Client.pm6 :747:
@ = @linked.map(*.dist.metainfo<includes>).flatmap(*.flat).unique;
UGEXE/zef
…/Distribution.pm6 :65:
@.depends = @.depends.flatmap(*.flat);
UGEXE/zef
…/Distribution.pm6 :66:
@!test-depends = @!test-depends.flatmap(*.flat);
UGEXE/zef
…/Distribution.pm6 :67:
@!build-depends = @!build-depends.flatmap(*.flat);
UGEXE/zef
…/Distribution.pm6 :68:
@!resources = @!resources.flatmap(*.flat);
UGEXE/zef
…/Build.pm6 :58:
my $reqs-panda = ?%meta-hash<depends build-depends test-depends>.grep(*.so).flatmap(*.grep(/^[:i 'panda']/));
0racle/p6-Net-Netmask
…/Netmask.pm6 :464:
i.split('.').flatmap({
0racle/p6-Net-Netmask
…/Netmask.pm6 :526:
my @n = $n.flatmap(* × $inc);
FCO/Injector
…/Injector.pm6 :13:
.flatmap(*.loaded)
Mouq/toml-pm6
…/Grammar.pm6 :34:
%top{.key} := $%(%top{.key}.flatmap({.pairs}), .value.pairs);
colomon/ABC
…/abc2ly :101:
my $sf = $.context.key-info.key.flatmap({ "{.key}{.value}" }).sort.Str.lc;
colomon/ABC
…/Actions.pm :145:
my @chords = $/<chord>.flatmap({ $_.ast });
colomon/ABC
…/Actions.pm :146:
my @texts = $/<text_expression>.flatmap({ ~$_ });
colomon/ABC
…/Utils.pm :22:
$element-pair.value.flatmap({
colomon/ABC
…/01-regexes.t :292:
is $match<element>.flatmap(~*), "g>e c g e c e/ f/ g/ e/", "Each element was matched";
colomon/ABC
…/01-regexes.t :301:
is $match<element>.flatmap(~*), "g>e c g e c e/ f/ g/ e/ ", "Each element was matched";
colomon/ABC
…/01-regexes.t :449:
is $match<header_field>.flatmap({ .<header_field_name> }), "X T S M L K", "Got the right field names";
colomon/ABC
…/01-regexes.t :470:
is .<header_field>.flatmap({ .<header_field_name> }), "X T S M L K", "Got the right field names";
colomon/ABC
…/03-file.t :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
…/README.md :12:
my $row = blob8.new(^256 .flatmap: { $_ xx 3, 255 });
dginev/perl6-Lingua-EN-Sentence
…/Sentence.pm6 :25:
my Str @ABBREVIATIONS = (@PEOPLE, @ARMY, @INSTITUTES, @COMPANIES, @PLACES, @MONTHS, @MATH, @MISC).flat.flatmap(&lc).sort;
grondilu/openssl
…/Digest.pm :31:
Buf.new: $A[^$length].flatmap({ splitint(my int $ = $_) });
japhb/Text-MiscUtils
…/Layout.pm6 :57:
@fitted.push: $block.split(/\n/).flatmap({
masak/xml-writer
…/Writer.pm :46:
[~] @attrs.flatmap({ sprintf ' %s="%s"', .key, $.escape(.value) });
masak/xml-writer
…/structure.t :23:
(1..20).flatmap: { ; "foobarbaz$_" => [ 'abc' x 5 ] }
perl6-community-modules/uri
…/Escape.pm :7:
my %escapes = (^256).flatmap: {
perl6-community-modules/uri
…/Escape.pm :31:
@rc = @to_unesc.flatmap: {
perl6-community-modules/uri
…/Escape.pm :35:
?? $0.flatmap({ :16(~$_).chr }).join
perl6-community-modules/uri
…/Escape.pm :36:
!! Buf.new($0.flatmap({ :16(~$_) })).decode('UTF-8')
perl6/DBIish
…/Pg.pm6 :51:
make $0.flatmap({.values[0].ast}).join;
perl6/DBIish
…/StatementHandle.pm6 :154:
(0 xx *).flatmap({
perl6/DBIish
…/StatementHandle.pm6 :162:
(0 xx *).flatmap({
perl6/DBIish
…/CommonTesting.pm6 :25:
%h.sort.flatmap({ join '', .key, '=«', .value, '»' }).join('; ');
perl6/doc
…/Any.pod6 :585:
=head2 method flatmap
perl6/doc
…/Any.pod6 :589:
method flatmap(Any:U: &code --> Seq)
perl6/doc
…/Any.pod6 :593:
L«C<List.flatmap>|/type/List#method_flatmap» on it.
perl6/doc
…/Any.pod6 :595:
say Any.flatmap({.reverse}); # OUTPUT: «((Any))␤»
perl6/doc
…/List.pod6 :262:
See L<method flatmap|/type/List#method_flatmap> for an alternative that flattens.
perl6/doc
…/List.pod6 :295:
=head2 method flatmap
perl6/doc
…/List.pod6 :299:
method flatmap(List:D: &code --> Seq:D)
perl6/doc
…/List.pod6 :305:
The use of C<flatmap> B<is strongly discouraged>. Instead of C<.flatmap( )>,
perl6/doc
…/List.pod6 :307:
and is not confusing like C<.flatmap>.
perl6/doc
…/List.pod6 :311:
## flatmap
perl6/doc
…/List.pod6 :313:
say @list.flatmap({.reverse}).perl;
perl6/doc
…/List.pod6 :318:
## .map .flat has the same output as .flatmap
perl6/doc
…/Htmlify.pm6 :36:
$s.subst(:g, / [ '%' (<.xdigit> ** 2 ) ]+ /, -> $/ { Buf.new($0.flatmap({ :16(~$_) })).decode('UTF-8') })
perl6/doc
…/words.pws :387:
flatmap
ppentchev/perl6-Getopt-Std
…/01-getopts.t :56:
my %exp-opts = $t.optstring.comb(/ . ':'? /).flatmap(-> $opt {
raydiak/pray
…/Light.pm6 :34:
my @filters = @obstructions.flatmap: {
spitsh/spitsh
…/SAST.pm6 :753:
@!os-candidates .= flatmap: -> $os,$block { cont-pair $os,$block };
tadzik/panda
…/App.pm :49:
my @saved = @projects.flatmap({ $es.project-get-saved-meta($_) || {} });
tadzik/panda
…/App.pm :52:
my $max-rev = @saved.flatmap({ $_<source-revision> // '?'})».chars.max;
ugexe/zef
…/CLI.pm6 :807:
for |@args.flatmap(*.split(/\=/, 2)).rotor(2 => -1, :partial) {
ugexe/zef
…/Client.pm6 :576:
if @installed-candidates.map(*.dist).flatmap(*.scripts.keys).unique -> @bins {
ugexe/zef
…/Client.pm6 :718:
.map(*.dist.metainfo<includes>).flatmap(*.flat);
ugexe/zef
…/Client.pm6 :731:
@ = @linked.map(*.dist.metainfo<includes>).flatmap(*.flat).unique;
ugexe/zef
…/Distribution.pm6 :34:
@!resources = @!resources.flatmap(*.flat);
zostay/p6-Getopt-ForClass
…/ForClass.pm6 :7:
my %named-params = $sig.params.grep(*.named).flatmap(-> $p {
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment