timo

"foobarbaz".comb.Array.splice(3,1,"X").join.say;
# Output: b

# Issue: splice returns what was cut out, not the result.

# Solution: Keep the array of characters around for later.
my @a = "foobarbaz".comb; @a.splice(3,1,"X"); @a.join.say;
# Output: fooXarbaz

# Don't want to introduce a local variable for this?

timo

diff --git a/src/core/IO/Socket/Async.pm6 b/src/core/IO/Socket/Async.pm6
index 87dcf39a5..a86a9f08f 100644
--- a/src/core/IO/Socket/Async.pm6
+++ b/src/core/IO/Socket/Async.pm6
@@ -195,23 +195,32 @@ my class IO::Socket::Async {
         $p
     }
 
+    class ListenSocket is Supply {
+        has Promise $.socket-host;

timo

#!/usr/bin/env perl6

# The Expat License
#
# Copyright (c) 2018, Shlomi Fish
#
# Permission is hereby granted, free of charge, to any person obtaining a copy
# of this software and associated documentation files (the "Software"), to deal
# in the Software without restriction, including without limitation the rights
# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell

timo

#!/usr/bin/env perl6

# inspired by https://narimiran.github.io/2018/05/10/python-numpy-nim.html

use nqp;

constant N = 10_000;
constant sigma = 0.1e0;
constant f = (2 / N).Num;
constant mu = 0.001e0;

timo

timo@schmand /tmp> perl6 --profile=heap testshellmem.p6 shell
Before shell call : 101.664 kb
html is 230457 chars
After shell call : 210.332 kb
After forced gc: 249.704 kb
html is 230457 chars
After shell call : 323.016 kb
After forced gc: 354.232 kb
html is 230457 chars
After shell call : 401.640 kb

timo

define trace_spesh_optimize
    dont-repeat
    python

import tempfile
import os
import gdb
spesh_trace_target_folder = tempfile.mkdtemp("", "moar-spesh-trace")
spesh_trace_target_file = os.path.join(spesh_trace_target_folder, "speshdump.txt")
os.system("git init " + spesh_trace_target_folder)

timo

grammar g{
    token garble {<[2]>};
    token alpha1 {<[2]>};
    token beta { <[q]> };
    token delta {<+garble +beta>};
    token delta1 {<+garble>};
    token delta2 {<+alpha1 +beta>}
}
say so "2" ~~ /<g::delta1>/;   # OK
say so "2" ~~ /<g::delta2>/;   # OK

timo

use v6;
use Test;

sub combinations_with_replacement(@iterable, $r)  {
    gather {
        cwr(@iterable, [], $r);
    }
}
sub cwr(@iterable, @state, $r) {
    my $place = @state.elems;

timo

# this is my solution to GRAPH.
# it offers an interactive mode and some test cases

use v6;

class Graph {
    has @!nodes;
    has %!neighbour;

    method connect($a, $b) {

timo

struct MVMCompUnitBody {
        MVMuint8 *                 data_start;           /*     0     8 */
        MVMuint32                  data_size;            /*     8     4 */

        /* XXX 4 bytes hole, try to pack */

        MVMObject * *              coderefs;             /*    16     8 */
        MVMuint32                  num_frames;           /*    24     4 */
        MVMuint32                  orig_frames;          /*    28     4 */
        MVMStaticFrame *           main_frame;           /*    32     8 */