1(define (inc n) (+ n 1))2(define (dec n) (- n 1))34(define (range upto)5 (if (zero? upto)6 '()7 (let ((i (dec upto)))8 (append (range i) (list i)))))
CHICKEN egg for controlling LEDs on the project 0001 keyboard
git clone https://git.8pit.net/corectl.git
1(define (inc n) (+ n 1))2(define (dec n) (- n 1))34(define (range upto)5 (if (zero? upto)6 '()7 (let ((i (dec upto)))8 (append (range i) (list i)))))