配列をループして全て出力するプログラムを書く場合。(言語はPerl)
my @datas = qw(a b c); for my $data ( @datas ) { print $data; }
こんな感じになるよね?
これを意図的に難しく書いてみるよ!
my $i = @datas; my $code = sub { -- $i }; while ( 'hoge' ) { my $data = $datas[ @datas - $i ]; print $data; goto LAST unless $code->(); } LAST:
さぁあなたもレッツトライ!もっと難しく書いてみてね!
まずは最短コース。(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 の...