頑強な文字列操作

例題ノートブックのダウンロード

例：バイオインフォーマティックス

以下はSARSウィルスのゲノムを与える文字列の初めの部分です．

CTACCCAGGAAAAGCCAACCAACCTCGATCTCTTGTAGATCTGTTCTCTAAACGAACTTTAAAATCTGTGTAGCTGTCGCTCG
GCTGCATGCCTAGTGCACCTACGCAGTATAAACAATAATAAATTTTACTGTCGTTGACAAGAAACGAGTAACTCGTCCCTCTT
CTGCAGACTGCTTACGGTTTCGTCCGTGTTGCAGTCGATCATCAGCATACCTAGGTTTCGTCCGGGTGTGACCGAAAGGTAAG
ATGGAGAGCCTTGTTCTTGGTGTCAACGAGAAAACACACGTCCAACTCAGTTTGCCTGTCCTTCAGGTTAGAGACGTGCTAGT
GCGTGGCTTCGGGGACTCTGTGGAAGAGGCCCTATCGGAGGCACGTGAACACCTCAAAAATGGCACTTGTGGTCTAGTAGAGC
TGGAAAAAGGCGTACTGCCCCAGCTTGAACAGCCCTATGTGTTCATTAAACGTTCTGATGCCTTAAGCACCAATCACGGCCAC
AAGGT...

以下でSARSゲノムの短いパリンドローム（回文配列）を見付けます．

In[1]:=

Out[1]:= {TCTTTCT, ACAAACA, CTCCCTC, TATTTAT, TCTTTCT, TCTTTCT, GTGGGTG, TCTTTCT, TCTTTCT, TGTTTGT, TATTTAT, ACAAACA, ACAAACA, TATTTAT, ACAAACA, ATAAATA, TCTTTCT, TGTTTGT, ACAAACA, TATTTAT, AAAAAAA, TTTTTTT, ATAAATA, ACAAACA, AGAAAGA, GAGGGAG, ACAAACA, AAAAAAA, AAAAAAA, AAAAAAA}

同一文字が長く繰り返されているものを見付けます．

In[2]:= StringCases[SARS, w : ((x_) ..) /; StringLength[w] > 5]

Out[2]:= {CCCCCC, GGGGGG, AAAAAAAA, TTTTTTT, TTTTTT, CCCCCC, AAAAAAAAAAAAAAAAAAAAAAAA}

例題ノートブックのダウンロード

例：辞書

Mathematica 5.1には9万語に及ぶ英語辞書が含まれています．

この辞書の中で回文構造を持つものを探します．

In[3]:=

FindWords[x__ /; x == StringReverse[x]]

Out[3]:= {a, aha, aka, bib, bob, boob, bub, CFC, civic, dad, dd, deed, deified, did, dud, DVD, eke, ere, eve, ewe, eye, gag, gig, huh, I, kayak, kook, level, ma'am, madam, mam, MGM, minim, mom, mum, nan, non, noon, nun, oho, pap, peep, pep, pip, poop, pop, pup, radar, redder, refer, repaper, reviver, rotor, sagas, sees, seres, sexes, shahs, sis, solos, SOS, stats, stets, tat, tenet, tit, TNT, toot, tot, tut, wow, WWW}