Smalltalk Quine

Um quine em Smalltalk:

| prog quote |
quote := Character value: 39.
prog := '| prog quote |
quote := Character value: 39.
prog := .
Transcript show: (prog copyFrom: 1 to: 53).
Transcript show: quote asString; show: prog; show: quote asString.
Transcript show: (prog copyFrom: 54 to: 212).
'.
Transcript show: (prog copyFrom: 1 to: 53).
Transcript show: quote asString; show: prog; show: quote asString.
Transcript show: (prog copyFrom: 54 to: 212).

Fonte: http://www.nyx.net/~gthompso/self_smalltalk.txt

Links relacionados:

• Quine na Wikipedia

Quines (self-replicating programs)

Quines em várias linguagens

• O menor quine em Ruby