Packages

A set of OTP servers that faciliate live MIDI composition and performance

Current section

Files

Jump to
undermidi src um seq.lfe
Raw

src/um/seq.lfe

(defmodule um.seq
(export all))
(defun repeat (notes count)
(repeat notes count '()))
(defun repeat
((_ 0 acc)
acc)
((notes count acc)
(repeat notes (- count 1) (++ acc (list notes)))))
(defun play (device notes)
'tbd)