FCO’s gists

FCO / gist:bde2567a11fb2c6c3664c3745a0f8410

Created July 27, 2025 03:26

	use Raylib::Bindings;
	use ECS;

	constant $screen-width = 1024;
	constant $screen-height = 450;
	my $white = init-white;
	my $background = init-skyblue;
	init-window($screen-width, $screen-height, "Bouncing Camelias");

	my $string = "./camelia.png";

FCO / scrapper.raku

Created June 3, 2025 14:24

	use Cro::HTTP::Client;
	use Cro::Uri;
	use DOM::Tiny;

	my Cro::HTTP::Client $client .= new;

	sub scrap($url is copy) {
	$url = Cro::Uri.parse: $url if $url ~~ Str;
	return unless $url.defined && $url.scheme.starts-with: "http";
	gather {

FCO / gist:e41f8620aa38a2637606a87143cadd50

Created February 23, 2024 23:04

	raku -MCro::HTTP::Server -MCro::HTTP::Router -MCro::HTTP::Client -e '
	my &where = -> Int $i, Int $actual { say "$actual == $i -> { $actual == $i }"; $actual == $i }
	Cro::HTTP::Server.new(
	host => "127.0.0.1",
	port => 10001,
	application => route {
	post -> {request-body -> $data? { content "test/plain", "ok!" } }
	}
	).start;
	Promise.in(5).then: { Cro::HTTP::Client.post: "http://127.0.0.1:10001", :headers["Content-Type" => "application/x-www-form-urlencoded"] } # breaks the server

FCO / cli

Created February 22, 2024 22:01

	$ raku -MCro::HTTP::Server -MCro::HTTP::Router -e '

	Cro::HTTP::Server.new(
	host => "127.0.0.1",
	port => 10001,
	application => route {my $CRO-ROUTER-RESPONSE = $*CRO-ROUTER-RESPONSE;
	get -> {content "test/plain", "ok!"}
	^3 .map: -> $i {
	post -> Int $a where { say "$_ == $i -> { $_ == $i }"; $_ == $i } {
	CATCH { default { say "ERROR: $_" } }

FCO / gist:455a9aa62d3d6740674d8b5e27c5c442

Created January 27, 2024 22:04

	raku -I. -MRed -MRed::Type -MRed::AST::Value -MJSON::Fast -e '
	red-defaults "SQLite";
	my $*RED-DEBUG = True;
	enum Currency <USD GBP BRL>;

	class Money { has Rat() $.value; has Currency() $.currency }

	class DBMoney does Red::Type {

	method inflator { -> $_ is copy --> Money { given .&from-json { Money.new: :value(.<value>), :currency(Currency::{ .<currency> }) } } }

FCO / "Money" <-> Red integration

Created January 27, 2024 22:02

	$ raku -I. -MRed -MRed::Type -MRed::AST::Value -MJSON::Fast -e '
	red-defaults "SQLite";
	#my $*RED-DEBUG = True;
	enum Currency <USD GBP BRL>;

	class Money { has Rat() $.value; has Currency() $.currency }

	class DBMoney does Red::Type {

	method inflator { -> $_ is copy --> Money { given .&from-json { Money.new: :value(.<value>), :currency(Currency::{ .<currency> }) } } }

FCO / Bla.rakumod

Created November 10, 2023 02:20

FCO / agg.raku

Created August 19, 2023 20:44

	class Agg does Callable {

	has Callable @.subs;
	has Signature $.signature = Signature.new: :params[\|@!subs.map: \|*.signature.params], :returns(Parameter.new(:type(Map())));

	method CALL-ME(\|c) {
	%(
	\|@.subs.map: {
	my @names = .signature.params.grep({ .named }).map(\|*.named_names);
	my %params := (c.hash{@names}:p).Map;

FCO / pomodoro.raku

Last active August 17, 2023 20:33

	my $interval = .run-at: :5mins-running, :off, -> :$rule, :$time {
	$rule.stop;
	say "$time.hh-mm-ss(): interval has finished"
	}

	.run-at: :25mins-running, -> :$rule, :$time {
	$rule.stop; say "$time.hh-mm-ss(): Time to relax";
	$interval.start
	}

FCO / rakucron-example1.raku

Created August 13, 2023 03:32

	use App::RakuCron::Configuration;
	use App::RakuCron::Rule;
	use Lumberjack;

	sub print-example(Str $msg = "Generic message", :$rule, +@params, :$time, :$delta-secs = "None", :$something-else = "") {
	$rule.log-warn: "$msg (@params[]) ({ $something-else }): ", $time.hh-mm-ss, " -> { $delta-secs }"
	}

	Lumberjack.dispatchers = [
	Lumberjack::Dispatcher::Console.new: :colour

Fernando Correa de Oliveira FCO