Add Quine in Tcl (#5076)

pascalecu · web-flow · commit 27464e9a5ab4 · 2025-10-09T13:02:49.000-05:00
diff --git a/archive/t/tcl/quine.tcl b/archive/t/tcl/quine.tcl
@@ -0,0 +1 @@
+proc q {} {foreach {p a} [info level 0] {puts "[list proc $p $a [info body $p]];$p"}};q

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1 @@`
	`1`	`+proc q {} {foreach {p a} [info level 0] {puts "[list proc $p $a [info body $p]];$p"}};q`