-
Notifications
You must be signed in to change notification settings - Fork 2
/
mindreadtestobj-12scrn-2alpha.pl
49 lines (47 loc) · 1.27 KB
/
mindreadtestobj-12scrn-2alpha.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
%%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):-!.
sectest(N):-
%%writeln(["Think of the lowercase letter of the alphabet or a space that the computer thought of in 1 second."]),
%%sleep(1),
%% Test thought here., 0.1 s then repeat M times
%%writeln(["Now"]),
%%get_time(TS),stamp_date_time(TS,T,local),writeln([dateandtime,T]),
trialy2_81("a",R1),
trialy2_81("b",R2),
trialy2_81("c",R3),
trialy2_81("d",R4),
trialy2_81("e",R5),
trialy2_81("f",R6),
trialy2_81("g",R7),
trialy2_81("h",R8),
trialy2_81("i",R9),
trialy2_81("j",R10),
trialy2_81("k",R11),
trialy2_81("l",R12),
trialy2_81("m",R13),
trialy2_81("n",R14),
trialy2_81("o",R15),
trialy2_81("p",R16),
trialy2_81("q",R17),
trialy2_81("r",R18),
trialy2_81("s",R19),
trialy2_81("t",R20),
trialy2_81("u",R21),
trialy2_81("v",R22),
trialy2_81("w",R23),
trialy2_81("x",R24),
trialy2_81("y",R25),
trialy2_81("z",R26),
trialy2_81(" ",R27),
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([Item,RB]),
N1 is N-1,
sectest(N1).