klmr

n_genes = 20000
n = 100

relatedness = replicate(n, {
    child1 = sample(c('mother', 'father'), n_genes, replace = TRUE)
    child2 = sample(c('mother', 'father'), n_genes, replace = TRUE)
    mean(child1 == child2)
})

mean(relatedness)

klmr

#include <algorithm>
#include <initializer_list>
#include <iostream>
#include <iterator>
#include <string_view>
#include <type_traits>
#include <unordered_map>

namespace stats {
    

klmr

os_error = function (message, call = NULL) {
    class = c('os_error', 'error', 'condition')
    structure(list(message = message, call = call), class = class)
}

value_error = function (message, call = NULL) {
    class = c('value_error', 'error', 'condition')
    structure(list(message = message, call = call), class = class)
}

klmr

def fib(n: int) -> int:
    def f(n, a, b):
        if n == 0: return a
        if n == 1: return b
        return f(n - 1, b, a + b)
    
    return f(n, 0, 1)

klmr

using System;
using System.Collections.Generic;

namespace OperatorTest {
    public interface ICalculator { }

    public interface ICalculator<T> : ICalculator {
        T Add(T a, T b);
        T Divide(T a, T b);
        T Multiply(T a, T b);

klmr

.blob-code span:before {
    background: #fdfd9c;
    color: #a2a2a2;
    content: attr(class);
    font-family: sans-serif;
    font-size: 0.7em;
    padding: 0 0.2em;
    vertical-align: middle;
}

klmr

using System;
using Color = System.Drawing.Color;

namespace CsTest {
    // Generic interfaces. // (1)
    interface IEquatable<in T> {
        bool Equals(T other);
    }

    interface ICloneable<out T> {

klmr

• Invalid signature void main() (… I mean, seriously?!)
• Missing namespace qualifiers throughout
• Missing include for accumulate
• Missing ) in accumulate call
• Invalid arguments to accumulate call:
  • init missing
  • op has wrong function type (expected (T, T) -> T; got (T) -> void)
  • — in fact, it seems they actually meant std::for_each.
• … but using std::accumulate correctly would have been way easier, without a gratuitous lambda.

klmr

summary.tbl_df = function (object, ...) {
    dots = rlang::quos(...)
    stopifnot(length(dots) == 1)
    name = rlang::quo_name(dots[[1]])
    do(object, as_data_frame(as.list(summary(.[[name]]))))
}

klmr

#!/bin/bash

tmup() {
    local IFS=$'\n'
    for line in $(tmux showenv -t $(tmux display -p '#S')); do
        case $line in
            -*) unset ${line:1} ;;
            *) export $line ;;
        esac
    done