Tcl/Tk

Aliases: Tcl Tk, Tool Command Language/Toolkit

Provenance: commit 45f8649731 · authored 2026-03-17T02:03:33+01:00 · agent claude-code · model claude-sonnet-4-6

1 source · not in taxonomy (canonical name didn't match any upstream)

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.

proc fibonacci {n} {
    if {$n <= 1} {
        return $n
    }
    set a 0
    set b 1
    for {set i 2} {$i <= $n} {incr i} {
        set c [expr {$a + $b}]
        set a $b
        set b $c
    }
    return $b
}

for {set i 0} {$i <= 10} {incr i} {
    puts "fib($i) = [fibonacci $i]"
}