I hereby claim:
- I am konr on github.
- I am konr (https://keybase.io/konr) on keybase.
- I have a public key whose fingerprint is 0257 552D 70ED 787A FDC7 6B33 9F66 B6F7 2C0E 5400
To claim this, I am signing this object:
### Keybase proof | |
I hereby claim: | |
* I am konr on github. | |
* I am konr108 (https://keybase.io/konr108) on keybase. | |
* I have a public key ASCbkYD_OxuZ7OCeOigs6fPMGvmzOmxr_JcrH6ZA1sORago | |
To claim this, I am signing this object: |
I hereby claim:
To claim this, I am signing this object:
(ns doge-dice-calculator) | |
(def house-edge 0.01) | |
(defn dice [] | |
(rand)) | |
(defn roll-low [chance] | |
(< (dice) chance)) |
#!/bin/sh | |
for flv in $(find . -name '*flv'); do | |
mplayer -dumpaudio $flv -dumpfile ${flv/flv/mp3} | |
done |
(def skeleton | |
{:fullname {:required true | |
:as [:account-request :name] | |
:eg "Konrad Scorciapino"} | |
:email {:required true | |
:as [:account-request :email] | |
:eg "konrad@eo2.com.br" | |
:validator v/validate-email} | |
:id {:as [:meta :id] | |
:eg "06965086-c44b-4395-a435-dc7c20a10757" |
#!/bin/sh | |
repos=/opt/repos/ | |
old_dir=$PWD | |
for dir in $(find $repos -maxdepth 1 -mindepth 1 -type d); do | |
cd $dir | |
echo '###########' $(pwd) '###########' | |
git pull --ff-only | |
done |
(ns backend.utils | |
(:require | |
[swiss-arrows.core :refer :all])) | |
(defn check-cpf [cpf] | |
(let [digits (->> cpf (re-seq #"\d") (map #(Integer. %))) | |
blacklisted? (partial re-find #"^12345678909|(\d)\1{10}$") | |
formatted? (partial re-find #"^\d{11}$") | |
checksum-ok? (fn [digit digits] | |
(-<> (for [i (range digit)] (* (nth digits i) (+ digit 1 (- i)))) |