I hereby claim:
- I am 0rca on github.
- I am 0rca (https://keybase.io/0rca) on keybase.
- I have a public key ASCwtu6-85S-997AZug0oK5Ms1OI6-ASPPixi7nRXbGH5wo
To claim this, I am signing this object:
| if which rbenv > /dev/null; then eval "$(rbenv init - --no-rehash)"; fi |
| alias vpn='while true; do ssh -N -D 127.0.0.1:1080 yoursitenamehere.com; done' |
| (defn numseq [] | |
| (->> (range) (map inc) (map #(.toString %)) (map seq) (flatten))) | |
| (defn positions-of [el s] | |
| (let [el' (-> el .toString seq)] | |
| (->> s | |
| (partition (count el') 1) | |
| (map-indexed vector) | |
| (filter (fn [[i x]] (= x el'))) | |
| (map (comp inc first))))) |
| import Data.List | |
| numseq = concatMap show [1..] | |
| findFirst a = fmap (+ 1) $ findIndex (isPrefixOf a) (tails xs) where | |
| xs = numseq |
| module NewModule2 where | |
| import Data.List.Split | |
| --Написать функцию parts, которая для данного списка проверяет, можно ли его разбить | |
| --на несколько строго возрастающих кусков одинаковой длины. | |
| -- | |
| --Длина кусков должна быть не меньше 2. Кусок может быть и только один. | |
| #!/usr/bin/env stack --silent runhaskell | |
| {-# LANGUAGE OverloadedStrings #-} | |
| import Console.Options | |
| import Turtle | |
| import Data.Text hiding (empty) | |
| main = defaultMain $ do | |
| programName "cli" | |
| programDescription "personal CLI utilities" |
| // Place your settings in this file to overwrite the default settings | |
| { | |
| // "elm-format.formatOnSave": true, | |
| "extensions.autoUpdate": true, | |
| "files.trimTrailingWhitespace": true, | |
| "files.insertFinalNewline": true, | |
| "[elixir]": { |
I hereby claim:
To claim this, I am signing this object: