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

Original author: afrisch
Date: 2004-04-13 11:04:17+00:00

tests/quine.cd

+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)