JJ

# git clone perl6/doc, cd doc
git grep "=begin pod" | perl6 -e 'say slurp().split("\n").grep( /tag/ ).map( * ~~ / \<(.+)\> / ).map( *.values.[0] ).join("\n")'
# (｢convert｣ ｢convert｣ ｢convert｣ ｢convert｣ ｢convert｣ ｢self｣ ｢tutorial｣ ｢self｣ ｢tutorial｣ ｢perl6｣ ｢self｣ ｢perl6｣ ｢perl6｣ ｢perl6｣ ｢perl6｣ ｢index｣ ｢perl6｣ ｢list｣ ｢tutorial｣ ｢perl6｣ ｢convert｣ ｢perl6｣ ｢perl6｣ ｢perl6｣ ｢perl6｣ ｢perl6｣ ｢tutorial｣ ｢perl6｣ ｢perl6｣ ｢perl6｣ ｢perl6｣ ｢perl6｣ ｢perl6｣ ｢tutorial｣ ｢perl6｣ ｢perl6｣ ｢index｣ ｢perl6｣ ｢convert｣ ｢perl6｣ ｢perl6｣ ｢perl6｣ ｢perl6｣ ｢pod6｣ ｢perl6｣ ｢tutorial｣ ｢index｣ ｢perl6｣ ｢perl6｣ ｢index｣ ｢tutorial｣ ｢perl6｣)

JJ

my Channel $c .= new;
my Channel $c2 = $c.Supply.batch( elems => 2).Channel;
my $count = 0;
$c.send($_) for ^40;

my $work = start react whenever $c -> $item {
    $c.send( $item );
    say "This is $item";
}

JJ

use JSON::Tiny;
use Wikidata::API;

sub MAIN( Str $toy-list = 'list.json' ) {
    my $toys = from-json $toy-list.IO.slurp();
    
    say $toys.grep( { is-product( $^þ) } );
}

sub is-product( Str $item ) {

JJ

use Text::Markdown;
use JSON::Tiny;

sub MAIN( Str $letter-to-santa = 'letters/dear-santa-list.md' ) {
    my $letter = Text::Markdown::Document.new($letter-to-santa.IO.slurp());
    my $flip = False;
    my $list =  $letter.items
    .grep( { $flip = ( $flip
		      or so ($^þ ~~  Text::Markdown::Heading
			     and $^þ.level == 2

JJ

use Text::Markdown;

sub MAIN( Str $letter-to-santa = 'letters/dear-santa-sections.md' ) {
    my $letter = Text::Markdown::Document.new($letter-to-santa.IO.slurp());
    my $flip = False;
    my @paragraphs =  $letter.items.grep( { $flip = ($^þ ~~  Text::Markdown::Heading and $^þ.level == 2)?? !$flip !! $flip } );
    say so any @paragraphs.map( {$^þ.Str ~~ /good/ } );
}

JJ

use Text::Markdown;

sub MAIN( Str $letter-to-santa = 'letters/dear-santa.md' ) {
    my $letter = Text::Markdown::Document.new($letter-to-santa.IO.slurp());
    say so $letter.items.grep( { $^þ ~~ Text::Markdown::Heading } );
}

JJ

import Html
import Markdown

letter : Html msg
letter =
   Markdown.toHtml [class "content"] """
# Letter to Santa
I've been *real* **good** so I want this for Christmas
  1. A Death Star.
  2. A green unicorn.

JJ

use JSON::Tiny;

sub MAIN( Str $letter-to-santa = 'letters/dear-santa.txt' ) {
    say to-json $letter-to-santa.IO.slurp().split(/\s* «and» \s*/);
}

JJ

# Tip de https://t.co/tQKo7Err73 para "aplanar" una lista de listas
sum(list(map( lambda n: [str(n)+'♠',str(n)+'♣',str(n)+'♥',str(n)+'♦'], ['A','J','Q','K',2,3,4,5,6,7,8,9,10])),[])
# El map genera una lista de listas, y sum agrega las listas del segundo nivel en una sola, usando la sobrecarga de + para listas

JJ

# get the list of PIDs and cpu usage via the batch version of top if ps is not fully functional, take out the headers, sort numerically using the 9th column, which is the CPU usage as key, take the last one, and extract the second column
top -n 1 -b | tail -n +8 | sort -k9 -n | tail -1 | cut -d ' ' -f 2