home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / ANSWERS.ARC / ANS_192B.PRO < prev    next >
Encoding:
Prolog Source  |  1988-06-21  |  811 b   |  33 lines
  1. /*
  2.    Turbo Prolog 2.0, Answer to second Exercise on page 192.
  3.    
  4.    Copyright (c) 1986, 88 by Borland International, Inc
  5. */
  6.  
  7. Domains
  8.   integerlist = integer*
  9.  
  10. Predicates
  11.   sum_of ( integerlist, integer )  
  12.   get_integer_list ( integerlist )
  13.  
  14. Clauses
  15.   sum_of([], 0) :- !.
  16.   sum_of([Num|T], Sum) :-
  17.       sum_of(T, Sum_of_tail) ,
  18.       Sum = Num + Sum_of_tail.
  19.       
  20.   get_integer_list([H|T]) :-
  21.       write("Enter an integer: ") ,
  22.       readint(H), ! ,
  23.       get_integer_list(T).
  24.   get_integer_list([]).
  25.  
  26. Goal
  27.   makewindow(1,2,3," Sum of an Integerlist ",0,0,25,80) ,
  28.   write("Please enter the integers which you wish to sum.\n" ,
  29.         "  (Enter a non-integer to stop.)\n") ,
  30.   get_integer_list(List) ,
  31.   sum_of(List, Sum) ,
  32.   clearwindow ,
  33.   write("The sum of the list is: ",Sum,"\n").