-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathmindreadtestobj-12scrn-2.pl
executable file
·80 lines (78 loc) · 2.89 KB
/
mindreadtestobj-12scrn-2.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
%%use_module(library(pio)).
:- use_module(library(date)).
:-include('mindreadtestshared').
:-include('../Text-to-Breasonings/texttobr2qb.pl').
%%sectest0 :-
%%repeat,sectest,sectest0.
sectest(S) :- sectest(7,0,S).
sectest(0,S,S):-!.
sectest(N,S1,S2):-
writeln(["The computer will think of one of the following thoughts when I let you know."]),
texttobr2(2), %% for 100 As for screen to display white background
texttobr2(2), %% for 100 As for screen to display A
sleep(5),
writeln(["seed"]),
texttobr2(2), %% for 100 As for screen to display white background
texttobr2(2), %% for 100 As for screen to display A
sleep(5),
writeln(["water"]),
texttobr2(2), %% for 100 As for screen to display white background
texttobr2(2), %% for 100 As for screen to display A
sleep(5),
writeln(["dam"]),
texttobr2(2), %% for 100 As for screen to display white background
texttobr2(2), %% for 100 As for screen to display A
sleep(5),
writeln(["redblackduck"]),
texttobr2(2), %% for 100 As for screen to display white background
texttobr2(2), %% for 100 As for screen to display A
sleep(5),
writeln(["lorelle"]),
texttobr2(2), %% for 100 As for screen to display white background
texttobr2(2), %% for 100 As for screen to display A
sleep(5),
/** writeln(["adrian"]),
texttobr2(2), %% for 100 As for screen to display white background
texttobr2(2), %% for 100 As for screen to display A
sleep(5),
**/
writeln(["The computer will think of one of the following thoughts in 5 seconds.", "seed","water","dam","redblackduck","lorelle"/**,"adrian"
**/
]),
texttobr2(2), %% for 100 As for screen to display white background
texttobr2(2), %% for 100 As for screen to display A
sleep(5),
writeln(["Now"]),
sleep(1),
random_member(A,["seed","water","dam","redblackduck","lorelle"
/**,"adrian"
**/
]),
%%texttobr2(2), %% for 100 As for screen to display black border
texttobr2(2), %% for 100 As for screen to display white background
texttobr2(2), %% for 100 As for screen to display A
sleep(5),
writeln(["Think of the object the computer thought of in 1 second.", "seed","water","dam","redblackduck","lorelle"/**,"adrian"
**/
]),
texttobr2(2), %% for 100 As for screen to display white background
texttobr2(2), %% for 100 As for screen to display A
sleep(1),
%% Test thought here.
%%writeln(["Now"]),
%%get_time(TS),stamp_date_time(TS,T,local),writeln([dateandtime,T]),
trialy2_15("seed",R1),
trialy2_15("water",R2),
trialy2_15("dam",R3),
trialy2_15("redblackduck",R4),
trialy2_15("lorelle",R5),
R=[R1,R2,R3,R4,R5],%%,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15,R16,R17,R18,R19,R20,R21,R22,R23,R24,R25,R26,R27],
sort(R,RA),
reverse(RA,RB),
RB=[[_,Item]|_Rest],writeln(["Computer thought",A,"You thought",Item]),
texttobr2(2), %% for 100 As for screen to display white background
texttobr2(2), %% for 100 As for screen to display A
sleep(15),
N1 is N-1,(A=Item->S3 is S1+1;S3=S1),
sectest(N1,S3,S2).
%%read_string(user_input,1,_).