konr

### 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:

konr

Keybase proof

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:

konr

(ns doge-dice-calculator)

(def house-edge 0.01)

(defn dice []
  (rand))

(defn roll-low [chance]
  (< (dice) chance))

konr

#!/bin/sh

for flv in $(find . -name '*flv'); do
    mplayer -dumpaudio $flv -dumpfile ${flv/flv/mp3}
done

konr

(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"

konr

#!/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

konr

(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))))