勝手に添削をこっそり添削

404なお方の「勝手に添削」をこっそり添削してみた

元のコード

    my $result_text = '';
    for my $word ( @{ $ma_result->{word_list} } ) {
        if ( $word->{pos} eq '動詞' ) {
            $result_text .= "全裸で$word->{surface}";
        }
        else {
            $result_text .= $word->{surface};
        }
    }
    return $result_text;

404なお方の添削結果

for my $word ( @{ $ma_result->{word_list} } ) {
    $result_text .= '全裸で' if $word->{pos} eq '動詞';
    $result_text .= $word->{surface};
}

で、おれならこーする。

sub zenrize {
    ...(中略)...
    return join '', map { _zenrize($_) } @{ $ma_result->{word_list} }
}

sub _zenrize {
    return $_[0]->{pos} eq '動詞' ? '全裸で' . $_[0]->{surface} : $_[0]->{surface}; 
}

どうだろう？ムケているだろうか？