johesoman

#!/usr/bin/env bash

npx shadow-cljs compile run-one-test && node ./target/run-one-test.js $@

johesoman

(ns route.core
  (:require [clojure.string :as string]))

(defn map-vals [f m]
  (into {} (map (fn [[k v]] [k (f v)]) m)))

(defn split-path [path]
  (let [sub-paths (string/split path #"/")]
    (if (= (first sub-paths) "")
      (rest sub-paths)

johesoman

# node
node_modules
build

# VS Code
.vscode

# Mac
.DS_Store

johesoman

module RecursiveBacktrackerMazeGenerator

// ++++++++++
// + Random +
// ++++++++++

module Random =
  let _rng = new System.Random()

  let nextInt lo hi = _rng.Next(lo, hi)

johesoman

use std::iter::FromIterator;
use std::iter::Iterator;
use std::cmp::min;
use std::cmp::Ord;

#[derive(Debug)]
#[derive(Clone)]
pub enum Edit{
  Delete,
  Insert,

johesoman

fn partition<T, F>(elems: &mut [T], pred: F ) -> usize
    where F: Fn(&T) -> bool
{
    let mut i = 0;
       
    for j in 0 .. elems.len(){
        if pred(&elems[j]) {
            elems.swap(i, j);
            i += 1;
        }

johesoman

module SuffixArray

open System

// ++++++++
// + util +
// ++++++++

let time f =
  let t = new Diagnostics.Stopwatch()

johesoman

module StreamFizzBuzz

// Infinite stream of positive integers starting at 1.
let nums = Seq.initInfinite ((+) 1)

// Infinite stream of boolean literals, every fifth literal is true.
let buzzes = seq {while true do yield! [false; false; false; false; true]}

// Infinite stream of boolean literals, every third literal is true.
let fizzes = seq {while true do yield! [false; false; true]}

johesoman

use std::fs::File;
use std::fmt::Write as W;
use std::os::unix::io::{FromRawFd, IntoRawFd};
use std::io::{BufRead, BufReader, BufWriter, Write};

// ++++++++++++++
// + IO helpers +
// ++++++++++++++

macro_rules! scan {