I hereby claim:
- I am mpereira on github.
- I am mpereira (https://keybase.io/mpereira) on keybase.
- I have a public key ASAHgSmrszkAjxvPMl61bIufRbebQcVJlv-w4tnSSwmQlgo
To claim this, I am signing this object:
| import json | |
| import os | |
| import urllib.parse | |
| import requests | |
| WEBSCRAPERAPI_BASE_URL = "https://api.webscraperapi.ai/v1/scrape" | |
| def scrape(url: str, prompt: str, narrowing_css_selector: str) -> requests.Response: |
| import type { Root, Parent, Data } from "mdast"; | |
| import { visit } from "unist-util-visit"; | |
| import { mdastHeadingToString } from "app/lib/headingToString"; | |
| import slugify from "app/lib/slugify"; | |
| export default function remarkHeadingIdsToSectionIds() { | |
| return (tree: Root) => { | |
| visit(tree, "heading", (node: Parent, _index, parent: Parent) => { | |
| if (parent.type === "section") { |
| Error: While constructing the build plan, the following exceptions were encountered: | |
| In the dependencies for purescript-0.14.0: | |
| Cabal-3.2.1.0 from stack configuration does not match >=2.2 && <3.0 (latest matching version is 2.4.1.0) | |
| Glob-0.10.1 from stack configuration does not match ==0.9.* (latest matching version is 0.9.3) | |
| aeson-1.5.6.0 from stack configuration does not match >=1.0 && <1.5 (latest matching version is 1.4.7.1) | |
| ansi-terminal-0.10.3 from stack configuration does not match >=0.7.1 && <0.9 (latest matching version is 0.8.2) | |
| base-4.14.1.0 from stack configuration does not match >=4.11 && <4.13 (latest matching version is 4.12.0.0) | |
| base-compat-0.11.2 from stack configuration does not match >=0.6.0 && <0.11 (latest matching version is 0.10.5) | |
| clock-0.8 from stack configuration does not match <0.8 (latest matching version is 0.7.2) |
| (defun make-uuid () | |
| "Return a UUID and make it the latest kill in the kill ring." | |
| (interactive) | |
| (kill-new (format "%04x%04x-%04x-%04x-%04x-%06x%06x" | |
| (random (expt 16 4)) | |
| (random (expt 16 4)) | |
| (random (expt 16 4)) | |
| (random (expt 16 4)) | |
| (random (expt 16 4)) | |
| (random (expt 16 6)) |
I hereby claim:
To claim this, I am signing this object:
| (defn split-by | |
| "Splits coll by pred. Returns a vector with a vector where (pred item) returns | |
| true followed by a vector where (pred item) returns false. | |
| Example: | |
| (split-by pos? [0 1 2 -1 3 -2 4 -3]) | |
| => [[1 2 3 4] [0 -1 -2 -3]]" | |
| [pred coll] | |
| (reduce (fn [split item] | |
| (update split (if (pred item) 0 1) conj item)) |
| (defn substring-offsets | |
| "Returns a seq of [start end] offsets for substrings in s." | |
| [s substring] | |
| (when-not (empty? substring) | |
| (let [s (.toLowerCase s) | |
| substring (.toLowerCase substring) | |
| s-length (count s) | |
| substring-length (count substring)] | |
| (loop [offset 0 | |
| offsets nil] |
| function merge(xs, leftStart, leftEnd, rightStart, rightEnd) { | |
| var i = leftStart; | |
| var j = rightStart; | |
| var merged = []; | |
| var currentLeft, currentRight; | |
| // Merge. | |
| while (i <= leftEnd || j <= rightEnd) { | |
| currentLeft = xs[i]; | |
| currentRight = xs[j]; |
| (defn find-pairs-sum-equal-k [xs k] | |
| (let [x-indices (into {} (map-indexed (fn [idx x] [x idx]) xs))] | |
| (keep (fn [[x idx]] | |
| (if-let [x-complement-idx (get x-indices (- k x))] | |
| (when (not= idx x-complement-idx) | |
| [x (- k x)]))) | |
| x-indices))) | |
| (find-pairs-sum-equal-k (range 0 20) 12) | |
| ;; => ([0 12] [7 5] [1 11] [4 8] [3 9] [12 0] [2 10] [11 1] [9 3] [5 7] [10 2] [8 4]) |