I hereby claim:
- I am gregorstocks on github.
- I am gregorstocks (https://keybase.io/gregorstocks) on keybase.
- I have a public key ASBIK1mTX14c5I_9HQQerpzmu6HVbR-vZ-AZhbxXqZcfRAo
To claim this, I am signing this object:
Gregor Stocks GregorStocks
GregorStocks
/ keybase.md
Created
June 12, 2018 19:02
GregorStocks
/ gist:9c2f27aca2a4d57ca7f93322d1e8e5db
Created
June 16, 2017 17:13
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| intended | |
| (s/def ::boop string?) | |
| (s/def ::blah (s/keys :opt {::boop})) | |
| {::boop 5} ;; error | |
| {::booop 5} ;; not an error |
GregorStocks
/ scary-people.clj
Last active
August 21, 2016 14:12
— forked from j-po/scary-people.clj
Go `n` levels deep into the "Normal people scare me" shirt
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defn scary-people | |
| "Go `n` levels deep into the 'Normal people scare me' shirt" | |
| [n] | |
| (loop [i n | |
| ret "Normal people scare me" | |
| quotes (if (odd? i) \" \')] | |
| (if (zero? i) | |
| ret | |
| (recur (dec i) | |
| (str "Normal people wearing " quotes ret quotes " shirts scare me") |
GregorStocks
/ like, what
Created
May 6, 2016 03:15
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| weird-abs.core=> (Math/abs -10000000000000) | |
| 10000000000000 | |
| weird-abs.core=> (def a -10000000000000) | |
| #'weird-abs.core/a | |
| weird-abs.core=> (Math/abs a) | |
| 1316134912 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defn extranapkin [s] | |
| (let [n (number->words (count (string/split s #" ")))] | |
| (str "I've got " n " words for you: " s))) | |
| (defn extranapkins [x] | |
| (loop [so-far "Fuck off" | |
| i 1] | |
| (if (> i x) | |
| so-far | |
| (recur (extranapkin so-far) (inc i))))) |
GregorStocks
/ number->words.clj
Created
May 3, 2016 06:11
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (def number->words) | |
| (defn small->word [n] | |
| (case n | |
| 1 "one" | |
| 2 "two" | |
| 3 "three" | |
| 4 "four" | |
| 5 "five" | |
| 6 "six" |
GregorStocks
/ core_test.clj
Created
May 3, 2016 06:00
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (ns extranapkins.core-test | |
| (:require [clojure.test :refer :all] | |
| [clojure.string :as string] | |
| [extranapkins.core :refer :all])) | |
| (def from-blog "I've got nine hundred and twenty-one words for you: I've got nine hundred and twelve words for you: I've got nine hundred and three words for you: I've got eight hundred and ninety-four words for you: I've got eight hundred and eighty-five words for you: I've got eight hundred and seventy-six words for you: I've got eight hundred and sixty-seven words for you: I've got eight hundred and fifty-eight words for you: I've got eight hundred and forty-nine words for you: I've got eight hundred and forty words for you: I've got eight hundred and thirty-one words for you: I've got eight hundred and twenty-two words for you: I've got eight hundred and thirteen words for you: I've got eight hundred and four words for you: I've got seven hundred and ninety-five words for you: I've got seven hundred and eighty-six words for you: I've got seven hundred and |
GregorStocks
/ gist:0b3b03b24ed37793eeec
Last active
August 29, 2015 14:06
— forked from matthavener/gist:5002fcad1173c05d83aa
GregorStocks
/ gist:5384959d0c940a2d1116
Created
August 26, 2014 00:44
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| -*- mode: clojure; -*- | |
| ; vim: filetype=clojure | |
| (logging/init {:file "riemann.log"}) | |
| ; Listen on the local interface over TCP (5555), UDP (5555), and websockets | |
| ; (5556) | |
| (let [host "0.0.0.0"] | |
| (tcp-server {:host host}) | |
| (udp-server {:host host}) |
GregorStocks
/ gist:5c67b5b9cda93b6aa529
Created
August 25, 2014 22:44
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| set :port, 6969 | |
| set :bind, "0.0.0.0" |
NewerOlder