fasterthanlime

// Update 2025-05-22 — ported to rand v0.9, using a struct with Display impl rather than returning a string

struct MarineLine;

impl std::fmt::Display for MarineLine {
    fn fmt(&self, f: &mut std::fmt::Formatter<'_>) -> std::fmt::Result {
        use rand::{Rng, seq::IndexedRandom};

        let marine_life = ["🐳", "🐠", "🦈", "🐙", "🐡", "🐬", "🐟", "🦀", "🐋"];
        let water = [

brandonbloom

(ns blah
  (:require [com.walmartlabs.lacinia.schema :as schema]
            [com.walmartlabs.lacinia.util :refer [attach-resolvers]]
            [com.walmartlabs.lacinia :as lacinia]))

(defn batch [ctx id]
  (prn 'batch id)
  (swap! (::loader ctx)
         (fn [loader]
           (if (contains? (:cache loader) id)

leobm

(defn contextual-eval [ctx expr]
    (eval                                           
        `(let [~@(mapcat (fn [[k v]] [k `'~v]) ctx)] 
             ~expr)))
(defmacro local-context []
    (let [symbols (keys &env)]
        (zipmap (map (fn [sym] `(quote ~sym)) symbols) symbols)))
(defn readr [prompt exit-code]
    (let [input (clojure.main/repl-read prompt exit-code)]
        (if (= input ::tl)

daviesian

;; After connecting an nrepl client repl to an nrepl server, some
;; output will still appear on stdout from the server.

;; Try these snippets - they will both produce output on the nrepl server
;; Java libraries commonly do both these things.

(.println System/out "Hello stdout.")
(.start (Thread. #(println "Hello from a new thread.")))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

stuarthalloway

;; Datomic sample code
;; schema query for attribute types in specified namespaces

(q '[:find ?attr
     :in $ [?include-ns ...]                ;; bind ?include-ns once for each item in collection
     :where
     [?e :db/valueType]                     ;; all schema types (must have a valueType)
     [?e :db/ident ?attr]                   ;; schema type name
     [(datomic.Util/namespace ?attr) ?ns]   ;; namespace of name
     [(= ?ns ?include-ns)]]                 ;; must match one of the ?include-ns