adeishs

<script type="text/javascript">
$(function() {
    var widths = new Array;

    /* get max column widths from tables */
    $('table').each(function() {
        i = 0;
        $(this).find('thead th').each(function() {
            w = $(this).width();

adeishs

#!/usr/bin/perl

use strict;
use Data::Dumper;

my $x;
$x->{a}->{b}->{c}->{d} = 1;
print Dumper($x)

=begin output

adeishs

#!/usr/bin/env python

x = {}
x['a']['b']['c']['d'] = 1

adeishs

#!/usr/bin/env python

import collections
import pprint

dict_factory = lambda: collections.defaultdict(dict_factory)
x = collections.defaultdict(dict_factory)
x['a']['b']['c']['d'] = 1
print x['a']['b']['c']['d']
print pprint.pformat(x)  # looks a bit messy, but it gives you the idea

adeishs

execute pathogen#infect()
colorscheme borland
set nu
set title
set guifont=Source\ Code\ Pro:h13
set termencoding=utf-8
set encoding=utf-8
set fileencoding=utf-8
set shiftwidth=4 softtabstop=4 smarttab expandtab
set colorcolumn=80

adeishs

#!/bin/bash

# https://github.com/git/git/blob/master/contrib/completion/git-completion.bash
source ~/git-completion.bash

# https://perlbrew.pl/
source ~/perl5/perlbrew/etc/bashrc

adeishs

Keybase proof

I hereby claim:

• I am adeishs on github.
• I am adeishs (https://keybase.io/adeishs) on keybase.
• I have a public key ASDQlVBSXewGedj1Ivd9i-shtY31suJQLNx4RrpyVqvNcgo

To claim this, I am signing this object:

adeishs

#!/usr/bin/env perl

use strict;
use List::Util qw(any);
use Data::Dumper::Concise;

my %h = (
    k1 => {
        s1 => 0,
        s2 => 0,

adeishs

#!/usr/bin/env perl

use List::MoreUtils;
use Data::Dumper::Concise;

my @els = qw(e a p c x e e x);

my @not_uns = sort List::MoreUtils::uniq @els;
my @uns = sort { $a cmp $b } List::MoreUtils::uniq @els;

adeishs

-- get the first Monday of a year
WITH year AS (

  -- change the year as you need
  SELECT CAST(2022 AS INTEGER) y
),
first_date AS (
  SELECT CAST(y || '-01-01' AS DATE) AS d
  FROM year
)