#OK to post homework
#Ramesh Balaji,4/28/2024,hw26

read `ENGLISH.txt`;

# Part 1: See homework 27.

# Part 2

letters := [a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z]:
pairs := {seq(seq([letters[i1], letters[j1]], i1=1..26), j1=1..26)};

letTabl := table();
letTablTriples := table();
totLet:=nops(ENG());

for i1 from 1 to totLet do:
	engValue:=ENG()[i1];
	print(i1);
	for word in engValue do:
		for j1 from 1 to nops(word) do:
			if j1 <> nops(word) then:
				worb := word[j1..(j1+1)];
				if whattype(letTabl[worb]) = indexed then:
					letTabl[worb] := 1;
				else:
					letTabl[worb] += 1;
				fi:
			fi:

			# 3 letter pairs
			if j1 < nops(word) - 1 then:
				worb := word[j1..(j1+2)];
				if whattype(letTablTriples[worb]) = indexed then:
					letTablTriples[worb] := 1;
				else:
					letTablTriples[worb] += 1;
				fi:
			fi:
		end:
	od:
od:

op(letTabl);
op(letTablTriples);

# how many are consecutive?
consecutive := 0;
over10 := 0;
for ind, val in eval(letTabl) do:
	#print(ind, val);
	consecutive += 1;
	if val > 10 then:
		over10 += 1;
	fi:
od:

consecutive;

# for triples: how many? could I use nops?
tripleConsecutive := 0;
for ind, val in eval(letTablTriples) do:
	#print(ind, val);
	tripleConsecutive += 1;
od:
tripleConsecutive;
nops(op(letTablTriples));

