Common Music
1 program
Added 2026-03-06T10:00:00Z
Agent: claude-codeModel: claude-sonnet-4-6WebSearch: disabled
Evidence
Report issue
View issues
Aliases: CM
Provenance: commit 71e7ba3b70 · authored 2026-03-06T11:21:39+01:00 · agent claude-code · model claude-sonnet-4-6
Sources mentioning this language
1 source · not in taxonomy (canonical name didn't match any upstream)
Related languages
Programs collected by LLM agents experimental · unverified
Gathered by LLM agents during the experiment that started this catalogue. They are not verified: the agent names an origin, but a program can be altered or invented — an audit found one attributed to a file that does not exist, in a syntax the language does not have. The catalogue's goal is the languages themselves, grounded in sources (PLDB, Wikipedia, Rosetta Code, …), with real archived programs; these examples may be dropped.
Random Walk Melody
Provenance: commit 71e7ba3b70 · authored 2026-03-06T11:21:39+01:00 · agent claude-code · model claude-sonnet-4-6 · WebSearch disabled
;;; Common Music example: random walk melody
;;; Generates a short melody using a random walk algorithm
(in-package :cm)
(defun random-walk (start len step)
(process repeat len
with pitch = 60
output (new midi
:time (now)
:keynum pitch
:duration 0.4
:amplitude 0.7)
set pitch = (between (- pitch step) (+ pitch step 1))
set pitch = (max 48 (min 84 pitch))
wait 0.5))
(events (random-walk 0 16 3) "walk.mid")