tonsky

(defn bench-btset []
  (doseq [distinct    [:distinct :duplicates]
          size        [20000]
          [tn target] [["sorted-set" (sorted-set)]
                       ["btset"      (btset/btset)]
                       ["vector"     []]]
          :let [range          (if (= :distinct distinct)
                                 (shuffle (range size))
                                 (repeatedly size #(rand-int size)))
                shuffled-range (shuffle range)

tonsky

(let [a 1, a  2,  a 3]
  (and (= a 1) (= a  2) (=  a 3)))

tonsky

;; I have this

(def routes ["/" [["" :ui/index]
                  ["api/query" :api/query]
                  ["api/data-init" :api/data-init]]])

;; And I want to make api/data-init only accesible through POST
;; I tried

(def routes ["/" [["" :ui/index]

tonsky

(ns datomicdemo.core
  (:require
    [clojure.edn]
    [clojure.string :as str]
    [datomic.api :as d]))

(def url "datomic:free://localhost:4334/datomicdemo")

(d/create-database url)

tonsky

package com.example.onair

import android.os.Bundle
import androidx.appcompat.app.AppCompatActivity
import androidx.compose.*
import androidx.ui.core.Text
import androidx.ui.core.dp
import androidx.ui.core.setContent
import androidx.ui.foundation.Clickable
import androidx.ui.foundation.ColoredRect

tonsky

(defn end? [[x1 x2 x3 x4 x5 x6 x7 x8 x9]]
  (or
    (and (some? x1) (= x1 x2 x3))
    (and (some? x4) (= x4 x5 x6))
    (and (some? x7) (= x7 x8 x9))
    (and (some? x1) (= x1 x4 x7))
    (and (some? x2) (= x2 x5 x8))
    (and (some? x3) (= x3 x6 x9))
    (and (some? x1) (= x1 x5 x9))
    (and (some? x3) (= x3 x5 x7))

tonsky

(def ^:private last-window-ms 120000)

(def ^:private max-last-txs 3)

defn- authorize-tx [authorizer tx]
  (let [{:keys [active-card available-limit]} authorizer
        {:keys [amount time]} tx]
    (cond
      (nil? active-card)
      (assoc authorizer

tonsky

package fitnesse.html;

import fitnesse.responders.run.SuiteResponder;
import fitnesse.wiki.*;

public class SetupTeardownIncluder {
  public static String render(PageData pageData, boolean isSuite) throws Exception {
    StringBuilder sb = new StringBuilder();
    WikiPage testPage = pageData.getWikiPage();
    if (pageData.hasAttribute("Test")) {

tonsky

- Types of reuse
    - Layer
        - Completely abstracts underlying problem. Your code calls layer
        - Assume singleton, can conflict with another layer 
    - Engine
        - Orchestrates whole app Engine calls you
    - Component
        - You call component, but component might call you back
        - Most benefits, hardest to design
- Optimization axes

tonsky

top10Salaries :: FilePath -> IO ()
top10Salaries path = do
  Just (h, t) <- uncons . T.lines <$> T.readFile path
  let
    split = T.splitOn ","
    Just ind = elemIndex "Salary" $ split h
    top10 :: [Int] = t
      & map (\s -> read $ T.unpack $ split s !! ind)
      & sortBy (flip compare)
      & take 10