Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Jun 17th, 2012  |  syntax: None  |  size: 1.49 KB  |  hits: 14  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. Predicate problem [closed]
  2. [a,b,c]
  3.  
  4. [1,2,3]
  5.        
  6. [a=1,b=2,c=3].
  7.        
  8. Thanks for your answers. I have a question about it. I write
  9.  
  10. start:- consult('tennis.pl'),
  11.             see('tennis.pl'),
  12.             repeat,
  13.             read(A),
  14.             A=..List,
  15.             (A=end_of_file->
  16.             (A=end_of_file,member('attributes',List)->
  17.             delete(List,'attributes',NewList2);true),
  18.             (A=end_of_file,member('data',List)->
  19.             delete(List,'data',NewList);true),
  20.             merge(NewList2,NewList,Try),
  21.             write(Try),nl;true),
  22.             A=end_of_file,!,
  23.  
  24.             seen.
  25.  
  26.  
  27. [outlook=_G40,temperature=_G49,humidity=_G58,wind=_G67,play_tennis=_G76]
  28. [_G40=sunny,_G49=hot,_G58=high,_G67=weak,_G76=no]
  29. [_G40=sunny,_G49=hot,_G58=high,_G67=strong,_G76=no]
  30. [_G40=overcast,_G49=hot,_G58=high,_G67=weak,_G76=yes]
  31. [_G40=rain,_G49=mild,_G58=high,_G67=weak,_G76=yes]
  32. [_G40=rain,_G49=cool,_G58=normal,_G67=weak,_G76=yes]
  33. [_G40=rain,_G49=cool,_G58=normal,_G67=strong,_G76=no]
  34. [_G40=overcast,_G49=cool,_G58=normal,_G67=strong,_G76=yes]
  35. [_G40=sunny,_G49=mild,_G58=high,_G67=weak,_G76=no]
  36. [_G40=sunny,_G49=cool,_G58=normal,_G67=weak,_G76=yes]
  37. [_G40=rain,_G49=mild,_G58=normal,_G67=weak,_G76=yes]
  38. [_G40=sunny,_G49=mild,_G58=normal,_G67=strong,_G76=yes]
  39. [_G40=overcast,_G49=mild,_G58=high,_G67=strong,_G76=yes]
  40. [_G40=overcast,_G49=hot,_G58=normal,_G67=weak,_G76=yes]
  41. [_G40=rain,_G49=mild,_G58=high,_G67=strong,_G76=no]
  42.        
  43. merge([], [], []).
  44.    merge([X|Xs], [Y|Ys], [X=Y|Zs]) :- merge(Xs, Ys, Zs).
create a new version of this paste RAW Paste Data