home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / exoten / dos_tx / unique.icn < prev   
Encoding:
Text File  |  1991-10-29  |  585 b   |  16 lines
  1. #----------------------------------------------------------#
  2. #                      UNIQUE.ICN                          #
  3. #    Entfernen aufeinanderfolgender identischer Zeilen.    #
  4. #             (C) 1991 R. Fischer & DMV-Verlag             #
  5. #              Algorithmus von Anthony Hewitt              #
  6. #----------------------------------------------------------#
  7.  
  8. procedure main()
  9.      write(s:=!&input)
  10.      every write(s ~==:= !&input)
  11. end
  12.  
  13. #----------------------------------------------------------#
  14. #                  Ende von UNIQUE.ICN                     #
  15.  
  16.