soh3914 https://blog.hatena.ne.jp/soh3914/ yukke::note https://yukke.hateblo.jp/ DNAは、相補的塩基対形成という性質があって、AとG、TとCとしか水素結合を形成することは出来ない。つまり、ATCCという塩基の相方の塩基は必ずTCGGとなる。これを出来るだけ短く書きたい。 がんばったら、 で5行で、実質の処理をしているのは1行になる。うーん、ループ使わずに一行にしたいがどうやればよいものか。 $rev .= $_ =~ /[aA]/ ? 't' : $_ =~ /[cC]/ ? 'g' : $_ =~ /[gG]/ ? 'a' : $_ =~ /[tT]/ ? 'c' : '' for split //, my $s = shift; で、というか、splitの2個目の引数… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fyukke.hateblo.jp%2Fentry%2F2013%2F08%2F21%2F190633" title="Perlで相補鎖を返す関数を短く書く - yukke::note" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2013-08-21 19:06:33 rich https://yukke.hateblo.jp/entry/2013/08/21/190633 1.0 100%