kidpollo

(ns local
  {:clj-kondo/config '{:lint-as {promesa.core/let clojure.core/let
                                 applied-science.js-interop/fn clojure.core/fn
                                 applied-science.js-interop/defn clojure.core/defn}}}
  (:require [cljs-bean.core :refer [->clj ->js]]
            [promesa.core :as p]
            ["http" :as http]
            ["url"]
            [applied-science.js-interop :as j]
            [clojure.string :as string]

kidpollo

(ns foo
  {:clj-kondo/config '{:lint-as {promesa.core/let clojure.core/let
                                 applied-science.js-interop/defn clojure.core/defn}}}
  (:require [cljs-bean.core :refer [->clj ->js]]
            [ruuter.core :as ruuter]
            ["axios$default" :as axios]
            [clojure.string :as string]
            [promesa.core :as p]
            [applied-science.js-interop :as j]))

kidpollo

# do https://gist.github.com/jed/6147872 and then do this to proxy your app
worker_processes  1;

events {
  worker_connections  1024;
}

http {
  server {
    listen 80;

kidpollo

# Install iterm 2 https://www.iterm2.com/
# Install 1password

#install homebrew
/bin/bash -c "$(curl -fsSL https://raw.githubusercontent.com/Homebrew/install/HEAD/install.sh)"
echo 'eval "$(/opt/homebrew/bin/brew shellenv)"' >> /Users/paks/.zprofile
eval "$(/opt/homebrew/bin/brew shellenv)"

# packages
brew install git git-crypt gpg autojump kube-ps1 stern asdf rlwrap rg

kidpollo

require 'mail'
require 'thread'
require 'parallel'
require 'benchmark'


Mail.defaults do
  delivery_method :smtp, options
end

kidpollo

Keybase proof

I hereby claim:

• I am kidpollo on github.
• I am kidpollo (https://keybase.io/kidpollo) on keybase.
• I have a public key ASD3Rhho5U14SMrLQ9gNilg9-YssXS9hiovYVCkqFw3aFwo

To claim this, I am signing this object:

kidpollo

(defn monty-hall
  ""
  []
  (let [prize-idx (rand-int 3)
        doors [false false false]
        doors (assoc doors prize-idx true)
        random-pick (rand-int 3)
        monty-pick (first
                     (remove nil? (map-indexed
                                    (fn [idx val]

kidpollo

(defn make-change [x coinset]
  (loop [x x
         change []]
    (let [possible-coins (take-while #(when (>= x %) %) coinset)
          current-coin (some #(when (zero? (rem x %)) %) possible-coins)]
      (cond
        (= x (reduce + possible-coins))
        (concat possible-coins change)
        (= x 0)
        change

kidpollo

(ns sudoku-validator.core)

(defn is-valid-solution [grid]
  (let [rows (partition-all 9 (map (comp read-string str) grid))
        cols (apply map (comp seq vector) rows)
        squares (map
                  flatten
                  (partition-all
                    3
                    (for [base (range 3)

kidpollo

body {
 background: #1B1B1B;
 color: #BEBEBE;
 white-space: pre;
 font-family: "Inconsolata", monospace;
}

a {
 color: #7BAFC2;
}