File: quine

package info (click to toggle)
picolisp 3.1.0.7-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 4,100 kB
  • sloc: ansic: 14,205; lisp: 795; makefile: 290; sh: 13
file content (24 lines) | stat: -rw-r--r-- 456 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
With lambda (= 'quote'):
   : ('((X) (list (lit X) (lit X))) '((X) (list (lit X) (lit X))))
   -> ('((X) (list (lit X) (lit X))) '((X) (list (lit X) (lit X))))


With 'let':
   : (let X '(list 'let 'X (lit X) X) (list 'let 'X (lit X) X))
   -> (let X '(list 'let 'X (lit X) X) (list 'let 'X (lit X) X))


Cheating:
   : (de quine NIL
      (pp 'quine) )
   -> quine

   : (quine)
   (de quine NIL
      (pp 'quine) )
   -> quine


Succinct:
   : T
   -> T