cognominal

=begin pod

Capturing stuff with arbitrary complex delimiters
without real parsinhg... but with Perl parser.

Except the end delimiter is brokem

Cannot resolve caller end(Any:U: H:D); none of these signatures matches:
    (Any:U: *%_ --> 0)
    (Any:D: *%_)

cognominal

#! /usr/bin/env raku

use Grammar::Tracer;

my $s = q:to<END>;
    fun a {
    }
    # 
    fun b {
        whatever

cognominal

interface: punching card --> terminal: (teletype --> video terminal :vt100:1978 ) -> GUI containers: process
sed --> awk --> perl --> raku --> shaku

chunkingr

punched card :inventor:1725 but< a tape>

cognominal

sub trim($s) {
    $_ = $s;
    s/ ^ \s+//;
    s/ \s+ $//;
    $_
 }

 say "'" ~ trim("  toto ") ~ "'"

cognominal

# the goal of this experiment is to access the long name of a method 
# that result in the current match.
# A match being derived from cursor, maybe its $!name is what I want.
# I try to add a &name method in Cursor.nqp but it does not it.
# I list the method name to check.
# that was obvious. I tested using nqp instead of ./nqp

sub  quicksort(@list, $low, $high, &compare) {
    if $low < $high {
        my $q := partition(@list, $low, $high, &compare);

cognominal

We couldn’t find that file to show.

cognominal

#! /usr/bin/env raku

my @files = dir;

for @files {
    rename $_, sprintf("%03s", $0 ) ~ $1  if  /(\d+)(.*)/;
}

cognominal

just trying

cognominal

#! /usr/bin/env raku
=begin pod

rk-bisect is given three arguments.
A file path, a raku one liner, and a sha1 (5 chars min).
A each stage of the bisection, $_ is set to 
the string content of the file. The one liner
is executed and the commit is considered good if
the oneliner value is truthy.
Eventually rk-bisect print the sha1 of the first bad commit.

cognominal

# unit class Sexpr;
# use Grammar::Tracer;

grammar Sexpr-Grammar is export {
    token ws       {  [ <comment> | \s ]* } #| <wb>                           }
    rule TOP       {   <.ws>? <TOP-sexpr>+                                    }
    rule TOP-sexpr {  <sexpr>                                                 }
    rule sexpr     {  '(' <declare>? <itemy> * ')'  } # { say $/.Str }        }
    token itemy    { <sexpr> | <wordy>                                        }
    token comment   { \h* '#' \V* \v                                          }