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:
| const maxCount = 5000; | |
| const counterSelector = '.rtExYb'; | |
| const checkboxSelector = '.ckGgle[aria-checked=false]'; | |
| const photoDivSelector = ".yDSiEe.uGCjIb.zcLWac.eejsDc.TWmIyd"; | |
| const deleteButtonSelector = 'button[aria-label="Delete"]'; | |
| const confirmationButtonSelector = '#yDmH0d > div.VfPpkd-Sx9Kwc.cC1eCc.UDxLd.PzCPDd.V639qd.bvQPzd.oEOLpc.A9Uzve.VfPpkd-Sx9Kwc-OWXEXe-FNFY6c > div.VfPpkd-wzTsW.O4g5Md.iWO5td > div > div.VfPpkd-cnG4Wd.m5OsGf > div > div.VfPpkd-T0kwCb.IdSMxc > button.VfPpkd-LgbsSe.VfPpkd-LgbsSe-OWXEXe-k8QpJ.nCP5yc.AjY5Oe.LQeN7.kDryjd'; | |
| async function deleteGooglePhotos() { | |
| // Retrieves the current count of selected photos | |
| const getCount = () => { |
| (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] |
| (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])) |
| # 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; |
| # 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 |
| require 'mail' | |
| require 'thread' | |
| require 'parallel' | |
| require 'benchmark' | |
| Mail.defaults do | |
| delivery_method :smtp, options | |
| end |
I hereby claim:
To claim this, I am signing this object:
| (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] |
| (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 |
| (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) |