vkryukov

package main

import (
	"bytes"
	"fmt"
	"log"
	"net/mail"

	enmime "github.com/jhillyerd/go.enmime"
)

vkryukov

randomPoints[n_] := RandomSample[Block[{nn = Ceiling[Sqrt[n]]},
    Flatten[Table[{i, j}, {i, 1, nn}, {j, 1, nn}], 1]], n];
(* n is number of moves = 2 * number of points *)
randomBoard[n_] := Module[
  {points = randomPoints[2 n]},
  Join[
   Take[points, n] /. {x_, y_} -> black[x, y],
   Take[points, -n] /. {x_, y_} -> white[x, y]
   ]]

vkryukov

tables <- SQLQuery("
  select TABLE_NAME as table_name 
  from cs_reporting.information_schema.tables 
  where table_type = 'BASE TABLE'")

sizes <- rbindlist(lapply(tables$table_name, function(x) SQLQuery(paste0("sp_spaceused [", x, "]"))))

StripKB <- function(x) as.integer(str_replace_all(x, ' KB', ''))

sizes[, reserved := StripKB(reserved)]

vkryukov

library(digest)

LoadRDataIfExists <- function(fn) {
  # Calls _fn_ and caches the result on disk, unless the cache already exists
  #
  # _fn_ should be a function with signature _fn(filename, ...)_
  # If cache file exists and is recent, load data from it.
  # Otherwise call the original function.
  function (filename, ...) {
    param.hash = digest(c(fn, list(...))) # Cache file names depends on params/fn def