mourjo

#!/bin/sh

/Applications/Emacs.app/Contents/MacOS/bin/emacsclient -n "$@"

mourjo

Elixir/Erlang

Knowledge dump

1. Credo: Static analysis tool https://github.com/rrrene/credo
2. hackney: HTTP client https://github.com/benoitc/hackney
3. asdf: Version manager (for elixir and others) https://github.com/asdf-vm/asdf-elixir
4. Mix: Build tool for elixir https://elixir-lang.org/getting-started/mix-otp/introduction-to-mix.html
5. Poison JSON encoder tool https://github.com/devinus/poison

TIL

1. The order of the messages in the mailbox is always kept in the order they

mourjo

import * as nodeWorker from 'worker_threads';
function sleep(ms) {
    return new Promise((resolve) => {
        setTimeout(resolve, ms);
    });
}

async function doSomething(name) {
    console.log(`${Date.now()}: Worker ${name} working ...`);
    await sleep(Math.floor(10000));

mourjo

(defn prime?
  [x]
  (not-any? (fn [factor] (zero? (mod x factor)))
            (range 2 (dec x))))


(defn eager-primes
  ([n] (eager-primes n 2 []))
  ([n curr xs]
   (if (= n (count xs))

mourjo

import fs, { readFileSync } from 'fs';
import readline from 'readline';

const YEAR = '2021';

function infer(row) {
    const ts = row.match(/startDate=".*?"/g)[0].match(/.?.?.?.?-.?.?-.?.? .?.?:.?.?:.?.? .?.?.?.?.?/)[0]
    const dt = ts.substring(0, 10)
    if (dt.startsWith(YEAR)) {
        const unit = row.match(/unit=".*?"/)[0].match(/".?.?"/)[0].substring(1, 3)

mourjo

version: '2.2'
services:
  es01:
    image: docker.elastic.co/elasticsearch/elasticsearch:7.15.1
    container_name: es01
    environment:
      - node.name=es01
      - cluster.name=es-docker-cluster
      - discovery.type=single-node
      - bootstrap.memory_lock=true

mourjo

(ns plank.core
  (:import (java.util.regex Pattern)))


; Problem Statement: Write code to solve this problem 
; Given a set of news articles find articles that match the search query from a user.
; Assume that the search query is a single word.
;
; Each article has this structure: Id,Headline,Content
; Articles cannot be updated

mourjo

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Commentary                                                            ;;
;;                                                                       ;;
;; The goal for writing this started with the idea to have tests run in  ;;
;; parallel using the leiningen plugin eftest                            ;;
;; https://github.com/weavejester/eftest.                                ;;
;;                                                                       ;;
;; With tests using with-redefs, it was not possible to run them in      ;;
;; parallel if they were changing the root binding of the same           ;;
;; vars. Here, we are binding the root of the var to one function that   ;;

mourjo

(* For the original problem statement, check http://mourjo.me/klotski_problem.pdf *)

exception NotFound

type 'e rel = 'e -> 'e list
type 'e prop = 'e -> bool

type ('a, 'set) set_operations = {
  empty : 'set;              (* The empty set. *)
  mem : 'a -> 'set -> bool;  (* [mem x s = true] iff [x] is in [s]. *)

mourjo

package arraybackedqueue;

import java.util.LinkedList;
import java.util.Random;

public class Queue {
	private int head;
	private int tail;
	private int data[];