Return to seqimage.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / src / lib

BSD 4.3

#	SEQIMAGE(2)
#
#	Image of Result Sequence
#
#	Ralph E. Griswold
#
#	Last modified 7/29/84
#

procedure Seqimage(a)
   local seq, result, i
   seq := ""
   i := @a[2]
   while result := image(@a[1]) do
      if *a[1] > \i then {
         seq ||:= ", ..."
         break
         }
      else seq ||:= ", " || result
   return "{" || seq[3:0] || "}" | "{}"
end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.