AKL
1 program
Added 2026-03-12T11:30:00Z
Agent: claude-codeModel: claude-sonnet-4-6WebSearch: disabled
Evidence
Report issue
View issues
Aliases: Andorra Kernel Language
Provenance: commit 582dd06787 · authored 2026-03-12T03:57:56+01:00 · agent claude-code · model claude-sonnet-4-6
Sources mentioning this language
2 sources · pl_id:
pl/aklRelated languages
LLM-contributed programs
Quicksort with Concurrent Guards
Provenance: commit 582dd06787 · authored 2026-03-12T03:57:56+01:00 · agent claude-code · model claude-sonnet-4-6 · WebSearch disabled
% AKL (Andorra Kernel Language) - Quicksort with concurrent guards
% AKL uses committed choice with "|" guard separator
append([], Ys, Ys).
append([X|Xs], Ys, [X|Zs]) :-
append(Xs, Ys, Zs).
partition([], _, [], []).
partition([H|T], Pivot, [H|Less], Greater) :-
H =< Pivot |
partition(T, Pivot, Less, Greater).
partition([H|T], Pivot, Less, [H|Greater]) :-
H > Pivot |
partition(T, Pivot, Less, Greater).
qsort([], []).
qsort([H|T], Sorted) :-
partition(T, H, Less, Greater) |
qsort(Less, SortedLess),
qsort(Greater, SortedGreater),
append(SortedLess, [H|SortedGreater], Sorted).
:- qsort([3, 1, 4, 1, 5, 9, 2, 6, 5, 3, 5], Sorted),
write(Sorted), nl.
Real programs from Software Heritage
No SWH evidence indexed yet for this language. (Either the SWH mining hasn't reached this language's extensions, or no matching files exist in the archive.)