Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!usc!ucsd!ucbvax!bloom-beacon!eru!hagbard!sunic!liuida!aste16!felkl
From: felkl@aste16.Berkeley.EDU (Feliks Kluzniak)
Newsgroups: comp.lang.prolog
Subject: Re: simple question
Message-ID: <1991Mar21.123425.3405@ida.liu.se>
Date: 21 Mar 91 12:34:25 GMT
References: <WAYNE.91Mar19112927@offa.cs.odu.edu> <1991Mar20.225013.21372@comp.vuw.ac.nz>
Sender: news@ida.liu.se (News Subsystem)
Reply-To: felkl@aste16.Berkeley.EDU (Feliks Kluzniak)
Organization: CIS Dept, Univ of Linkoping, Sweden
Lines: 37

The following seems even simpler:


writeln( String ):-
	write( String ),
	nl.

make_list:-
	writeln( 'Enter the vertices' ),      % spelling!
        read( Item ),
	get_list( Item, List ),
	write( List ).


get_list( Item, [ Item | RestOfItems ] ):-
        Item \== end,
        writeln( 'Another one (or end)...' ),
	read( NextItem ),
	get_list( NextItem, RestOfItems ).

get_list( end, [] ).


| ?- make_list.
Enter the vertices
|: one.
Another one (or end)...
|: two.
Another one (or end)...
|: V.
Another one (or end)...
|: end.
[one,two,_141]
yes


-- F.