タグ

関連タグで絞り込む (2)

タグの絞り込みを解除

ideaとreduceに関するkiyo_hikoのブックマーク (1)

  • join

    #!/usr/bin/perl use strict; use warnings; my @items = (1, 2, 4, 8, 16, 32); my $str = join ',', @items; print $str, "\n"; #!/usr/bin/perl use strict; use warnings; my @items = (1, 22, 333, 4444, 55555); my $str = join "\n", @items; print $str, "\n";

    join
    kiyo_hiko
    kiyo_hiko 2012/03/23
    Reduce使って書けるということを徒然なるままに思いついた だからなんだというわけでもない 「use List::Util qw/reduce/; sub joint {my ($glue, @xs) = @_; reduce {"$a$glue$b"} @xs} print joint ', ', qw/a quick brown fox jumps over a lazy dog./」
  • 1