Skip to content

Instantly share code, notes, and snippets.

@tobynet
Created December 4, 2014 04:50
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tobynet/5c3f7ebaa70d1347e574 to your computer and use it in GitHub Desktop.
Save tobynet/5c3f7ebaa70d1347e574 to your computer and use it in GitHub Desktop.
【スマートフォンではなく】パソコンが始める Prolog 【動作確認編】 ref: http://qiita.com/toby_net/items/86af78dce98bdfa6beee
% あなたとジャバ
ジャバ(あなた).
% わたしとジャバ
ジャバ(わたし).
% X とジャバならば、X は今すぐジャバをダウンロードすべきである
ジャバをダウンロード(X,今すぐ) :- ジャバ(X).
$ swipl -f advent-example01.pro
?- ジャバをダウンロード(あなた,今すぐ).
?- ジャバをダウンロード(あなた,今すぐ).
true.
?- ジャバをダウンロード(X, 今すぐ).
?- ジャバをダウンロード(X, 今すぐ).
X = あなた
?- ジャバをダウンロード(X, 今すぐ).
X = あなた;
X = わたし.
?- ジャバをダウンロード(X, Y).
?- forall(ジャバをダウンロード(X, 今すぐ), writeln(X)).
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment