Skip to content

Instantly share code, notes, and snippets.

@qwtel
qwtel / ethpyramid.sol
Created January 30, 2016 16:31
ETH Pyramid Contract
contract Pyramid {
struct Participant {
bytes desc;
address etherAddress;
bytes bitcoinAddress;
}
Participant[] public participants;
uint public payoutIdx = 0;
@qwtel
qwtel / separator.cljc
Last active December 7, 2015 11:54
Valid Clojure
(defn <> [] <>)
(((((((((((((((((((((((((((((((((((((((<>)))))))))))))))))))))))))))))))))))))))
@qwtel
qwtel / clojure.js
Last active September 29, 2015 09:46
If JavaScript was written like Clojure...
function cost(state) {
return mul(
b,
Math.log(
reduce(
add,
map(
function(x) {return Math.pow(Math.E, div(x, b))},
vals(x)))))}
@qwtel
qwtel / connectContext.js
Last active September 17, 2015 16:34
Enhanced version of redux' connect, that puts all action creators into the child context of the component.
import {PropTypes} from 'react';
import {connect} from 'react-redux';
/**
* Enhanced version of redux' connect, that puts all action creators
* into the child context of the component.
*
* @param mapStateToProps {Function}
* @param mapDispatchToProps {Function} Must be free of side effects!
* @returns {Function}
@qwtel
qwtel / README.md
Last active March 3, 2016 11:30
Auto Update Time

Auto Update Time

Usage

var aut = new AutoUpdateTime(date, function(timeDiff) {
  console.log(timeDiff + ' ms passed since last callback'); 
});
(defn generate-markov-nodes
[words]
(->>
words
(map str/lower-case)
(str/join " ")
(partition 3 1)
(map #(list (take 2 %1) (nth %1 2)))
(reduce
(fn [acc [l next-l]] (update-in acc [l next-l] (fnil inc 0)))
(ns markov-usrnames)
(require '[clojure.string :as str])
(def file (slurp "/usr/share/dict/words" :encoding "ASCII"))
(def words (str/split-lines file))
(defn generate-markov-nodes
[words]
(->>
(ns usrnames)
(require '[clojure.string :as str])
(def file (slurp "/usr/share/dict/words" :encoding "ASCII"))
(def words (str/split-lines file))
(defn remove-vowels [word]
(->>
word
trtht (tritheite)
jwstn (Jewstone)
hwkng (hawking)
plrdr (Pleurodira, pleurodire)
drsnz (deresinize)
nlwry (inlawry)
nrckn (unreckon)
bdlmc (Bedlamic)
mrmps (Mormoops)
clvry (Calvary, clovery)
define([
'promise'
], function (Promise) {
/**
* @param urlWithoutExtension {String} - the path to the sound file without a particular extension.
* @param audioContext {AudioContext} - the audio context of the sound file, used for decoding.
* @returns {Promise} - a promise containing the decoded audio data.
*/
function getSoundBuffer(urlWithoutExtension, audioContext) {