kiranshila

(ns aoc2019.core)

;; Part 1
(defn fuel [mass]
  (- (int (Math/floor (/ mass 3))) 2))

;; Read File
(def input
  (->> (slurp "1.txt")
       clojure.string/split-lines

kiranshila

program = [parse(Int64,i) for i in split(readline("2.txt"),',')]

program[2] = 12
program[3] = 2

function runIntcode!(program,offset=1)
    # Step 1 - Get opcode
    opcode = program[offset]
    if opcode == 1
        # Add routine

kiranshila

(defmacro comprehension [binding & body]
  `(lazy-seq (map (fn [~(first binding)] ~@body) ~(second binding))))

kiranshila

Keybase proof

I hereby claim:

• I am kiranshila on github.
• I am kiranshila (https://keybase.io/kiranshila) on keybase.
• I have a public key whose fingerprint is 3543 5D6C 3513 E5F6 E4DB A128 91B5 B58D 98E0 3214

To claim this, I am signing this object:

kiranshila

Motivation

Recently, I have been playing around with the Esprit project which is an attempt to run ClojureScript on microcontrollers using the Espruino microcontroller-based JS interpreter. As per Mike's talk here, the real trick is to setup Espruino such that it has enough space to hold cljs.core and all your program code. This ends up at least around 900KB.

Now for those unfamiliar, the ESP32 is configured with a partition table - allocating different sections of memory to the program code, non-volatile storage, the bootloader, etc. These partitions can be arbitrarily resized. Additionally, one can make partitions that don't mean anything to the ESP32, but can yield pointers in the C code that help manage the separate parts of memory.

As modern ESP32s ship with TONS of flash, we want to make the partition that Espruino calls js_code as large as possible to take full advant

kiranshila

using DifferentialEquations
using BoundaryValueDiffEq
using DiffEqCallbacks
using ForwardDiff
using Plots

struct Material
    k_coefs::Vector
end

kiranshila

kiranshila

kiranshila

kiranshila

.PHONY : clean

CFLAGS  = -fPIC -O2
LDFLAGS = -shared

TARGET  = novas.so
SOURCES = solsys1.c readeph0.c eph_manager.c nutation.c novascon.c novas.c
OBJECTS = $(SOURCES:.c=.o)

all: $(TARGET)