Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!tut.cis.ohio-state.edu!ucbvax!naucse.UUCP!sbw
From: sbw@naucse.UUCP (Steve Wampler)
Newsgroups: comp.lang.icon
Subject: Re:  criticism of icon
Message-ID: <8909081853.AA12663@naucse>
Date: 8 Sep 89 18:53:29 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Distribution: inet
Organization: The Internet
Lines: 22

On Sep 8 at 11:42, William Griswold writes:
} 		then { /words[line[i:j]] := set()        #line 14
} 	              insert(words[line[i:j]],line_no)    #line 17
}                      }
} 
} It may not be automatic, but it is only one line longer than the solution
} you'd like to have.  You can actually do it in one line, but it isn't
} pretty.
} 
Is too:

		words[line[i:j]] := insert(\words[line[i:j]]|set(), line_no)

well, maybe if we do the assignment:  word := line[i:j] first, then:

		words[word] := insert(\words[word]|set(), line_no)

well, maybe if... nevermind.

-- 
	Steve Wampler
	{....!arizona!naucse!sbw}