-
Notifications
You must be signed in to change notification settings - Fork 2
/
mindreadtestobj-12scrn-2chars.pl
executable file
·80 lines (78 loc) · 2.77 KB
/
mindreadtestobj-12scrn-2chars.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(["a"]),
texttobr2(2), %% for 100 As for screen to display white background
texttobr2(2), %% for 100 As for screen to display A
sleep(5),
writeln(["r"]),
texttobr2(2), %% for 100 As for screen to display white background
texttobr2(2), %% for 100 As for screen to display A
sleep(5),
writeln(["t"]),
texttobr2(2), %% for 100 As for screen to display white background
texttobr2(2), %% for 100 As for screen to display A
sleep(5),
writeln(["e"]),
texttobr2(2), %% for 100 As for screen to display white background
texttobr2(2), %% for 100 As for screen to display A
sleep(5),
writeln(["s"]),
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.", "a","r","t","e","s"/**,"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,["a","r","t","e","s"
/**,"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.", "a","r","t","e","s"/**,"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("a",R1),
trialy2_15("r",R2),
trialy2_15("t",R3),
trialy2_15("e",R4),
trialy2_15("s",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,_).