/
meditation.pl
49 lines (43 loc) · 2.45 KB
/
meditation.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
%% Meditation.pl
%% lucian, green, friendliness, medicine, sutras, courses, qi gong and yoga mantras and sutras - arem 10 br links
%% Stops linking in meditators 100 years after date of learning LM
%%:- include('qb2.pl').
:- include('../listprologinterpreter/listprolog').
:- include('texttobr').
%%:- include('texttobr2qb').
%%:- include('texttobrqb').
:- include('../listprologinterpreter/la_strings').
:- include('mergetexttobrdict').
:- include('edit.pl').
meditation :-
File="I love you, I love you, I love you. Arem.",
Utterances=[lucianicmeditationapps,dailyregimen,nobodyproblemsapp,lucian, green, friendliness, medicine, childrenh1earningjobsprotectioninjobs,headsofstate,lucianmantrapureform,lucianmantrasunsafety,maharishisutra,meditationteachersutra,movingappearances,purusha,upasanasutra,yellowgod,greensutra,bluenature,appearances,pranayama,soma,hoursprayer,fiftybreasoningspersecond,meditationindicatorlowerriskofcancerandotherdiseasesinworkersandbroadcasters,meditationindicatordecreasedstress,meditationindicatorincreasedbloodflow,meditationincreasedbrainpotential,autobiography,computationalenglish,computerscience,economics,hermeneutics,pedagogy,breasonings,quantumbox,lucianicmeditation,lm,meditation,metaphysics,music,plays,popology,theology, qigongmantra,qigongsutra, yogamantra,yogasutra],
%% initiate_utterances(File,Utterances),
%% currentDate(Today),
%% Today=date(Year,Month,Day),
meditators(Meditators),
length(Utterances,UL),
length(Meditators,ML),
Length2 is UL+ML,
texttobr2(Length2,u,File,u),texttobr(Length2,u,File,u),!.
%% protect(File,Year,Month,Day,Meditators,[],Old),
%% writeln([oldmeditators,Old]),!.
initiate_utterances(_File,[]) :- !.
initiate_utterances(File,[_Utterances|Utterances]) :-
texttobr2(File),texttobr(File),
initiate_utterances(File,Utterances).
protect(_File,_Year,_Month,_Day,[],Old1,Old1) :- !.
protect(File,Year1,_Month1,_Day1,[Meditator|Meditators],Old1,Old2) :-
Meditator=[_FirstName,_LastName,_DayDOB,_MonthDOB,_YearDOB,_DayLearned,_MonthLearned,YearLearned],
Year2 is YearLearned+101,
(Year2=Year1->append(Old1,[Meditator],Old3);Old3=Old1),
texttobr2(File),texttobr(File), %% Sender
texttobr2(File),texttobr(File), %% Recipient
protect(File,Year1,_Month,_Day,Meditators,Old3,Old2).
currentDate(Today) :-
get_time(Stamp),
stamp_date_time(Stamp,DateTime,local),
date_time_value(date,DateTime,Today).
meditators([
[first,surname,dob_d,dob_m,dob_y,day_of_learning_d,day_of_learning_m,day_of_learning_y]
]).