micmarsh

DROP TABLE test_notes;
DROP TABLE billing_discount_notes;
drop table billing_notes;
DROP TABLE billing_discounts;

CREATE TABLE billing_notes (
     id SERIAL PRIMARY KEY,
     note text,
     created TIMESTAMP WITHOUT TIME ZONE,
     updated TIMESTAMP WITHOUT TIME ZONE

micmarsh

(defn rand-int'
  ([seed] (rand-int' seed Integer/MAX_VALUE))
  ([seed upper] (rand-int' seed 0 upper))
  ([seed upper min]
   (-> (hash seed)
       (Math/abs)
       (mod (- upper min))
       (+ min)
       (dec))))

micmarsh

// Requires LanguageExt V5

using LanguageExt;
using LanguageExt.Traits;

namespace Kleisli;

public readonly record struct Kleisli<M, A, B>(Func<A, K<M, B>> Invoke) : K<Kleisli<M, A>, B>, K<CoKleisli<M, B>, A>
    where M : Monad<M>
{

micmarsh

Thanks AI!

I got this email:

Rich,

Your creation of Clojure ...

sycophantic blather worthy of a third grader's homework assignment to write a letter to a public figure you don't know, using sources you don't understand, to express an emotion unfelt, with no intention whatsoever >