1 files changed, 36 insertions, 0 deletions
diff --git a/ipl/progs/ll.icn b/ipl/progs/ll.icn
new file mode 100644
index 0000000..df77759
--- /dev/null
+++ b/ipl/progs/ll.icn
@@ -0,0 +1,36 @@
+############################################################################
+#
+#	File:     ll.icn
+#
+#	Subject:  Program to list shortest and longest lines in a file
+#
+#	Author:   Ralph E. Griswold
+#
+#	Date:     June 12, 1999
+#
+############################################################################
+#
+#  This file is in the public domain.
+#
+############################################################################
+#
+#  This program reads a file from standard input and writes out the
+#  lengths of the shortest and longest lines in it.
+#
+############################################################################
+
+procedure main()
+   local length, max, min
+
+   max := 0
+   min := 2 ^ 31			#  good enough ...
+
+   while length := *read() do {
+      max <:= length
+      min >:= length
+      }
+
+   write(min)
+   write(max)
+
+end