diff options
Diffstat (limited to 'ipl/progs/unique.icn')
| -rw-r--r-- | ipl/progs/unique.icn | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/ipl/progs/unique.icn b/ipl/progs/unique.icn new file mode 100644 index 0000000..edfc2d3 --- /dev/null +++ b/ipl/progs/unique.icn @@ -0,0 +1,26 @@ +############################################################################ +# +# File: unique.icn +# +# Subject: Program to delete identical adjacent lines +# +# Author: Anthony V. Hewitt, modified by Bob Alexander +# +# Date: October 21, 1991 +# +############################################################################ +# +# This file is in the public domain. +# +############################################################################ +# +# Filters out identical adjacent lines in a file. +# +############################################################################ + +procedure main() + local s + + every write(s ~===:= !&input) + +end |