  |
生きててごめんなさい。
use Acme::DoubleHelix; CG T--A A---T A----T C----G T----A A---T G--C AT CG C--G G---C G----C C----G A----T C---G G--C TA AT A--T A---T G----C A----T G----C C---G G--C GC AT C--G G---C A----T G----C T----A G---C G--C AT CG G--C G---C T----A T----A A----T G---C A--T TA GC T--A G---C T----A G----C A----T C---G C--G AT GC A--T C---G G----C A----T A----T C---G A--T CG AT C--G G---C A----T A----T C----G A---T T--A AT CG G--C G---C C----G C----G A----T T---A C--G TA AT C--G C---G A----T A----T A----T A---T T--A GC CG A--T T---A G----C G----C C----G C---G G--C CG TA C--G G---C A----T G----C T----A G---C A--T AT AT G--C A---T G----C C----G G----C G---C A--T CG GC A--T G---C T----A G----C G----C A---T C--G GC TA C--G T---A A----T C----G C----G A---T A--T
まずは最短コース。(use strict;なんて使っちゃだめよ) @data = qw(a b c);print(@data); 次にややこしいコース #!/usr/bin/perluse strict;my @data = qw(a b c);sub nextMember(@) { my $datum = shift(@_); if($datum){ pr...
#!/usr/bin/perluse strict;my @data = qw(a b c);my $cx = scalar @data;my $si = 0;my $ax;LOOP: $ax = $data[$si]; print $ax; $si++;--$cx and goto LOOP; #!/usr/bin/perluse strict;my @data = qw(a b c);package AtoH;use base qw(Tie::Handle);sub TIEHA...
生きててごめんなさい。 use Acme::DoubleHelix; CGT--AA---TA----T C----G T----A A---T G--C AT CG C--G G---C G----C C----GA----TC---GG--C TA ATA--TA---TG----C A----T G----C C---G G--C GC AT C--G G---C A-...
じゃあ僕はこれで。 use Acme::Bleach; ...
なにをもって書けるとするかで(ry Z-80はもう記憶の彼方。8086はレジスタ構成とか主要な命令は覚えてる気がする。しかし、なにより書く気がしない。 所で http://anond.hatelabo.jp/20070822235722 の...
16
