| # Example makefile with some dummy rules | |
| .PHONY: all | |
| ## Make ALL the things; this includes: building the target, testing it, and | |
| ## deploying to server. | |
| all: test deploy | |
| .PHONY: build | |
| # No documentation; target will be omitted from help display | |
| build: |
| template <typename... T> | |
| constexpr auto make_array(T&&... values) -> | |
| std::array< | |
| typename std::decay< | |
| typename std::common_type<T...>::type>::type, | |
| sizeof...(T)> { | |
| return {std::forward<T>(values)...}; | |
| } |
| r6_class( | |
| MyClass, | |
| { | |
| initialize = function (x) { | |
| private$x = x | |
| } | |
| get = function () private$x | |
| }, | |
| private = { |
| linters: | |
| config_dir = dirname(parent.frame(3L)$config_file) | |
| lapply(dir(config_dir, '\\.r$', full.names = TRUE), source, local = environment()) | |
| lintr::linters_with_defaults( | |
| assignment_linter = NULL, | |
| function_left_parentheses_linter = NULL, | |
| line_length_linter(120L), | |
| object_usage_linter = NULL, # unusably buggy | |
| lintr::quotes_linter("'") | |
| ) |
| 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); |
| `<-` = function (body, params) { | |
| vars = all.vars(substitute(params)) | |
| formals = as.pairlist(setNames(replicate(length(vars), quote(expr = )), vars)) | |
| eval.parent(call('function', formals, substitute(body))) | |
| } | |
| sapply(1 : 4, x -> 2 * x) | |
| # 2 4 6 8 | |
| mapply(x ~ y -> x + y, |
| 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) |
![screenshot][]
In the following we will be using R’s “restarts” feature to implement the state machine that drives generators in languages such as Python. Generators allow lazily generating values on demand: a consumer invokes a generator, and consumes values as they are produced. A new value is only produced once the previous one has been consumed.
| doc = function (...) { | |
| doc = new.env(parent = emptyenv()) | |
| doc$words = lapply(list(...), add_node, doc = doc) | |
| doc | |
| } | |
| par = function (...) { | |
| structure(list(...), class = c("par", "docnode")) | |
| } |
| #!/bin/bash | |
| set -e | |
| set -u | |
| failed=0 | |
| for file in *.fq.gz; do | |
| md5=$(gunzip -c "$file" | openssl md5 | cut -f2 -d " ") | |
| gold=$(grep "${file/.gz/}" md5sums.txt | cut -f2) | |
| if [ "$md5" != "$gold" ]; then |