Re: simple question

Article View: comp.lang.prolog

Article #1937

#1937

From: Feliks Kluzniak
Date: Thu, 21 Mar 1991 12:34

37 lines
1159 bytes

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.

Technical Details

Message-ID: <1991Mar21.123425.3405@ida.liu.se>

Path:

arc1-ca.pugleaf.net!utzoo!utgpu!news-server.csri.toronto.edu!rpi!usc!ucsd!ucbvax!bloom-beacon!eru!hagbard!sunic!liuida!aste16!felkl

References: <WAYNE.91Mar19112927@offa.cs.odu.edu> <1991Mar20.225013.21372@comp.vuw.ac.nz>

Show Full Headers

Complete Article Headers

Path: arc1-ca.pugleaf.net!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

Reply to Parent Message