Skip to content

Instantly share code, notes, and snippets.

View gfldex's full-sized avatar

Wenzel P. P. Peppmeyer gfldex

9 followers · 0 following
View GitHub Profile
@gfldex
gfldex / gist:1a292b3d6b7fca0d667394f80c81692c
Created April 17, 2024 07:34
my \l = ("Hello", "bye", ("something", ("list", "foo", "boo"), ("mars", "bar")));
sub tree-it($item) {
my %h is default(IterationEnd) = $item.pairs;
do for 0..* -> $idx {
last if %h{$idx}:!exists;
my $left = %h{$idx};
my $right = %h{$idx + 1};
dd $right;
@gfldex
gfldex / gist:9874a7deddfd5fa2ceae1212664650fb
Created March 27, 2024 11:24
role LoL {
method AT-POS() {...}
method head() {...}
method tail() {...}
}
role HoH {
method AT-KEY() {...}
}
@gfldex
gfldex / raku.html
Created March 19, 2024 19:05
This file has been truncated, but you can view the full file.
<!DOCTYPE html>
<html>
<head>
<title>Converted POD6 documentation</title>
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
<style type="text/css">
body { margin-left: 4em; margin-right: 4em; }
p {
text-rendering: optimizeLegibility;
font-feature-settings: "kern" 1;
@gfldex
gfldex / gist:542136fd7f1723cb75c7afaa90084efe
Created February 24, 2024 21:54
===> Searching for: hide-methods, InterceptAllMethods, Method::Also, Object::Delayed, Object::Trampoline
===> Staging Method::Also:ver<0.0.8>:auth<zef:lizmat>
===> Staging [OK] for Method::Also:ver<0.0.8>:auth<zef:lizmat>
===> Staging InterceptAllMethods:ver<0.0.3>:auth<zef:lizmat>
===> Staging [OK] for InterceptAllMethods:ver<0.0.3>:auth<zef:lizmat>
===> Staging Object::Trampoline:ver<0.0.12>:auth<zef:lizmat>
===> Staging [OK] for Object::Trampoline:ver<0.0.12>:auth<zef:lizmat>
===> Staging hide-methods:ver<0.0.6>:auth<zef:lizmat>
===> Staging [OK] for hide-methods:ver<0.0.6>:auth<zef:lizmat>
===> Staging Object::Delayed:ver<0.0.13>:auth<zef:lizmat>
@gfldex
gfldex / gist:57f83bae44e995760801900c971d7eed
Created February 4, 2024 21:29
my \a = (42 & 42).defined;
dd a;
my \b = (42 & 42).Str;
dd b;
@gfldex
gfldex / main.raku
Created January 20, 2024 13:18
#! /usr/bin/env raku
use v6.d;
use lib $*PROGRAM.resolve.dirname;
use util;
sub MAIN() {
put ‘I'm doing a thing.’;
put i-am-helpful;
@gfldex
gfldex / gist:852e5c129e43b07b5c6b750b241f2a7a
Created October 10, 2023 18:15
my atomicint $spawn-limit = 8;
multi sub spawn(&c, |args) {
# dd ⚛$spawn-limit;
⚛$spawn-limit > 0
?? ($spawn-limit⚛-- ;start { LEAVE $spawn-limit⚛++; c(|args) })
!! c(|args)
}
sub collect(*@things) {
slip @things.map: -> $thing { $thing ~~ Promise ?? await $thing !! $thing }
@gfldex
gfldex / gist:7c6fcc45008c7e6e8eae9905466ea715
Created October 10, 2023 18:13
my @a = 'Raku' xx 2**16;
sub foo([]) { }
foo(@a);
@gfldex
gfldex / gist:eab45100fdf215954f275028a92c1c25
Created October 6, 2023 22:15
sub a() { say $*foo; b() }
sub b() { return if $++ ≥ 3; a(); my Any:D $*foo = 42; }
my $*foo = 10;
a();
say $*foo;
# OUTPUT:
# 10
# (Any)
@gfldex
gfldex / gist:7d76fa95f620b9352e0687140da65699
Created September 30, 2023 08:52
my atomicint $spawn-limit = 8;
sub spawn(&c, |args) {
# dd ⚛$spawn-limit;
⚛$spawn-limit > 0
?? ($spawn-limit⚛-- ;start { LEAVE $spawn-limit⚛++; c(|args) })
!! c(|args)
}
sub collect(*@things) {
slip @things.map: -> $thing { $thing ~~ Promise ?? await $thing !! $thing }