読者です 読者をやめる 読者になる 読者になる

ythb

yto hatena blog

互助会ふれあいコメントクリエーター (Perl版)

増田の「コミュ力アップのためにプログラムを使う」の「互助会ふれあいコメントクリエーターというプログラム」とやらを実装してみた。

gojo-com-creator.pl

#!/usr/bin/env perl
use strict;
use warnings;
my @dat;
my $type = 0;
while (<DATA>) {
    chomp;
    do {$type++; next} if /^#/;
    push @{$dat[$type]}, $_;
}
for (my $i = 0; $i < 1000; $i++) {
    print join("", map {$dat[$_][rand(@{$dat[$_]})]} 0..2)." ";
}

__DATA__
ありがとうございます
タメになりました
参考になります
いいね
今度やってみたい
今度試してみます
いいですね
これは気になる
これは面白そう
大好き
これはすごい
よろしくお願いします
素晴らしい
すごいですね
なるほど
参考になる
これは為になりますね
これはやばい
勉強になりました
いいねえ
大変参考になります
同感です。
参考にさせていただきます
これ読んで工夫してみます
参考になります
#



#
(^^)
φ(..)

(*'▽')
_φ(・_・