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.md' ) {
    my $letter = Text::Markdown::Document.new($letter-to-santa.IO.slurp());
    say so $letter.items.grep( { $^þ ~~ Text::Markdown::Heading } );
}

JJ

Here's the list of modules installed in the Ubuntu runner for Github actions. They've been obtained using a script that list all modules installed

Module
AnyDBM_File
App::Cpan
App::Prove::State::Result::Test
App::Prove::State::Result
App::Prove::State
App::Prove

JJ

Mini-HowTo submit RMarkdown articles to ArXiV

ArXiV is a place for publishing scientific technical reports and drafts which is tightly tied to LaTeX. That is why if you generate a PDF from your RMarkdown article it will tell you, hey, this has been generated using LaTeX, I want the LaTeX source. In principle, RStudio does not admit LaTeX as a final format, only .doc, .pdf or HTML. But it is no big deal.

You only need to add this to the metadata in the RMarkdown document

output: 
  pdf_document:
    keep_tex: true

JJ

      - name: Install Text::Chart
        run: zef install Text::Chart
      - name: Chart files changed latest commits
        shell: raku {0}
        run: |
          use Text::Chart;
          my @changed-files = qx<git log --oneline --shortstat -$COMMITS>
                  .lines.grep( /file/ )
                  .map( * ~~ /$<files>=(\d+) \s+ file/ )
                  .map: +*<files>;

JJ

name: "Test in a Raku container"
on: [ push, pull_request ]
jobs:
  test:
    runs-on: ubuntu-latest
    permissions:
      packages: read
    container:
      image: ghcr.io/jj/raku-zef-gha
    steps:

JJ

use Text::Chart;

my @data = < 1 2 3 4 5 6 7 6 5 4 3 2 1 >;
my $midway = (@data.elems/2).truncate;
my $max = max(@data);
my &left-pad =  { " " x $midway ~ $_ ~ "\n"};

say  left-pad("✶") ~ vertical( :$max, @data ) ~ left-pad("█") x 2;

JJ

unit module Text::Chart;

constant $default-char is export = "█";

sub vertical ( Int :$max = 10,
               Str :$chart-chars = $default-char,
               *@data ) is export  {

    my $space = " ";
    my @chars = $chart-chars.comb;

JJ

Desde el punto de vista del estudiante (y también del profesor que viene más tarde) hay un tipo de asignaturas que vamos a denominar AdM (que evidentemente significa Asignaturas diseñadas Malamente) que tienen una serie de carencias, lo que causa una serie de actitudes en el estudiante. Vamos a tratar de caracterizar aquí estas diferencias

AdM	Asignatura no-dM
En muchos casos, el contenido o el propio concepto de la asignatura no tiene nada que ver con la realidad laboral actual	Hay un esfuerzo por estar al día de esa realidad laboral y usar siempre ejemplos y conceptos cercanos a la realidad conceptual y laboral
El que juzga si algo está bien o no es el profesor	Los conceptos y si están bien o mal se pueden mirar en cualquier lado
En algunos casos, "lo que quiere el profe que escriba" está en contra de las buenas prácticas aprendidas en la práctica laboral	Si hay alguna mala práctica o antipatrón, se puede solicitar una corrección y nunca resulta en mala nota