diff options
Diffstat (limited to 'sucl/basic.icl')
| -rw-r--r-- | sucl/basic.icl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/sucl/basic.icl b/sucl/basic.icl index aa78e19..e6beaa0 100644 --- a/sucl/basic.icl +++ b/sucl/basic.icl @@ -323,3 +323,9 @@ zipwith f xs ys = [f x y \\ x<-xs & y<-ys] (writeList) file [] = file (writeList) file [x:xs] = file <<< x <<< nl writeList xs + +printlist :: (elem->String) String [elem] *File -> .File +printlist showelem indent [] file += file +printlist showelem indent [x:xs] file += printlist showelem indent xs (file <<< indent <<< showelem x <<< nl) |