[ create a new paste ] login | about

Link: http://codepad.org/ZdGC2ZsK    [ raw code | output | fork ]

Tcl, pasted on Feb 20:
1
2
3
4
5
6
7
8
9
10
11
12
13
#! /usr/bin/env tclsh

proc Quine {} {
   puts {#! /usr/bin/env tclsh}
   puts {}
   puts -nonewline "proc Quine {} {"
   puts -nonewline [info body Quine]
   puts "}"
   puts ""
   puts "Quine"
 }

Quine


Output:
1
2
3
4
5
6
7
8
9
10
11
12
13
#! /usr/bin/env tclsh

proc Quine {} {
   puts {#! /usr/bin/env tclsh}
   puts {}
   puts -nonewline "proc Quine {} {"
   puts -nonewline [info body Quine]
   puts "}"
   puts ""
   puts "Quine"
 }

Quine


Create a new paste based on this one


Comments: