rurban

#!/usr/bin/env perl
# create a fair tournament schedule for n ranked players,
# where each player plays only against his ranked neighbors, not round-robin.
# this is much better than a round-robin. and also better than swiss, because
# all matches are predefined, you don't have to wait for matches to end at
# the end of each round, thus it will be much faster.
# args: n players, default 18.
#       r rounds, default 6
# FIXME: odd number of players, just add 1.
# Note: Neither deepseek-r1 not claude sonnet was able to come up with such a system, even

rurban

/* Scan DWG program -- for scanning a DWG file
   Copyright (C) 1995, 1996 Frans Faase, Reini Urban

   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of

rurban

make: Nothing to be done for 'miniperl'.
0 1.451963
0 1.453744
# perlmini miniperlmain gv toke perly opmini pad sv hv av run pp_hot ppmini pp_type scope pp_ctl pp_sys doop doio regcomp util xsutilsmini mg keywords regexec utf8 globals universal
# 27 1
0 1.462567
# perlmini miniperlmain gv toke perly opmini pad sv hv av run pp_hot ppmini pp_type scope pp_ctl pp_sys doop doio regcomp util xsutilsmini mg keywords regexec utf8 universal globals
# 27 2
0 1.455446
# perlmini miniperlmain gv toke perly opmini pad sv hv av run pp_hot ppmini pp_type scope pp_ctl pp_sys doop doio regcomp util xsutilsmini mg keywords regexec utf8 globals universal

rurban

# detected by mziescha
use warnings 'shadow-package'; # or just shadow

package Acme::Test;
sub new { bless {}, shift }
sub Sub { 'shadowed' }

package Acme::Test::Sub;
sub new { print 'Sub'; bless {}, shift } # warn: "Package Acme::Test::Sub shadowed by Acme::Test->Sub at warn-shadow-pkg.pl, line 8"

rurban

Keybase proof

I hereby claim:

• I am rurban on github.
• I am rurban (https://keybase.io/rurban) on keybase.
• I have a public key ASA4zOnAYHaV6V5Kkbs121Eju-DcyNamr0ZIRsNpVBDwRAo

To claim this, I am signing this object:

rurban

[email protected] for clisp mingw64 builds
Avoid the need for -Iddk with #include <ntifs.h>

--- mingw32/i686-w64-mingw32/include/ddk/ntddk.h~	2017-01-14 23:19:13.000000000 +0100
+++ mingw32/i686-w64-mingw32/include/ddk/ntddk.h	2017-03-22 14:46:54.000000000 +0100
@@ -35,11 +35,11 @@
 #define NT_INCLUDED
 #define _CTYPE_DISABLE_MACROS

-#include <wdm.h>

rurban

Perl 5 is still in business but lost lot of its market share since the announcement of Perl 6. I'll outline the technological problems with perl5 which led to perl6, the management problems, and my various attempts to get perl5 into proper shape. parrot, the perl compiler, p2 and cperl. There are interesting observations in toxic cultures and technological problems.

Session type: 40-minute presentation Topics: The new stuff Abstract

Perl 5 is still in business but lost lot of its market share since the announcement of Perl 6 in 2002.

I’ll outline the technological problems with perl5 which led to perl6, the management problems in the p5p perl community which led to serious brain drain, the various attempts to get parrot and perl6 into shape for the last 14 years and more.

rurban

$ for p in `cat benchperl.lst`; do perf stat -r3 $p bench.pl 2>> bench.dat; done

bench.pl: (no unicode, no oo)
#!/usr/bin/perl
my @a = (0..31);
my %h = (1..100);
my $s = '0123456789';
sub f {
    my $n = shift;
    $n % 2 and bless{1..4} and $h{$n} and $a[$n] and $s =~ s/$/../;

rurban

#!/usr/bin/perl
# git clone https://github.com/BuzzFeedNews/2016-01-tennis-betting-analysis
# cd 2016-01-tennis-betting-analysis

use Digest::SHA 'sha256_hex';

# atp top100 2008-12-22
# wget 'http://www.atpworldtour.com/en/rankings/singles?rankDate=2008-12-22' -o singles.html
# grep /overview singles.html | perl -lne'm{">(.*)<\/a>} && print $1' > players
my @n = split(/\n/, `cat players`);

rurban

{
    "users": {
        "alexchorny": "chorny",
        "bdraco": "bdraco",
        "kid51": "jkeenan",
        "brooklyn.kid51": "jkeenan",
        "bulk88": "bulk88",
        "erin.schoenhals": "xantronix",
        "[email protected]": "hknutzen",
        "jquelin": "jquelin",