qexat

link to the haskell playground: https://play.haskell.org/saved/yrtNpW4Q

related:

• https://github.com/qexat-archive/over-the-type
• https://arxiv.org/html/2608.12409v2

qexat

// DISCLAIMER: this was generated by Gemini from Google AI mode
// works 2026-09-15

(async function clearMutedWords() {
  // Helper function to handle async waiting times
  const wait = (ms) => new Promise(resolve => setTimeout(resolve, ms));

  console.log("🚀 Starting removal process for all muted words...");

  while (true) {

qexat

type 'a t = Node of 'a * 'a t list

let get_value (Node (value, _)) = value
let get_children (Node (_, children)) = children

let traverse_breadth f tree =
  let rec traverse_breadth_acc queue acc =
    if List.is_empty queue
    then List.rev acc
    else

qexat

#!/usr/bin/env -S python -B

import argparse
import contextlib
import itertools
import math
import random
import sys
import warnings

qexat

#!/usr/bin/env -S python -B

import abc
import contextlib
import copy
import enum
import functools
import io
import os
import sys

qexat

(* typed stack machine! *)

let ( <*> ) f g x = f (g x)

type 'a ty =
  | Bool : bool ty
  | Int : int ty
  | String : string ty

type 'a value =

qexat

software I use

note: this is a living document.

this gist contains essential.txt, a (probably not exhaustive) list of software that I consider essential in the sense that I will not choose a linux distribution / operating system if its package repositories does not include all of these.

arch linux is an exception because of the existence of the AUR, however I would like to not use that repository at all.

this gist also contains extra.txt, a list of software that I can give up on, although it would make me very sad, and you don't want to make me sad do you :(

qexat

HOW TO MAKE ASCII ART (TWITCH EDITION)
================================================================
 1.  Save the image you want to transform into ASCII
 2.  Go to https://lachlanarthur.github.io/Braille-ASCII-Art/
 3.  Set width to 24 characters and Invert on
 4.  Copy the result
 5.  Replace newlines by spaces
================================================================

qexat

let ( let*? ) = Option.bind

let ( let|? ) opt fn =
  match opt with
  | None -> fn ()
  | Some value -> opt

let ( let@ ) = ( @@ )
let array_of_string s = Array.of_seq (String.to_seq s)

qexat

(* boilerplate *)
module type T = sig
  type t
end

module type INT = module type of Int

(* the goofy type *)
type 'a t = What of < value :  'a; ty : 'c > constraint 'c = (module T with type t = 'a)