alexander-yakushev

%% Copyright 2020 Alexander Yakushev
%
% This work may be distributed and/or modified under the
% conditions of the LaTeX Project Public License, either version 1.3
% of this license or (at your option) any later version.
% The latest version of this license is in
%   http://www.latex-project.org/lppl.txt
% and version 1.3 or later is part of all distributions of LaTeX
% version 2005/12/01 or later.
%

alexander-yakushev

(ns day12
  (:require [clojure.string :as str]
            [clojure.java.io :as io]))

(def lines (line-seq (io/reader "2023/day12.txt")))

(defn parse [task]
  (for [line lines]
    (let [[field hints] (str/split line #" ")]
      (case task

alexander-yakushev

(ns day7
  (:require [clojure.string :as str]
            [clojure.java.io :as io]))

(def lines  (vec (line-seq (io/reader "day7.txt"))))

(defn parse [task]
  (for [line lines]
    (let [[hand bid] (str/split line #" " )]
      [(mapv #(case %

alexander-yakushev

(ns day6
  (:require [clojure.string :as str]))

(defn parse [task]
  (->> (line-seq (io/reader "2023/day6.txt"))
       (map #(map parse-long
                  (re-seq #"\d+" (case task
                                   1 %
                                   2 (str/replace % #" " "")))))))

alexander-yakushev

(ns day5
  (:require [clojure.java.io :as io]))

(def lines (vec (line-seq (io/reader "2023/day5.txt"))))

(defn parse [task]
  (let [seeds (mapv parse-long (re-seq #"\d+" (first lines)))
        seeds (case task
                1 seeds
                2 (->> (partition 2 seeds)

alexander-yakushev

(ns day4
  (:require [clojure.set :as set]
            [clojure.java.io :as io]))

(def lines (vec (line-seq (io/reader "2023/day4.txt"))))

(defn parse []
  (for [line lines]
    (let [[winning guessed] (str/split line #"\|")
          [game & winning] (map parse-long (re-seq #"\d+" winning))

alexander-yakushev

;; Didn't know yet that there is a special syntax to make regexes overlapping. Got angry and wrote this.

(require '[clojure.string :as str])

(def digits (->> ["one" "two" "three" "four" "five" "six" "seven" "eight" "nine"]
                 (map-indexed (fn [i w] [w (str (inc i))]))
                 (into {})))

(def rx (re-pattern (str/join "|" (conj (keys digits) "[0-9]"))))
(def rx-rev (re-pattern (str/join "|" (conj (map str/reverse (keys digits)) "[0-9]"))))

alexander-yakushev

{:deps {org.clojure/clojure {:mvn/version "1.12.0-alpha3"}}

 :aliases {:dev {:extra-deps
                 {com.clojure-goes-fast/clj-async-profiler   {:mvn/version "1.0.4"}
                  com.clojure-goes-fast/clj-java-decompiler  {:mvn/version "0.3.4"}
                  com.clojure-goes-fast/clj-memory-meter     {:mvn/version "0.3.0"}}

                 :jvm-opts ["-Djdk.attach.allowAttachSelf"
                            "-XX:+UseG1GC"
                            "-XX:-OmitStackTraceInFastThrow"

alexander-yakushev

(ns ray-tracer
  (:import java.util.List
           java.awt.Color
           java.awt.image.BufferedImage
           javax.imageio.ImageIO
           java.io.File))

(alter-var-root  #'*compiler-options* (constantly {:direct-linking true}) )
(set! *unchecked-math* :warn-on-boxed)

alexander-yakushev

-- Asynchronous io.popen for Awesome WM.
-- How to use...
-- ...asynchronously:
-- asyncshell.request('wscript -Kiev', function(f) wwidget.text = f:read("*l") end)
-- ...synchronously
-- wwidget.text = asyncshell.demand('wscript -Kiev', 5):read("*l") or "Error"

local awful = require('awful')

asyncshell = {}