doc-src/Tutorial/Recdef/sep2
changeset 15338 08519594b0e4
parent 15337 628d87767434
child 15339 a7b603bbc1e6
--- a/doc-src/Tutorial/Recdef/sep2	Mon Nov 29 11:12:19 2004 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,4 +0,0 @@
-consts sep :: 'a list => 'a => 'a list
-recdef sep "measure length"
-  "sep (x#y#zs) = (%a. x # a # sep zs a)"
-  "sep xs       = (%a. xs)"