okomok さんの ken の 以下のtree 0.1.0-SNAPSHOT を使用 https://github.com/okomok/ken/tree/805ac5ed607b0b9a8377fdf552d09d29d7952dc4
https://twitter.com/#!/tanakh/status/156665941156036608 http://nagoyascala.yoshihiro503.cloudbees.net/bbs/thread/114001
scala> import com.github.okomok.ken._ | |
import com.github.okomok.ken._ | |
scala> def solve(n:Int) = List.filter(List.isInfixOf("AAG") _ )( List.replicateM(n)("ATCG") ) | |
solve: (n: Int)com.github.okomok.ken.List[com.github.okomok.ken.List[Char]] | |
scala> solve(5) | |
res0: com.github.okomok.ken.List[com.github.okomok.ken.List[Char]] = List("AAAAG","AAAGA","AAAGT","AAAGC","AAAGG","AAGAA","AAGAT","AAGAC","AAGAG","AAGTA","AAGTT","AAGTC","AAGTG","AAGCA","AAGCT","AAGCC","AAGCG","AAGGA","AAGGT","AAGGC","AAGGG","ATAAG","ACAAG","AGAAG","TAAAG","TAAGA","TAAGT","TAAGC","TAAGG","TTAAG","TCAAG","TGAAG","CAAAG","CAAGA","CAAGT","CAAGC","CAAGG","CTAAG","CCAAG","CGAAG","GAAAG","GAAGA","GAAGT","GAAGC","GAAGG","GTAAG","GCAAG","GGAAG") |