diff options
author | Benjamin Franzke <benjaminfranzke@googlemail.com> | 2012-11-08 13:17:20 +0100 |
---|---|---|
committer | Benjamin Franzke <benjaminfranzke@googlemail.com> | 2012-11-08 13:17:20 +0100 |
commit | 553e4655f2227783051d5ea7fba65d9135310ad4 (patch) | |
tree | df7ddbc67de4cef8c0eda917c76233ddc63d3feb | |
parent | f22d7a9894d530fa2f8ceaeff3a8a52746ad7a1c (diff) | |
download | wbs-553e4655f2227783051d5ea7fba65d9135310ad4.tar.gz wbs-553e4655f2227783051d5ea7fba65d9135310ad4.tar.bz2 wbs-553e4655f2227783051d5ea7fba65d9135310ad4.zip |
Prisoners Dilemma: Move rules to subdirectory
-rw-r--r-- | prisoners_dilemma.pl | 2 | ||||
-rw-r--r-- | rules/always_coorporate.pl (renamed from always_coorporate.pl) | 0 | ||||
-rw-r--r-- | rules/always_defect.pl (renamed from always_defect.pl) | 0 | ||||
-rw-r--r-- | rules/grudger.pl (renamed from grudger.pl) | 0 | ||||
-rw-r--r-- | rules/hard_tit4tat.pl (renamed from hard_tit4tat.pl) | 0 | ||||
-rw-r--r-- | rules/mistrust_tit4tat.pl (renamed from mistrust_tit4tat.pl) | 0 | ||||
-rw-r--r-- | rules/naive_prober.pl (renamed from naive_prober.pl) | 0 | ||||
-rw-r--r-- | rules/pavlov.pl (renamed from pavlov.pl) | 0 | ||||
-rw-r--r-- | rules/periodically_ddc.pl (renamed from periodically_ddc.pl) | 0 | ||||
-rw-r--r-- | rules/periodically_ssz.pl (renamed from periodically_ssz.pl) | 0 | ||||
-rw-r--r-- | rules/random_choice.pl (renamed from random_choice.pl) | 0 | ||||
-rw-r--r-- | rules/tit42tat.pl (renamed from tit42tat.pl) | 0 | ||||
-rw-r--r-- | rules/tit4tat.pl (renamed from tit4tat.pl) | 0 |
13 files changed, 1 insertions, 1 deletions
diff --git a/prisoners_dilemma.pl b/prisoners_dilemma.pl index b690fbe..16d0388 100644 --- a/prisoners_dilemma.pl +++ b/prisoners_dilemma.pl @@ -46,5 +46,5 @@ loop(Module, ModuleState, Hist, PayedA, PayedB) :- do(Choice, Module, ModuleState, Hist, PayedA, PayedB). -start(Module) :- consult(Module), loop(Module, [], [], [], []). +start(Module) :- atom_concat('rules/', Module, Path), write(Path), consult(Path), loop(Module, [], [], [], []). start :- start(tit4tat),halt. diff --git a/always_coorporate.pl b/rules/always_coorporate.pl index e6094df..e6094df 100644 --- a/always_coorporate.pl +++ b/rules/always_coorporate.pl diff --git a/always_defect.pl b/rules/always_defect.pl index f9fd91d..f9fd91d 100644 --- a/always_defect.pl +++ b/rules/always_defect.pl diff --git a/grudger.pl b/rules/grudger.pl index 76f9629..76f9629 100644 --- a/grudger.pl +++ b/rules/grudger.pl diff --git a/hard_tit4tat.pl b/rules/hard_tit4tat.pl index 8efc124..8efc124 100644 --- a/hard_tit4tat.pl +++ b/rules/hard_tit4tat.pl diff --git a/mistrust_tit4tat.pl b/rules/mistrust_tit4tat.pl index 5e80c02..5e80c02 100644 --- a/mistrust_tit4tat.pl +++ b/rules/mistrust_tit4tat.pl diff --git a/naive_prober.pl b/rules/naive_prober.pl index df2bcf5..df2bcf5 100644 --- a/naive_prober.pl +++ b/rules/naive_prober.pl diff --git a/pavlov.pl b/rules/pavlov.pl index 0da8011..0da8011 100644 --- a/pavlov.pl +++ b/rules/pavlov.pl diff --git a/periodically_ddc.pl b/rules/periodically_ddc.pl index 897986d..897986d 100644 --- a/periodically_ddc.pl +++ b/rules/periodically_ddc.pl diff --git a/periodically_ssz.pl b/rules/periodically_ssz.pl index 21cb017..21cb017 100644 --- a/periodically_ssz.pl +++ b/rules/periodically_ssz.pl diff --git a/random_choice.pl b/rules/random_choice.pl index 3bd4a91..3bd4a91 100644 --- a/random_choice.pl +++ b/rules/random_choice.pl diff --git a/tit42tat.pl b/rules/tit42tat.pl index 281bc4d..281bc4d 100644 --- a/tit42tat.pl +++ b/rules/tit42tat.pl diff --git a/tit4tat.pl b/rules/tit4tat.pl index 2cf520c..2cf520c 100644 --- a/tit4tat.pl +++ b/rules/tit4tat.pl |