fork download
copy 
  1. #!perl -p
  2. s/./ord$&/sge;while($_){/.$/;$s=$&%2 .$s;$t=$v="";$t.=$v+$_/2|0,$v=$_%2*5
  3. for/./g;s/^0// if$_=$t}$_=$s;s/(.)(.)?/([A,C],[G,T])[$1][$2]/ge
Success #stdin #stdout 0s 6000KB
comments (?)
stdin
copy 
codegolf
stdout
copy 
GGCTTGCGGCCGGAGACGCGGTCTGACGCCTTGTAAATA
https://ideone.com/MuPT0K
Code Golf: Golf Text into DNA
http://c...content-available-to-author-only...e.com/q/79169
language:
Perl (perl 5.28.1)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!