rcmlz

use Test;

my @input = <a ä b c A Ä Ö S T>;
my @expected = <A Ä Ö S T a ä b c>;

is-deeply @input.sort(*.NFKD), @expected.List

#use String::Utils <nomark>;
#is-deeply @input.sort.sort(&nomark), @expected.List

rcmlz

use Test;

#| reverse the zip operation
sub reverse-zip(@list-of-tuples) {
     [Z] @list-of-tuples
}

my @l1 = 1, 2, 3;
my @l2 = <a b c>;
my @input = zip @l1, @l2;

rcmlz

#!/usr/bin/env raku
# Find out for what problems Hyper and Race performs fast compared to single thread execution

# Note: for real world benchmarking you might want to use some library from
# https://raku.land/?q=Benchmark

my @problems = 2**8, 2**16;
my @batch-sizes = 2**8, 2**16;
my @degrees = 2, 4;

rcmlz

#!/usr/bin/env raku
use v6.d;
use Grammar::Debugger;

grammar G_24_02_a {
    token TOP    { <report>+ }
    token report { ^^ <level>+ $$ }
    token level  { <value> <.ws> ** 0..1 }
    token value  { <digit> ** 1..2 }
}

rcmlz

#!/usr/bin/env raku
use v6.d;
use variables :D;

# call 1 ok    : raku param-check.raku --folder=/tmp --number=10
# call 2 not ok: raku param-check.raku --folder=/tmp1 --number=10
# call 3 not ok: raku param-check.raku --folder=/tmp --number=1
# Problem: Usage message for call 2 and call 3 look identical
sub MAIN(Str :$folder where *.IO.d = $*PROGRAM.parent(1),
         UInt :$number where * > 1 = 100) {

rcmlz

grammar Splitter {
    # as many times as possible size $m, then sizes $n, until entire string is consumed
    token TOP ( $*m, $*n ) { [:!r <long>+] <short>+ } # no ratchet for <long>, needs to look backwards to make <short> match
    token long             { \w ** {$*m}            }
    token short            { \w ** {$*n}            }
}

my @tests = [
    ['thisisfun', 3, 3, <thi sis fun>, 'three times len 3'],
    ['thisisfunxx', 3, 2, <thi sis fun xx>, 'three times len 3, one time len 2'],

rcmlz

A sensible NixOS Xfce Configuration

NixOS provides good support for the Xfce desktop environment out-of-the-box, but the defaults are minimal. The files in this Gist provide a more complete experience, including a suite of basic software and plugins as well as an optional home-manager configuration for theming.

The key additions to the default Xfce provided by NixOS are:

• Complete bluetooth / audio support with panel indicators and apps
• LightDM with theme
• Extra Xfce apps for calendaring, disk partitioning, etc.
• Various quality-of-life improving non-essentials

rcmlz

unit module ZebraPuzzle;

enum Brand       is export <Chesterfield Kools LuckyStrike OldGold Parliament>;
enum Color       is export <Blue Green Ivory Red Yellow>;
enum Drink       is export <Coffee Milk OrangeJuice Tea Water>;
enum Nationality is export <Englishman Japanese Norwegian Spaniard Ukrainian>;
enum Pet         is export <Dog Fox Horse Snails Zebra>;

sub get-nationality ($subject) is export {
    #There are five houses.

rcmlz

#!/usr/bin/env raku

use WWW::OpenAI;
use WWW::MistralAI;

my $prompt = 'Tell a Computer Science joke suitable for high school students!';
#my $prompt = 'Create an Icebreaker tasks for high school students!';

if not (%*ENV<MISTRAL_API_KEY>:exists or %*ENV<OPENAI_API_KEY>:exists) {
	note "loading API keys to ENV";

rcmlz

#!/usr/bin/env raku

# https://codeforces.com/gym/104921/problem/A
constant @nums = 1..8;
constant @chars = 'a'..'h';

sub MAIN {
	for lines.skip -> $task {                  # lines() without an invocant object defaults to $*IN.lines(), skip first line (number of testcases)
		algo1($task).keys.join("\n").put
	}