joinr

(ns puzzle
  (:require [clojure.core.logic :as l]))
;; At the dinner party were Lady Winslow, Doctor Marcolla, Countess Contee, Madam
;; Natsiou, and Baroness Finch.

;; The women sat in a row. They all wore different colors and [Doctor Marcolla] wore a
;; jaunty [white] hat. [Natsiou] was at the far left, next to the guest wearing
;; a [red] jacket. The lady in [blue] sat left of someone in [purple]. I remember
;; that [blue] outfit because the woman spilled her [rum] all over it. The
;; traveler from [dabrovka] was dressed entirely in [green]. When one of the dinner

joinr

(ns demo
  (:require [fancyclass :as fancy :refer [derives?]]))

(defprotocol SomeParentType)
(fancy/derived-type CustomMap [SomeParentType :base/map :arbitrary/tag])

;; demo> (def m (->CustomMap :name "Bilbo" :occupation "Burglar"))
;; #'demo/m
;; demo> m
;; {:occupation "Burglar", :name "Bilbo"}

joinr

(ns util
  (:refer-clojure :exclude [pmap])
  (:require [clojure.core.async :as async]))

(defn chan? [x]
  (instance? clojure.core.async.impl.channels.ManyToManyChannel x))

(defn guess-physical-cores
  "Hueristic used to account for likely prevalent
   hyperthreading influencing the supposed available

joinr

;;performance opts by joinr
;;running openjdk 1.8 because reasons, bumped clojure dep to 1.11.1
(ns thanassis.hexspeakfast
  (:gen-class))

(set! *warn-on-reflection* true)
(set! *unchecked-math* :warn-on-boxed)

(defn slength ^long [^String x] (.length x))

joinr

{:reitit.core/match
 #reitit.core.Match{:template "/test2", :data {:handler #function[rental.routes.home/home-routes/fn--30830]},
                    :result
                    #reitit.ring.Methods{:get #reitit.ring.Endpoint{:data {:handler #function[rental.routes.home/home-routes/fn--30830]},
                                                                    :handler #function[rental.routes.home/home-routes/fn--30830],
                                                                    :path "/test2", :method :get, :middleware []},
                                         :head #reitit.ring.Endpoint{:data {:handler #function[rental.routes.home/home-routes/fn--30830]},
                                                                     :handler #function[rental.routes.home/home-routes/fn--30830],
                                                                     :path "/test2", :method :head, :middleware []},
                                         :post #reitit.ring.Endpoint{:data {:handler #function[r

joinr

Clojure Setup With SpaceMacs + Clojure Layer (Ubuntu)

We will use spacemacs as our editor here, although I choose to follow the emacs route for setup (spacemacs offers an alternative vim mode that many people like. We also set things up with leiningen. For an alternate guide that goes more in depth with tooling, and follows the vim/spacemacs conventions see practicalli spacemacs.

update

sudo apt-get update

joinr

(require '[clj-java-decompiler.core :refer [decompile disassemble]])
(require '[primitive-math])
(set! *warn-on-reflection* true)
(set! *unchecked-math* :warn-on-boxed)

(decompile
 (fn []
   (let [xs (int-array 10)
         idx 0]
     (aset xs idx 0))))

joinr

diff --git a/gamedata/lua/lua/sim/Profiler.lua b/gamedata/lua/lua/sim/Profiler.lua
index 89ef924..d3d106d 100644
--- a/gamedata/lua/lua/sim/Profiler.lua
+++ b/gamedata/lua/lua/sim/Profiler.lua
@@ -22,12 +22,25 @@ local thread = false
 --- Data that we send over to the UI
 local data = CreateEmptyProfilerTable()
 
+--  change:
+

joinr

lua/platoon.lua

Exploring coarse pathfinding code.

PlatoonGenerateSafePathToLOUD

Many internally lifted (e.g. local) functions here designed to leverage cached information from navgraphs and previous static path computations to prevent submitting path requests to the engine.

joinr

(ns transducertest
  (:require [tech.v3.dataset :as ds]
            [clojure.core.reducers :as r]))

(def d (ds/->dataset {:a [1 2 3] :b [:foo :bar :baz]}))


(defprotocol ITransposable
  (-row-major    [obj])
  (-column-major [obj]))