# No subject

Thu Feb 24 17:58:36 CET 2011

```of chars that can be accessed from one to another.
For example, given the sequence:
"abcde"
In table below chars in a left column can access a list of chars in the
right column:
a | b c d
e

b | c d
e

c | d
e

d |
e

Then chains for this example will be:
bcde, bde, be,
cde, cd, ce,
de

*** My incomplete result,
which I get running my program (see at the end of this message):
('a','b'),('b','c'),('c','d'),('d','e'), -- abcde,
('c','e'), -- ce,
('b','d'),('d','e'), -- bde,
('b','e') -- be,
('a','c'),('c','d'),('d','e'), -- acde
('c','e'),
('a','e') -- ae

Sequence 'abcde'  contains 'bcde', 'cde', 'cd', 'de'. How to add all these
sub-sequences as a separate sequences in my output?
And I have 'ce' sequence duplicated, which I don't need.
Also, how to output chains as a list of lists? Such as:
[bcde, bde, be,]
[cde, cd, ce,]
de]]

*** my code

test = chains testPairs 'a' []
testPairs = pairs testSeq
testSeq = "abcde"

-- From a list of '((from,to),1)' pairs build char
chains

-- Char chain is a list of chars: [from1, to1 = from2, to2 = from3, to3 =
from4, ...]
-- 'pairList' - a list of
pairs

chains pairList from chainList  = chainWrk (nextTo pairList from) from
chainList
where
chainWrk [] from  chainList  = chainList
chainWrk (to:tos) from chainList  =
chainWrk tos from (chains pairList to (chainList ++ [(from,to)]))

-- Find direct neighbors for
'from'

nextTo pairList from =
toList (findPairs pairList from) []

-- From a list of '((from,to),1)' pairs build a list of
'to'-s
toList [] tos = tos
toList (((from,to),len):ps) tos  = toList ps (tos ++ [to])

-- From 'pairList' find elements with 'from' equal to
'start'
-- 'pairList' is a list of '((from,to),1)'
pairs

findPairs pairList search  = filter (flt search) pairList
where
flt search ((from, to), len) = search == from

-- From a sequence of chars buid a list of '((from,to),1)'
pairs
pairs []  = []
pairs (x:xs) = pairWrk x xs [] ++ pairs xs

pairWrk hd [] pairLst = pairLst
pairWrk hd (x:xs) pairLst = pairWrk hd xs (pairLst ++ [((hd,x),1)])

--90e6ba6e8b8254bfbc04a4549dd3
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: base64

SGVsbG8sPGJyPkkgYW0gdHJ5aW5nIHRvIHNvbHZlIGEgc2ltcGxlIHRhc2ssIGJ1dCBnb3Qgc3R1
Y2sgd2l0aCBkb3VibGUgcmVjdXJzaW9uIC0gZm9yIHNvbWUgcmVhc29uIG5vdCBhbGwgbGlzdKAg
ZWxlbWVudHMgZ2V0IHByb2Nlc3NlZC48YnI+UGxlYXNlIGFkdmljZSBvbiBhIHNpbXBsZSBzb2x1
dGlvbiwgdXNpbmcgcGxhbmUgb2xkIHJlY3Vyc2lvbiA6KTxicj4qKiogVGFzazogPGJyIGNsZWFy
PSJhbGwiPgoKRnJvbSBhIHNlcXVlbmNlIG9mIGNoYXJzIGJ1aWxkIGFsbCBwb3NzaWJsZSBjaGFp
bnMgd2hlcmUgZWFjaCBjaGFpbiBjb25zaXN0cyBvZiBjaGFycyB0aGF0IGNhbiBiZSBhY2Nlc3Nl
ZCBmcm9tIG9uZSB0byBhbm90aGVyLjxicj5Gb3IgZXhhbXBsZSwgZ2l2ZW4gdGhlIHNlcXVlbmNl
Ojxicj4mcXVvdDthYmNkZSZxdW90Ozxicj5JbiB0YWJsZSBiZWxvdyBjaGFycyBpbiBhIGxlZnQg
Y29sdW1uIGNhbiBhY2Nlc3MgYSBsaXN0IG9mIGNoYXJzIGluIHRoZSByaWdodCBjb2x1bW46PGJy
PgoKYSB8IGIgYyBkIGWgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
IDxicj5iIHwgYyBkIGWgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKAgPGJyPgoKYyB8IGQgZaCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgIDxicj5kIHwgZaCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKAgPGJyPgoKPGJyPlRoZW4gY2hhaW5zIGZvciB0aGlzIGV4YW1wbGUgd2lsbCBiZTo8
YnI+YWJjZGUsIGFjZGUsIGFkZSwgYWUsPGJyPmJjZGUsIGJkZSwgYmUsPGJyPmNkZSwgY2QsIGNl
LDxicj5kZTxicj48YnI+KioqIE15IGluY29tcGxldGUgcmVzdWx0LDxicj53aGljaCBJIGdldCBy
dW5uaW5nIG15IHByb2dyYW0gKHNlZSBhdCB0aGUgZW5kIG9mIHRoaXMgbWVzc2FnZSk6PGJyPigm
IzM5O2EmIzM5OywmIzM5O2ImIzM5OyksKCYjMzk7YiYjMzk7LCYjMzk7YyYjMzk7KSwoJiMzOTtj
JiMzOTssJiMzOTtkJiMzOTspLCgmIzM5O2QmIzM5OywmIzM5O2UmIzM5OyksIC0tIGFiY2RlLDxi
cj4KCigmIzM5O2MmIzM5OywmIzM5O2UmIzM5OyksIC0tIGNlLDxicj4oJiMzOTtiJiMzOTssJiMz
OTtkJiMzOTspLCgmIzM5O2QmIzM5OywmIzM5O2UmIzM5OyksIC0tICBiZGUsPGJyPigmIzM5O2Im
IzM5OywmIzM5O2UmIzM5OykgLS0gYmUsPGJyPigmIzM5O2EmIzM5OywmIzM5O2MmIzM5OyksKCYj
Mzk7YyYjMzk7LCYjMzk7ZCYjMzk7KSwoJiMzOTtkJiMzOTssJiMzOTtlJiMzOTspLCAtLSBhY2Rl
PGJyPgoKKCYjMzk7YyYjMzk7LCYjMzk7ZSYjMzk7KSw8YnI+KCYjMzk7YSYjMzk7LCYjMzk7ZCYj
Mzk7KSwoJiMzOTtkJiMzOTssJiMzOTtlJiMzOTspLCAtLSAgYWRlLDxicj4oJiMzOTthJiMzOTss
JiMzOTtlJiMzOTspIC0tIGFlPGJyPjxicj5TZXF1ZW5jZSAmIzM5O2FiY2RlJiMzOTugIGNvbnRh
aW5zICYjMzk7YmNkZSYjMzk7LCAmIzM5O2NkZSYjMzk7LCAmIzM5O2NkJiMzOTssICYjMzk7ZGUm
IzM5Oy4gSG93IHRvIGFkZCBhbGwgdGhlc2Ugc3ViLXNlcXVlbmNlcyBhcyBhIHNlcGFyYXRlIHNl
cXVlbmNlcyBpbiBteSBvdXRwdXQ/PGJyPgoKQW5kIEkgaGF2ZSAmIzM5O2NlJiMzOTsgc2VxdWVu
Y2UgZHVwbGljYXRlZCwgd2hpY2ggSSBkb24mIzM5O3QgbmVlZC48YnI+QWxzbywgaG93IHRvIG91
dHB1dCBjaGFpbnMgYXMgYSBsaXN0IG9mIGxpc3RzPyBTdWNoIGFzOjxicj5bW2FiY2RlLCBhY2Rl
LCBhZGUsIGFlLF08YnI+CltiY2RlLCBiZGUsIGJlLF08YnI+CltjZGUsIGNkLCBjZSxdPGJyPgpk
ZV1dPGJyPgogPGJyPioqKiBteSBjb2RlPGJyPjxicj50ZXN0ID0gY2hhaW5zIHRlc3RQYWlycyAm
IzM5O2EmIzM5OyBbXTxicj50ZXN0UGFpcnMgPSBwYWlycyB0ZXN0U2VxPGJyPnRlc3RTZXEgPSAm
cXVvdDthYmNkZSZxdW90Ozxicj48YnI+LS0gRnJvbSBhIGxpc3Qgb2YgJiMzOTsoKGZyb20sdG8p
LDEpJiMzOTsgcGFpcnMgYnVpbGQgY2hhciBjaGFpbnOgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgIDxicj4KCi0tIENo
YXIgY2hhaW4gaXMgYSBsaXN0IG9mIGNoYXJzOiBbZnJvbTEsIHRvMSA9IGZyb20yLCB0bzIgPSBm
cm9tMywgdG8zID0gZnJvbTQsIC4uLl2goKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKAgPGJyPi0tICYjMzk7cGFpckxpc3QmIzM5OyAtIGEgbGlzdCBvZiBwYWlyc6CgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoCA8YnI+Cgo8YnI+Y2hhaW5zIHBhaXJM
aXN0IGZyb20gY2hhaW5MaXN0oCA9IGNoYWluV3JrIChuZXh0VG8gcGFpckxpc3QgZnJvbSkgZnJv
bSBjaGFpbkxpc3Q8YnI+oCB3aGVyZTxicj6goKAgY2hhaW5XcmsgW10gZnJvbaAgY2hhaW5MaXN0
oCA9IGNoYWluTGlzdDxicj6goKAgY2hhaW5XcmsgKHRvOnRvcykgZnJvbSBjaGFpbkxpc3SgID08
YnI+oKCgoKAgY2hhaW5XcmsgdG9zIGZyb20gKGNoYWlucyBwYWlyTGlzdCB0byAoY2hhaW5MaXN0
ICsrIFsoZnJvbSx0byldKSk8YnI+Cgo8YnI+LS0gRmluZCBkaXJlY3QgbmVpZ2hib3JzIGZvciAm
IzM5O2Zyb20mIzM5O6CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgIDxicj5uZXh0
VG8gcGFpckxpc3QgZnJvbSA9PGJyPqAgdG9MaXN0IChmaW5kUGFpcnMgcGFpckxpc3QgZnJvbSkg
W108YnI+PGJyPi0tIEZyb20gYSBsaXN0IG9mICYjMzk7KChmcm9tLHRvKSwxKSYjMzk7IHBhaXJz
IGJ1aWxkIGEgbGlzdCBvZiAmIzM5O3RvJiMzOTstc6CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgIDxicj4KCnRvTGlzdCBbXSB0
b3MgPSB0b3M8YnI+dG9MaXN0ICgoKGZyb20sdG8pLGxlbik6cHMpIHRvc6AgPSB0b0xpc3QgcHMg
KHRvcyArKyBbdG9dKTxicj48YnI+LS0gRnJvbSAmIzM5O3BhaXJMaXN0JiMzOTsgZmluZCBlbGVt
ZW50cyB3aXRoICYjMzk7ZnJvbSYjMzk7IGVxdWFsIHRvICYjMzk7c3RhcnQmIzM5O6CgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oCA8YnI+CgotLSAmIzM5O3BhaXJMaXN0JiMzOTsgaXMgYSBsaXN0IG9mICYjMzk7KChmcm9tLHRv
KSwxKSYjMzk7IHBhaXJzoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoCA8YnI+ZmluZFBhaXJzIHBhaXJM
aXN0IHNlYXJjaKAgPSBmaWx0ZXIgKGZsdCBzZWFyY2gpIHBhaXJMaXN0PGJyPqCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKAgd2hlcmU8YnI+CgqgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKAgZmx0
IHNlYXJjaCAoKGZyb20sIHRvKSwgbGVuKSA9IHNlYXJjaCA9PSBmcm9tPGJyPjxicj4tLSBGcm9t
IGEgc2VxdWVuY2Ugb2YgY2hhcnMgYnVpZCBhIGxpc3Qgb2YgJiMzOTsoKGZyb20sdG8pLDEpJiMz
OTsgcGFpcnOgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKAgPGJyPgoKcGFpcnMgW12gID0gW108YnI+cGFpcnMgKHg6eHMpID0gcGFp
cldyayB4IHhzIFtdICsrIHBhaXJzIHhzPGJyPjxicj5wYWlyV3JrIGhkIFtdIHBhaXJMc3QgPSBw
YWlyTHN0PGJyPnBhaXJXcmsgaGQgKHg6eHMpIHBhaXJMc3QgPSBwYWlyV3JrIGhkIHhzIChwYWly
THN0ICsrIFsoKGhkLHgpLDEpXSk8YnI+PGJyPgo8YnI+oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgIDxicj48YnI+Cg==
--90e6ba6e8b8254bfbc04a4549dd3--

```