qwtel

// emits a value after `init` ms, then after `init * exp` ms, then `init * exp * exp` ms, etc.
function expInterval(init, exp) {
  return Observable.create((observer) => {
    let n = init;
    let id;

    function next() {
      observer.next(n);
      n *= exp;
      id = setTimeout(next, n);

qwtel

import styled from 'styled-components';

const Button = styled.button`
  background: white;
  color: palevioletred;
  font-size: 1em;
  margin: 1em;
  padding: 0.25em 1em;
  border: 2px solid palevioletred;
  border-radius: 3px;

qwtel

function render() {
  return (
    ['aside', { id: 'sidebar' },
      ['div', { className: 'sidebar' },
        ['div', { className: ['container', 'sidebar-sticky'] },
          ['div', { className: 'sidebar-about' },
            ['h1', { className: 'font-accent' },
              ['a', { tabindex: '1', href: site.baseurl },
                site.title
              ],

qwtel

Atom Sync Settings Backup

qwtel

Handy for a ring REST server that is spec'd via the upcomming clojure.spec library in Clojure 1.9, since it encourages the use of namespaced keywords.

A request like

POST /endpoint Content-Type: application/json {"name": "Test", "id": -1}

will be parsed as

{:my.spec/name "Test"

qwtel

(defproject hello-world "0.0.0"
  ;; lein obviously does dependency management
  :dependencies [[org.clojure/clojure "1.8.0"]
                 [org.clojure/clojurescript "1.9.92"]]

  ;; and uses plugins for non-standard tasks
  :plugins [[lein-cljsbuild "1.1.3"]
            [lein-figwheel "0.5.4-4"]]

  ;; this will build cljs on `lein compile`

qwtel

(defproject hello-world "0.0.0"
  ;; lein obviously does dependency management
  :dependencies [[org.clojure/clojure "1.8.0"]
                 [org.clojure/clojurescript "1.9.92"]]

  ;; and uses plugins for non-standard tasks
  :plugins [[lein-cljsbuild "1.1.3"]
            [lein-figwheel "0.5.4-4"]]

  ;; this will build cljs on `lein compile`

qwtel

(ns interact.cda
  (:require [clojure.test :refer :all]))

(defn insert-by [f c e]
  (let [[lt gt] (split-with #(f % e) c)]
    (concat lt [e] gt)))

(def insert (partial insert-by <))

(testing "insert"

qwtel

(ns goog
  (:require [clojure.string :as str]))

(def words-by-count (->> (slurp "/usr/share/dict/words" :encoding "ASCII")
                      str/split-lines
                      (map str/lower-case)
                      distinct
                      (map seq)
                      (group-by count)))

qwtel

contract Pyramid {
    struct Participant {
        bytes desc;
        address etherAddress;
        bytes bitcoinAddress;
    }

    Participant[] public participants;

    uint public payoutIdx = 0;