Commit 627dec68 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2004-04-13 11:04:17 by afrisch] CDuce quine

Original author: afrisch
Date: 2004-04-13 11:04:17+00:00
parent 245a94dd
let data = "
print ['let data = ##' !data '## in'];
let fun f (Latin1 -> Latin1)
| [ '#' '#'; s ] -> [ '##'; f s ]
| [ c; s ] -> [ c; f s ]
| [] -> [] in
print (f data)
" in
print ['let data = "' !data '" in'];
let fun f (Latin1 -> Latin1)
| [ '#' '#'; s ] -> [ '"'; f s ]
| [ c; s ] -> [ c; f s ]
| [] -> [] in
print (f data)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment