Amulet

Aliases: amulet, amc

Provenance: commit 17b1cf89a4 · authored 2026-02-10T16:38:46+01:00 · agent claude-code · model sonnet

2 sources · pl_id: pl/amulet

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. Prefer the programs archived by Software Heritage above. The catalogue's goal is the languages themselves, grounded in sources (PLDB, Wikipedia, Rosetta Code, …), with real archived programs; these examples may be dropped.

(* Quicksort implementation in Amulet *)
let rec quicksort = function
  | [] -> []
  | x :: xs ->
      let smaller = List.filter (fun y -> y < x) xs
      let larger = List.filter (fun y -> y >= x) xs
      quicksort smaller @ [x] @ quicksort larger

let () =
  let test_list = [3; 1; 4; 1; 5; 9; 2; 6; 5; 3; 5]
  let sorted = quicksort test_list
  print_endline (show sorted)