FCO

multi quicksort([]) { Empty }
multi quicksort([$pivot, *@rest]) {
   my (:@Less, :@Same, :@More) := @rest.classify(* cmp $pivot);
   [ |quicksort(@Less), $pivot, |@Same, |quicksort(@More) ]
}

say quicksort [7, 2, 1, 8, 1, 9, 3]

FCO

multi quicksort([]) { Empty }
multi quicksort([$pivot, *@rest]) {
   my %list{Order} is default([]) = @rest.classify: * cmp $pivot;
   [ |quicksort(%list{Less}), $pivot, |%list{Same}, |quicksort(%list{More}) ]
}

say quicksort [7, 2, 1, 8, 1, 9, 3]

FCO

enum Area <kanto johto hoenn sinnoh unova kalos alola>;

event Hot {
    has Str  $.type where * eq "temperature";
    has Area $.area;
    has Int  $.value where * > 40;
}

event Dry {
    has Str  $.type where * eq "humidity";

FCO

#!/usr/bin/env raku

use v6.e.PREVIEW;

# Bla.^all.map: { $_ + 1 };
say [1,2,3].map: { $_ + 1 };

CHECK {
    sub translate-rakuast-to-redast($raku) {
        return RakuAST::IntLiteral.new: 42

FCO

➜  Nats git:(main) nats pub --count=10 bla.ble.bli "test pub {{ Count }}"
19:58:50 Published 10 bytes to "bla.ble.bli"
19:58:50 Published 10 bytes to "bla.ble.bli"
19:58:50 Published 10 bytes to "bla.ble.bli"
19:58:50 Published 10 bytes to "bla.ble.bli"
19:58:50 Published 10 bytes to "bla.ble.bli"
19:58:50 Published 10 bytes to "bla.ble.bli"
19:58:50 Published 10 bytes to "bla.ble.bli"
19:58:50 Published 10 bytes to "bla.ble.bli"
19:58:50 Published 10 bytes to "bla.ble.bli"

FCO

use Cro::HTTP::Client;
use Red;

model ChatGPTConversation {
    has Int $.id is serial;
    has Str $.question is column;
    has Str $.answer is column;
}

sub chat_with_gpt($prompt) {

FCO

my @children-names = <Fernanda Sophia Eduardo Rafael Maria Lulu>;
my @countries      = <Brazil England Scotland>;

factory "child", :model(Child), {
    .name    = { "{ @children-names.pick } { .counter-by-model }" };
    .country = { @countries.pick };
}

FCO

use Test;
use Factories;      # your factories module
use Child::Helper;  # imports &children-on-country

factory-run {
    is children-on-country("UK"), 0;
  
    .create: "child", :country<UK>;
    is children-on-country("UK"), 1;
    

FCO

use Factories; # your factories module

factory-run {
    my $child = .create: "child";
}

FCO

use Factories; # your factories module

my $*RED-DB = factory-db;

my $child = factory-create "child";