-
Notifications
You must be signed in to change notification settings - Fork 0
/
texttobr2qb.pl
11 lines (8 loc) · 7.99 KB
/
texttobr2qb.pl
1
2
3
4
5
6
7
8
9
10
11
texttobr2 :-
br1([[a,1,1.5,0],[about,1,1,0],[ache,1,0,0],[after,1,1,0],[all,1,1.5,0],[an,1,1.5,0],[and,1,1,0],[appearances,5,0,5],[apple,5,5,5],[are,1,1,0],[area,5,5,0],[argument,1,1.5,0],[as,1,1,0],[asanas,180,50,1],[at,1,1,0],[ate,15,2,1],[avoid,1,1,0],[b,1,1,1],[bacteria,2,1,1],[based,5,5,1],[be,50,30,180],[before,1,1,0],[being,50,30,180],[binding,1,1,0],[blocking,1,1,1],[bolt,2,1,1],[box,1,1,1],[breakfast,10,10,1],[breasoned,5,5,5],[breasoning,5,5,5],[breasonings,5,5,5],[by,1,1,0],[chapter,10,15,1],[clear,1,1,0],[colds,1,1,1],[comfort,180,50,30],[comfortable,50,50,100],[complexes,1,1,1],[conception,50,14,8],[connected,1,1,0],[correctness,1,1,0],[day,10,10,10],[depression,1,1,0],[details,1,1,1],[did,1,1,0],[do,50,30,180],[dotted,1,1,0],[down,1,1,0],[drinking,5,5,5],[during,1,1.5,0],[each,1,1,0],[earned,1,1.5,0],[education,50,30,180],[effects,1,1.5,0],[elderberries,1,1,1],[ensure,1,1,0],[excess,1,1,1],[exercises,10,10,1],[f,5,5,5],[feeling,1,1,0],[felt,1,1,0],[first,1,1.5,0],[flu,1,1,0],[food,2,1,1],[for,1,1,0],[from,1,1,0],[fruits,1,1,1],[function,1,1.5,0],[gaffer,10,10,1],[gave,1,1,1],[glasses,15,11,3],[god,50,30,180],[grade,1,1.5,0],[grains,1,1,1],[had,1,1,0],[hallucinogenic,1,1,0],[happiness,1,1,0],[happy,1,1,0],[have,5,5,5],[head,15,20,23],[headache,1,1,0],[headaches,1,1,0],[health,50,30,180],[healthy,50,30,180],[help,5,5,0],[helped,50,30,180],[high,1,1.5,0],[hills,5,5,2],[honey,10,10,10],[i,50,30,180],[imagery,5,5,0],[in,1,1,0],[incompatibility,1,1,0],[interpretation,20,30,0],[it,1,1,0],[keep,1,1,0],[laughter,1,1.5,0],[maintain,1,1,0],[maintaining,1,1,0],[master,50,30,180],[mind,3,4,4],[minutes,20,30,0],[mistake,1,1,0],[muscle,1,1,1],[muscles,1,1,1],[music,1,1,0],[must,1,1,0],[my,50,30,180],[namaskar,15,10,23],[neck,15,15,10],[next,1,1,0],[nietzsche,50,30,180],[no,1,1,0],[noticed,50,30,180],[nut,1,1,0],[nuts,1,1,1],[of,1,1,0],[off,1,1.5,0],[on,1,1,0],[one,1,1.5,0],[organs,1,1,1],[out,1,1,0],[over,1,1,0],[part,1,1,1],[peace,1,1.5,0],[perfect,1,1.5,0],[performed,50,30,180],[performing,50,30,250],[philosophy,10,20,1],[physiology,50,30,180],[pimple,1,1,0],[pm,5,5,5],[poem,1,1.5,0],[positive,1,1,0],[pot,5,5,10],[prayer,5,5,0],[prepared,1,1,0],[prevent,1,1,0],[prevented,1,1,0],[preventing,1,1,0],[prevention,1,1,0],[problems,1,1.5,0],[product,1,150,1],[products,5,5,5],[psychiatry,50,30,180],[psychology,2,2,0],[quality,1,1.5,0],[quantum,1,1,0],[read,15,1,20],[relax,180,50,30],[relaxed,180,50,30],[remain,1,1.5,0],[require,1,1,0],[room,500,400,300],[s,1,1,0],[safe,1,1.5,0],[sales,1,1.5,0],[same,1,1,0],[schizophrenia,1,1,0],[second,1,1.5,0],[see,1,0,1],[seek,1,1,0],[sell,5,3,0],[sets,5,1,0],[sex,1,1.5,0],[short,1,1,0],[single,1,1.5,0],[sites,20,0,30],[sitting,50,70,150],[sized,30,1,0],[skin,1,1,0],[sleep,180,50,30],[slices,2,2,2],[so,1,1,0],[societal,50,30,180],[some,1,1,0],[spine,1,1,10],[spiritual,50,30,180],[state,1,1.5,0],[stated,20,30,0],[stating,50,30,180],[status,1,1.5,0],[stop,5,1,15],[straight,1,1,0],[strawberry,1,1,1],[structure,1,1,1],[studied,50,30,180],[study,100,50,100],[studying,50,30,180],[subject,50,30,180],[successful,1,1.5,0],[surya,1,1.5,0],[sutra,5,1.5,0],[table,7,5,0],[tape,10,10,1],[task,15,2.5,0],[technique,1,1,0],[test,20,20,0],[text,20,30,0],[that,1,1,0],[the,1,1,0],[them,50,30,180],[then,1,1,0],[they,50,30,180],[thinking,1,1.5,0],[third,1,1.5,0],[this,1,1,0],[thoughts,1,1,0],[through,1,1,0],[tied,1,1,0],[time,1,1.5,0],[to,1,1,0],[together,1,1,0],[touch,1,1,0],[train,1,1,1],[trains,50,30,180],[travel,10,3,0],[treating,20,15,3],[turn,1,1,0],[two,1,1.5,0],[university,100,75,3],[unwanted,1,1,0],[up,1,1,0],[upasana,100,75,100],[used,1,1,0],[using,1,1,0],[var,1,1,1],[vegetables,5,5,5],[videos,5,0,3],[view,5,5,5],[virality,1,1,0],[viruses,1,1,2],[vitamin,1,1,1],[walks,100,500,0],[wanted,15,20,3],[warm,1,1,0],[was,1,1,0],[water,5,5,5],[way,1,1,0],[ways,50,100,0],[well,50,30,180],[where,1,1,0],[whole,1,1,1],[with,1,1,0],[without,1,1,0],[words,5,7,1],[write,15,1,1],[writing,5,5,0],[wrote,15,1,1],[years,3,1,0]]).
br1([[a,1,1.5,0],[about,1,1,0],[ache,1,0,0],[after,1,1,0],[all,1,1.5,0],[an,1,1.5,0],[and,1,1,0],[appearances,5,0,5],[apple,5,5,5],[are,1,1,0],[area,5,5,0],[argument,1,1.5,0],[as,1,1,0],[asanas,180,50,1],[at,1,1,0],[ate,15,2,1],[avoid,1,1,0],[b,1,1,1],[bacteria,2,1,1],[based,5,5,1],[be,50,30,180],[before,1,1,0],[being,50,30,180],[binding,1,1,0],[blocking,1,1,1],[bolt,2,1,1],[box,1,1,1],[breakfast,10,10,1],[breasoned,5,5,5],[breasoning,5,5,5],[breasonings,5,5,5],[by,1,1,0],[chapter,10,15,1],[clear,1,1,0],[colds,1,1,1],[comfort,180,50,30],[comfortable,50,50,100],[complexes,1,1,1],[conception,50,14,8],[connected,1,1,0],[correctness,1,1,0],[day,10,10,10],[depression,1,1,0],[details,1,1,1],[did,1,1,0],[do,50,30,180],[dotted,1,1,0],[down,1,1,0],[drinking,5,5,5],[during,1,1.5,0],[each,1,1,0],[earned,1,1.5,0],[education,50,30,180],[effects,1,1.5,0],[elderberries,1,1,1],[ensure,1,1,0],[excess,1,1,1],[exercises,10,10,1],[f,5,5,5],[feeling,1,1,0],[felt,1,1,0],[first,1,1.5,0],[flu,1,1,0],[food,2,1,1],[for,1,1,0],[from,1,1,0],[fruits,1,1,1],[function,1,1.5,0],[gaffer,10,10,1],[gave,1,1,1],[glasses,15,11,3],[god,50,30,180],[grade,1,1.5,0],[grains,1,1,1],[had,1,1,0],[hallucinogenic,1,1,0],[happiness,1,1,0],[happy,1,1,0],[have,5,5,5],[head,15,20,23],[headache,1,1,0],[headaches,1,1,0],[health,50,30,180],[healthy,50,30,180],[help,5,5,0],[helped,50,30,180],[high,1,1.5,0],[hills,5,5,2],[honey,10,10,10],[i,50,30,180],[imagery,5,5,0],[in,1,1,0],[incompatibility,1,1,0],[interpretation,20,30,0],[it,1,1,0],[keep,1,1,0],[laughter,1,1.5,0],[maintain,1,1,0],[maintaining,1,1,0],[master,50,30,180],[mind,3,4,4],[minutes,20,30,0],[mistake,1,1,0],[muscle,1,1,1],[muscles,1,1,1],[music,1,1,0],[must,1,1,0],[my,50,30,180],[namaskar,15,10,23],[neck,15,15,10],[next,1,1,0],[nietzsche,50,30,180],[no,1,1,0],[noticed,50,30,180],[nut,1,1,0],[nuts,1,1,1],[of,1,1,0],[off,1,1.5,0],[on,1,1,0],[one,1,1.5,0],[organs,1,1,1],[out,1,1,0],[over,1,1,0],[part,1,1,1],[peace,1,1.5,0],[perfect,1,1.5,0],[performed,50,30,180],[performing,50,30,250],[philosophy,10,20,1],[physiology,50,30,180],[pimple,1,1,0],[pm,5,5,5],[poem,1,1.5,0],[positive,1,1,0],[pot,5,5,10],[prayer,5,5,0],[prepared,1,1,0],[prevent,1,1,0],[prevented,1,1,0],[preventing,1,1,0],[prevention,1,1,0],[problems,1,1.5,0],[product,1,150,1],[products,5,5,5],[psychiatry,50,30,180],[psychology,2,2,0],[quality,1,1.5,0],[quantum,1,1,0],[read,15,1,20],[relax,180,50,30],[relaxed,180,50,30],[remain,1,1.5,0],[require,1,1,0],[room,500,400,300],[s,1,1,0],[safe,1,1.5,0],[sales,1,1.5,0],[same,1,1,0],[schizophrenia,1,1,0],[second,1,1.5,0],[see,1,0,1],[seek,1,1,0],[sell,5,3,0],[sets,5,1,0],[sex,1,1.5,0],[short,1,1,0],[single,1,1.5,0],[sites,20,0,30],[sitting,50,70,150],[sized,30,1,0],[skin,1,1,0],[sleep,180,50,30],[slices,2,2,2],[so,1,1,0],[societal,50,30,180],[some,1,1,0],[spine,1,1,10],[spiritual,50,30,180],[state,1,1.5,0],[stated,20,30,0],[stating,50,30,180],[status,1,1.5,0],[stop,5,1,15],[straight,1,1,0],[strawberry,1,1,1],[structure,1,1,1],[studied,50,30,180],[study,100,50,100],[studying,50,30,180],[subject,50,30,180],[successful,1,1.5,0],[surya,1,1.5,0],[sutra,5,1.5,0],[table,7,5,0],[tape,10,10,1],[task,15,2.5,0],[technique,1,1,0],[test,20,20,0],[text,20,30,0],[that,1,1,0],[the,1,1,0],[them,50,30,180],[then,1,1,0],[they,50,30,180],[thinking,1,1.5,0],[third,1,1.5,0],[this,1,1,0],[thoughts,1,1,0],[through,1,1,0],[tied,1,1,0],[time,1,1.5,0],[to,1,1,0],[together,1,1,0],[touch,1,1,0],[train,1,1,1],[trains,50,30,180],[travel,10,3,0],[treating,20,15,3],[turn,1,1,0],[two,1,1.5,0],[university,100,75,3],[unwanted,1,1,0],[up,1,1,0],[upasana,100,75,100],[used,1,1,0],[using,1,1,0],[var,1,1,1],[vegetables,5,5,5],[videos,5,0,3],[view,5,5,5],[virality,1,1,0],[viruses,1,1,2],[vitamin,1,1,1],[walks,100,500,0],[wanted,15,20,3],[warm,1,1,0],[was,1,1,0],[water,5,5,5],[way,1,1,0],[ways,50,100,0],[well,50,30,180],[where,1,1,0],[whole,1,1,1],[with,1,1,0],[without,1,1,0],[words,5,7,1],[write,15,1,1],[writing,5,5,0],[wrote,15,1,1],[years,3,1,0]]).
:-include('../Time_Machine/t2b_br_adder.pl').
texttobr2(A) :- A1 is 250*A, t2b_br_adder(A1), texttobr2_2(A),!.
texttobr2_2(0):-!.
texttobr2_2(N1):-
texttobr2,N2 is N1-1,texttobr2_2(N2),!.