Posted to tcl by lmcvoy at Tue Nov 13 02:05:57 GMT 2007view raw

  1. doit()
  2. {
  3. string buf;
  4. hash h;
  5.  
  6. while (gets("stdin", &buf) >= 0) {
  7. h{buf} = 1;
  8. }
  9. }
  10.  
  11. main()
  12. {
  13. doit();
  14. }
  15.