2005年12月19日01:44 カテゴリ一日一行野郎Lightweight Languages ハナモゲラ和歌製造機 偶然見つけたものを少しGolf。 原文: perl -e 'use encoding qw(utf8);@h = map {chr($_)} (0x3041 .. 0x3094); print join(" ", map {join("", map {$h[rand(@h)]} (1 .. $_))} (5, 7, 5, 7, 7)), "\n";' Golfed by dankogai perl -le 'binmode STDOUT,":utf8"; print join " ", map {join "", map {chr(0x3041+rand(83))} (1..$_)} (5,7,5,7,7)' とりあえず5首ほど読ませてみた。 ぷろかつも ふぜてぶぼせゐ
![ハナモゲラ和歌製造機 : 404 Blog Not Found](https://cdn-ak-scissors.b.st-hatena.com/image/square/da78a05937633f7a2b4b2219826151c370cd607b/height=288;version=1;width=512/https%3A%2F%2Fparts.blog.livedoor.jp%2Fimg%2Fusr%2Fcmn%2Fogp_image%2Flivedoor.png)