Kodiologist

    # Compute the values of the extra fields XXX_Extra and
    # XYZ_Extra. This requires munging some deliberately
    # obfuscated code.
    #
    # Sometimes XXX_Extra and XYZ_Extra aren't provided (hence the
    # "if"), in which case we don't need them.
    my %extra_fields;
    if ($body =~ m{
                <script \s type="text/javascript"> \x0d \x0a
                (function .+?)

Kodiologist

; https://www.reddit.com/r/mylittleprogramming/comments/335gc2/particularly_perplexing_programming_puzzle_2/

(require kodhy.macros)

(import
  [hy [HySymbol]]
  [kodhy.util [ret]]
  [minesweeper [*]]) ; http://pastebin.com/HgHkuKZj, http://pastebin.com/u0Xg0JGz

(defmacro g [method-name &optional a1 a2]

Kodiologist

[

    {
        "type": "MOD_INFO",
        "mod_type": "SUPPLEMENTAL",
        "ident": "neckbeard",
        "name": "Neckbeard Profession",
        "author": "Kodi Arfer",
        "description": "Adds a profession for the \"neckbeard\" stereotype.",
        "path": "modinfo.json"

Kodiologist

from random import randint, choice

waitlist_growths = [2, 2, 3, 4, 5, 6, 6, 6, 6, 6, 6, 7, 7, 7, 8, 9, 9, 9, 10, 13, 14, 17]
  # I took the most recent 166 top-level comments to the AMA
  # signup thread, grouped them by week, and counted the size of
  # each group.

# http://www.reddit.com/r/MyLittleShellbullet17/comments/1pnhpx/ama_sign_up/cgko9z8?context=5

def howlong(

Kodiologist

Kodiologist

#!/usr/bin/perl

use feature 'say';
use warnings;
use strict;
use Archive::Zip;
use XML::Simple 'XMLin';
use List::MoreUtils 'all', 'true', 'firstidx';

# -----------------------------------------------------

Kodiologist

digraph {

graph [overlap = "prism", splines = "spline"];

node [width = 2, style = filled, color = cadetblue1];

"-20" -> "2SilentQs";
"-20" -> "Auirc";
"-20" -> "Bandalo";
"-20" -> "BigMacIsNotABurger";