matthewdowney

/// Doubly-linked list that, instead of pointers, uses handles, which are indices
/// into an object pool.
struct LinkedList<T> {
    head: Option<LinkedListNodeHandle>,
    tail: Option<LinkedListNodeHandle>,
    pool: ObjectPool<LinkedListNode<T>>,
}

struct LinkedListNode<T> {
    data: T,

matthewdowney

// Conditional extern definitions for Linux/Android
#[cfg(any(target_os = "linux", target_os = "android"))]
#[link(name = "c")]
unsafe extern "C" {
    fn mmap(addr: *mut u8, len: usize, prot: i32, flags: i32, fd: i32, offset: i64) -> *mut u8;
    fn __errno_location() -> *const i32;
    fn lseek(fd: i32, offset: i64, whence: i32) -> i64;
    fn open(path: *const u8, oflag: i32) -> i32;
}

matthewdowney

(ns micrograd
  "autograd engine for scalar values and operations in the style of

    https://github.com/karpathy/micrograd

  but with immutable values.")

; Wrap a scalar `data` with some additional context
(defrecord Value [data grad children op op-deriv])

matthewdowney

(ns deploy
  (:require [clojure.java.io :as io])
  (:import (software.amazon.awscdk App CfnOutput$Builder Stack)
           (software.amazon.awscdk.services.apigatewayv2.alpha AddRoutesOptions HttpApi$Builder HttpMethod)
           (software.amazon.awscdk.services.apigatewayv2.authorizers.alpha HttpIamAuthorizer)
           (software.amazon.awscdk.services.apigatewayv2.integrations.alpha HttpAlbIntegration)
           (software.amazon.awscdk.services.ec2 Vpc$Builder)
           (software.amazon.awscdk.services.ecs Cluster$Builder ContainerImage)
           (software.amazon.awscdk.services.ecs.patterns ApplicationLoadBalancedFargateService$Builder ApplicationLoadBalancedTaskImageOptions)
           (software.amazon.awscdk.services.iam AnyPrincipal)

matthewdowney

;;; Transducers, but with state stored inside the "result" instead of in atoms 
;;; / volatiles.

(defn map1 [f]
  (fn [[rf idx]]
    [(fn
       ([] (rf))
       ([result] (rf result))
       ([result input] (rf result (f input))))
     (inc idx)]))

matthewdowney

#!/usr/bin/env bb
; =========================================================================== ;
;           FILE:  hack-captive-portal.bb                                     ;
;          USAGE:  sudo bb hack-captive-portal.bb                             ;
;                                                                             ;
;    DESCRIPTION:  This script helps to pass through the captive portals in   ;
;                  public Wi-Fi networks. It hijacks IP and MAC from somebody ;
;                  who is already connected and authorized on captive portal. ;
;                  Tested in Ubuntu 16.04 with different captive portals in   ;
;                  airports and hotels all over the world.                    ;

matthewdowney

(ns stock-chart-example
  "Clojurescript + Reagent port of react-financial-charts StockChart.tsx
  candles example[1][2].

  Assumes a project generated via https://github.com/bhauman/figwheel-main-template
  with Reagent included, and https://github.com/react-financial/react-financial-charts
  required via https://figwheel.org/docs/npm.html.

  See also
   - The BasicCandlestick.tsx[3] example

matthewdowney

(ns deploy
  (:import (software.amazon.awscdk App CfnOutput$Builder Stack)
           (software.amazon.awscdk.services.apigatewayv2.alpha AddRoutesOptions HttpApi$Builder HttpMethod)
           (software.amazon.awscdk.services.apigatewayv2.authorizers.alpha HttpIamAuthorizer)
           (software.amazon.awscdk.services.apigatewayv2.integrations.alpha HttpAlbIntegration)
           (software.amazon.awscdk.services.ec2 Vpc$Builder)
           (software.amazon.awscdk.services.ecs Cluster$Builder ContainerImage)
           (software.amazon.awscdk.services.ecs.patterns ApplicationLoadBalancedFargateService$Builder ApplicationLoadBalancedTaskImageOptions)
           (software.amazon.awscdk.services.iam AnyPrincipal)))

matthewdowney

(ns env
  "Clojure hack to overwrite the JVM's System/getenv map for environment variables without touching the actual environment. Definitely not safe."
  (:import (java.util Collections Map)))

(defn -unsafe-set-env [new-env]
  (try
    (let [clazz (Class/forName "java.lang.ProcessEnvironment")]
      (doseq [field ["theEnvironment" "theCaseInsensitiveEnvironment"]]
        (let [env-field (doto (.getDeclaredField clazz field) (.setAccessible true))]
          (.putAll ^Map (.get env-field nil) new-env))))

matthewdowney

(defn poisson
  "Return a function that samples from a Poisson distribution using Knuth's
  algorithm[^1], given `lambda`, the expected number of occurrences per
  interval.

  [^1]: https://en.wikipedia.org/wiki/Poisson_distribution#Random_drawing_from_the_Poisson_distribution"
  ([lambda]
   (poisson lambda (Random.)))
  ([lambda ^Random r]
   (let [l (Math/exp (- lambda))]