I'm no Steve Wampler, but I had a go at option (c), the loosest.
set difference does the work.
procedure main(a)
thechars := cset(a[1]) | stop("No characters found; the word \"\"
is made of no characters")
thewords := open(a[2],'r') | stop("No words to test. Is the file
valid?")
every aword := !thewords do {
charsofaword := cset(aword)
if (*(charsofaword -- thechars) = 0) then write(aword)
}
end
On 24/03/2017 16:26, Steve Wampler wrote:
> On 03/24/2017 08:50 AM, Steve Graham wrote:
>> Programming Praxis <https://programmingpraxis.com/>
>
> I put one out there, using one interpretation of the problem.
>
>
------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
Unicon-group mailing list
Unicon-group@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/unicon-group
