DarwinAwardWinner

library(rlang)
library(assertthat)
library(magrittr)
library(glue)
library(tibble)

## Takes LHS and RHS as strings
assign_general_ <- function(lhs, rhs, envir) {
    expr <- parse(text=glue("{lhs} <- {rhs}"))
    eval(expr, envir)

DarwinAwardWinner

;;; bcup-closures.el ---  -*- lexical-binding: t -*-

;; Closure-manipulating function/macros
(defmacro enclose (arg)
  `(lambda () ,arg))
(defmacro enclose-args (&rest args)
  (let ((enclose-exprs
         (mapcar (lambda (arg) `(enclose ,arg)) args)))
    `(list ,@enclose-exprs)))
(defun unenclose (arg) (funcall arg))

DarwinAwardWinner

Homebrew build logs for argyll-cms on macOS 10.11.6
Build date: 2017-08-20 11:54:00

DarwinAwardWinner

library(magrittr)
library(dplyr)
library(ggplot2)
library(purrr)
library(forcats)
library(glue)

pledge.amount <- 1
x <- list(
    Old_WorstCase=c(

DarwinAwardWinner

#!/usr/bin/env Rscript

suppressPackageStartupMessages({
    library(globals)
    library(readr)
    library(stringr)
    library(rex)
    library(magrittr)
    library(rlang)
    library(knitr)

DarwinAwardWinner

import mistune
from lxml import html
from snakemake.utils import min_version
min_version('3.7.1')

rule all:
    input: 'presentation.pdf'

rule pdf_to_png:
    input: 'images/{filename}.pdf'

DarwinAwardWinner

library(dplyr)
library(matrixStats)
library(stringr)
library(ggplot2)

## Using point buy table from https://www.d20pfsrd.com/basics-ability-scores/ability-scores/
## Assume anything less than 7 is just -4 points
point_buy_values <-
    c(-4, -4, -4, -4, -4, -4, -4, -2, -1, 0, 1, 2, 3, 5, 7, 10, 13, 17) %>%
    set_names(seq_along(.))

DarwinAwardWinner

library(dplyr)
library(tidyr)

d6 <- 1:6
# We'll call the 3 dice X, Y, and D (D is the dragon die)
all_rolls <- expand.grid(X=d6, Y=d6, D=d6) %>%
    mutate(
        ## Sum of all 3 dice; determines if you hit
        sum = X + Y + D,
        ## TRUE if this roll has doubles in it

DarwinAwardWinner

## License: WTFPL
library(reshape2)
library(matrixStats)
library(ggplot2)
library(magrittr)
library(dplyr)
## You also need the Hmisc package installed, but I don't load it
## because of namespace clashes with dplyr

## Enumerate all possible 4d6 rolls, then order each row from high to

DarwinAwardWinner

local({

    ## Put everything in a separate environment and attach that
    ## environment. Re-use the existing one from the search path it
    ## it's available, so that re-executing this file doesn't add a
    ## new environment to the search path every time.
    custom_env <- tryCatch(as.environment("rct_custom_env"),
                           error=function(...) {
                               attach(NULL, name="rct_custom_env")
                               as.environment("rct_custom_env")