(*

> consecutive;
                                                                                    593

> over10;
                                                                                    497

> tripleConsecutive;
                                                                                   6639

RESULTS "how many actualy show up as consecutive two letters": 593
RESULTS "how many show up up as consecutive two lettersmore than ten times": 497
RESULTS "how many actualy show up as consecutive three letters?": 6639

> op(letTabl);
table([[m, g] = 3, [r, m] = 1506, [y, w] = 105, [b, e] = 2495, [m, p] = 2288, [t, u] = 2003, [r, z] = 23, [o, k] = 572, [k, w] = 84, [b, h] = 31, [z, l] = 125,

    [a, a] = 38, [e, l] = 4921, [d, z] = 5, [u, o] = 261, [f, u] = 1262, [w, j] = 1, [h, i] = 3264, [s, o] = 2071, [b, o] = 2173, [d, j] = 118, [y, l] = 368, [v, v] = 22,

    [f, e] = 1570, [l, h] = 63, [v, s] = 9, [l, i] = 8443, [j, n] = 3, [i, g] = 2167, [a, i] = 2205, [e, q] = 298, [g, l] = 1478, [h, v] = 1, [n, d] = 4176, [b, b] = 694,

    [l, p] = 254, [n, k] = 840, [s, z] = 2, [u, u] = 17, [w, c] = 25, [m, n] = 223, [s, m] = 1507, [x, w] = 11, [r, a] = 8733, [e, h] = 389, [e, z] = 140, [g, u] = 1008,

    [e, c] = 3581, [o, n] = 11277, [c, h] = 4457, [x, e] = 429, [x, l] = 17, [g, e] = 3504, [h, o] = 3221, [s, n] = 809, [b, t] = 133, [e, j] = 121, [b, c] = 69,

    [z, g] = 2, [a, h] = 281, [f, l] = 1402, [d, q] = 9, [l, l] = 5074, [v, c] = 1, [n, s] = 5849, [m, i] = 4382, [l, x] = 2, [k, n] = 288, [h, g] = 6, [o, f] = 595,

    [b, m] = 69, [d, h] = 117, [i, w] = 26, [k, r] = 99, [a, f] = 615, [d, x] = 1, [d, u] = 1038, [w, o] = 1018, [y, j] = 7, [f, c] = 8, [m, o] = 2719, [q, a] = 3,

    [b, y] = 179, [m, k] = 9, [v, u] = 126, [t, z] = 129, [k, p] = 42, [t, c] = 604, [l, a] = 5943, [v, a] = 1422, [n, i] = 4758, [l, n] = 225, [k, g] = 8, [a, d] = 2836,

    [i, l] = 4485, [p, d] = 25, [h, p] = 36, [s, r] = 75, [c, y] = 502, [b, j] = 65, [y, g] = 110, [w, l] = 249, [x, v] = 5, [u, q] = 5, [d, p] = 83, [e, u] = 569,

    [v, o] = 785, [c, z] = 26, [g, c] = 6, [o, h] = 140, [h, w] = 110, [c, m] = 5, [b, a] = 2352, [z, e] = 1962, [b, r] = 1573, [l, k] = 327, [u, z] = 112, [w, u] = 20,

    [u, c] = 1303, [m, r] = 33, [b, s] = 601, [z, w] = 4, [n, f] = 872, [a, c] = 4049, [h, l] = 280, [l, f] = 260, [u, t] = 2664, [o, i] = 1232, [l, s] = 1593,

    [l, b] = 154, [y, v] = 13, [v, l] = 3, [e, e] = 2561, [h, r] = 665, [s, p] = 2153, [a, o] = 63, [d, t] = 46, [x, g] = 3, [z, b] = 2, [g, a] = 1895, [s, e] = 5807,

    [e, y] = 640, [z, i] = 759, [g, t] = 61, [x, n] = 3, [y, b] = 128, [w, g] = 12, [u, l] = 3227, [s, q] = 263, [z, v] = 6, [k, b] = 90, [u, s] = 4043, [f, n] = 8,

    [e, g] = 1219, [g, b] = 56, [a, b] = 3558, [a, q] = 78, [l, v] = 291, [m, s] = 1071, [w, r] = 292, [u, w] = 6, [x, h] = 69, [u, f] = 385, [c, c] = 653, [s, k] = 609,

    [p, u] = 1114, [n, z] = 87, [z, c] = 2, [o, w] = 1715, [i, r] = 2155, [d, m] = 219, [g, w] = 56, [f, h] = 20, [e, a] = 4587, [e, x] = 1553, [b, u] = 1436,

    [a, k] = 811, [y, o] = 286, [z, y] = 73, [h, c] = 21, [t, l] = 1168, [r, q] = 38, [c, e] = 3859, [a, r] = 7865, [g, o] = 1074, [s, d] = 82, [f, t] = 453, [d, y] = 341

    , [a, j] = 65, [y, n] = 308, [v, g] = 1, [x, b] = 5, [b, l] = 3673, [z, p] = 10, [m, v] = 16, [k, d] = 28, [k, l] = 405, [u, p] = 1182, [r, s] = 6896, [g, n] = 728,

    [f, b] = 21, [d, g] = 418, [c, a] = 5598, [r, k] = 715, [q, u] = 1690, [m, w] = 22, [t, w] = 351, [v, r] = 24, [w, m] = 35, [y, h] = 44, [t, f] = 215, [e, t] = 4207,

    [c, u] = 1978, [x, o] = 123, [a, z] = 353, [z, j] = 1, [o, x] = 400, [e, m] = 2904, [f, w] = 6, [g, h] = 1057, [d, a] = 1670, [b, f] = 29, [i, t] = 6101,

    [u, n] = 5155, [q, s] = 1, [j, i] = 140, [h, n] = 177, [i, b] = 1236, [g, g] = 846, [c, q] = 64, [l, d] = 746, [h, a] = 3248, [s, i] = 4446, [g, y] = 394,

    [x, i] = 470, [v, n] = 6, [u, g] = 778, [w, b] = 90, [s, l] = 1326, [b, w] = 26, [z, d] = 1, [o, r] = 7629, [e, w] = 842, [g, r] = 2099, [h, h] = 34, [f, m] = 5,

    [e, f] = 1273, [e, s] = 18963, [a, p] = 2655, [x, y] = 76, [c, k] = 2538, [z, t] = 4, [j, c] = 1, [m, y] = 276, [w, w] = 13, [s, f] = 166, [u, a] = 1231,

    [c, l] = 1522, [o, p] = 2350, [r, u] = 1849, [p, z] = 1, [x, c] = 200, [d, l] = 1000, [k, v] = 8, [i, v] = 2418, [u, h] = 8, [p, s] = 1127, [k, i] = 1576, [n, x] = 30

    , [f, g] = 6, [h, b] = 92, [c, w] = 2, [r, l] = 731, [a, e] = 338, [h, e] = 5064, [s, h] = 3700, [w, n] = 411, [h, t] = 769, [y, i] = 539, [f, y] = 298, [t, g] = 86,

    [e, n] = 10267, [a, u] = 1303, [b, k] = 8, [z, o] = 238, [k, c] = 12, [o, s] = 3038, [f, r] = 944, [g, m] = 178, [d, w] = 173, [i, h] = 48, [f, a] = 1174, [d, f] = 96

    , [c, d] = 12, [p, k] = 27, [s, u] = 2381, [n, p] = 310, [y, c] = 336, [n, a] = 4111, [u, m] = 2134, [w, h] = 551, [t, a] = 5178, [a, l] = 8993, [m, u] = 1060,

    [f, k] = 1, [e, d] = 11870, [n, j] = 141, [v, t] = 3, [h, s] = 422, [c, i] = 2915, [j, a] = 378, [h, f] = 67, [c, s] = 431, [w, y] = 42, [y, t] = 186, [p, f] = 40,

    [t, r] = 4805, [k, h] = 79, [r, w] = 202, [p, e] = 4457, [o, v] = 1519, [n, q] = 135, [o, e] = 602, [i, m] = 2506, [r, h] = 254, [h, y] = 877, [k, o] = 173,

    [m, j] = 3, [r, g] = 856, [t, b] = 178, [a, v] = 1118, [y, z] = 55, [w, d] = 110, [m, f] = 74, [t, v] = 9, [u, i] = 1159, [n, e] = 7635, [w, a] = 1647, [b, i] = 2311,

    [z, m] = 8, [k, a] = 452, [a, m] = 2726, [e, p] = 1918, [l, u] = 1790, [g, k] = 5, [d, d] = 674, [p, c] = 44, [u, r] = 3846, [h, m] = 250, [s, w] = 516, [q, e] = 1,

    [c, t] = 2799, [x, t] = 331, [v, y] = 40, [o, j] = 37, [l, c] = 290, [i, i] = 42, [r, n] = 1185, [j, o] = 390, [k, t] = 54, [i, y] = 9, [l, j] = 2, [u, b] = 1192,

    [s, g] = 70, [n, v] = 545, [o, q] = 67, [m, e] = 4913, [t, x] = 1, [u, x] = 92, [w, s] = 385, [a, g] = 2291, [c, b] = 3, [w, p] = 41, [y, k] = 9, [z, u] = 32,

    [v, d] = 2, [c, o] = 6415, [u, y] = 22, [w, t] = 38, [p, j] = 10, [o, c] = 1941, [p, a] = 2868, [r, r] = 1529, [m, h] = 16, [p, w] = 46, [k, m] = 69, [a, n] = 9184,

    [b, p] = 25, [o, u] = 4498, [d, k] = 9, [n, o] = 2927, [w, e] = 1326, [y, m] = 413, [f, f] = 1180, [y, u] = 32, [x, p] = 383, [w, z] = 8, [z, k] = 4, [y, d] = 184,

    [m, d] = 13, [t, m] = 240, [t, s] = 3794, [w, i] = 1273, [r, x] = 5, [b, g] = 12, [n, l] = 399, [l, q] = 6, [i, s] = 8146, [s, a] = 2205, [l, t] = 1006, [i, o] = 5885

    , [k, j] = 9, [p, g] = 13, [r, b] = 790, [o, z] = 156, [c, r] = 2190, [o, o] = 2455, [t, y] = 1668, [n, c] = 3643, [n, m] = 258, [w, k] = 63, [k, s] = 963,

    [i, x] = 235, [x, m] = 6, [z, h] = 5, [i, a] = 3321, [g, f] = 37, [a, s] = 4561, [c, p] = 5, [e, k] = 190, [l, z] = 7, [b, d] = 82, [m, c] = 25, [t, o] = 4626,

    [t, n] = 191, [v, i] = 2039, [c, g] = 1, [e, b] = 757, [y, p] = 474, [x, u] = 106, [v, z] = 2, [z, q] = 3, [i, n] = 20512, [s, c] = 2497, [k, y] = 233, [j, j] = 4,

    [m, t] = 20, [s, b] = 146, [o, l] = 4006, [m, q] = 4, [l, e] = 9900, [s, v] = 15, [k, e] = 2373, [i, d] = 2524, [p, p] = 1398, [n, t] = 7554, [l, y] = 5615,

    [i, j] = 23, [p, b] = 49, [n, g] = 12015, [e, v] = 1182, [r, p] = 683, [t, k] = 5, [m, b] = 1292, [t, h] = 3225, [q, i] = 7, [z, s] = 1, [x, a] = 180, [a, t] = 11666,

    [i, u] = 335, [g, z] = 4, [j, k] = 1, [n, y] = 339, [x, x] = 9, [d, s] = 1489, [g, i] = 2164, [b, x] = 1, [d, e] = 6912, [s, y] = 605, [r, j] = 44, [p, o] = 2855,

    [p, r] = 3594, [m, m] = 1081, [n, w] = 189, [t, e] = 12026, [i, c] = 6892, [r, d] = 1642, [o, t] = 2784, [f, o] = 1570, [h, j] = 7, [o, g] = 2234, [r, v] = 475,

    [m, l] = 107, [e, r] = 21011, [j, e] = 321, [m, a] = 4386, [t, i] = 13496, [n, n] = 1094, [y, x] = 28, [y, a] = 394, [w, f] = 49, [d, v] = 133, [u, k] = 101,

    [n, u] = 859, [y, e] = 577, [f, i] = 2392, [d, n] = 254, [o, a] = 1080, [a, w] = 733, [i, p] = 1559, [h, u] = 807, [k, k] = 27, [h, d] = 34, [p, m] = 64, [l, m] = 302

    , [n, h] = 304, [q, r] = 1, [u, e] = 1153, [d, o] = 1754, [r, y] = 1552, [t, t] = 1965, [q, o] = 2, [s, j] = 19, [t, p] = 89, [u, d] = 949, [l, r] = 56, [s, s] = 5722

    , [x, s] = 14, [z, a] = 554, [x, f] = 10, [u, v] = 90, [h, q] = 2, [d, r] = 1158, [i, f] = 1632, [r, e] = 12696, [p, t] = 1013, [e, o] = 822, [g, j] = 4, [l, g] = 176

    , [n, b] = 223, [d, b] = 157, [r, o] = 6174, [t, j] = 8, [p, l] = 1971, [o, m] = 3384, [l, w] = 68, [n, r] = 307, [v, e] = 5214, [a, x] = 282, [f, p] = 9,

    [i, z] = 2477, [k, u] = 94, [h, k] = 11, [g, d] = 22, [o, d] = 1538, [y, r] = 264, [e, i] = 1013, [f, s] = 201, [c, n] = 15, [l, o] = 4349, [s, t] = 10324,

    [r, i] = 8708, [y, s] = 832, [p, n] = 64, [y, f] = 53, [z, z] = 249, [b, v] = 32, [x, q] = 3, [t, d] = 51, [i, e] = 6374, [r, f] = 399, [o, y] = 352, [q, t] = 2,

    [f, j] = 2, [i, q] = 160, [p, i] = 2686, [p, h] = 1945, [d, c] = 90, [r, t] = 2437, [p, y] = 273, [u, j] = 21, [r, c] = 1222, [o, b] = 1100, [z, n] = 1, [g, s] = 1080

    , [d, i] = 5151, [b, n] = 41, [k, f] = 47, [a, y] = 1072, [j, u] = 515, [i, k] = 301, [g, p] = 18,

    [f, d] = 12

    ])
*)