眠いその2
#!/usr/bin/perl -w use encoding 'sjis'; for(1..512) { my @arr = split(/ */,"眠い"); $num = int(rand(2)); print $arr[$num]; }
結果は、
いいいいい眠いい眠眠い眠眠い眠 いいいいいいいいいい眠眠眠眠い い眠いい眠いい眠い眠いい眠眠眠 眠眠いいいいいい眠眠眠いいいい いい眠いいいいい眠いい眠眠い眠 眠い眠眠い眠い眠眠眠眠眠いいい 眠い眠い眠いいい眠いいい眠い眠 眠い眠眠眠眠いいい眠眠眠いいい 眠い眠い眠いい眠いい眠いい眠眠 いいい眠いい眠眠眠い眠い眠い眠 い眠眠眠いい眠眠い眠眠眠いい眠 眠眠眠い眠眠眠いい眠眠い眠眠い い眠いいいい眠眠いいいいいいい い眠いいい眠眠眠いい眠眠い眠い いい眠い眠いいい眠い眠いいいい い眠い眠い眠眠いい眠眠眠いいい 眠いいいいいい眠眠い眠い眠い眠 眠い眠いいい眠い眠い眠眠眠い眠 いいいいいい眠い眠い眠眠いい眠 眠いいいい眠眠眠眠い眠い眠い眠 いい眠いいい眠眠眠眠い眠眠眠い 眠い眠い眠眠いいい眠眠眠いいい 眠い眠眠い眠眠い眠いいい眠眠眠 眠い眠い眠い眠い眠眠眠眠眠眠い いいいいいいい眠いいい眠眠眠眠 眠眠眠い眠いいいいい眠い眠眠い いいい眠い眠い眠眠いい眠眠眠い いい眠いい眠いいいいいい眠い眠 い眠いい眠眠いい眠いい眠いいい 眠い眠眠いいい眠いいいいいいい い眠眠いいい眠いい眠い眠眠いい い眠眠眠眠眠いい眠眠い眠いい眠 眠いい眠い眠いい眠い眠眠眠いい いいいい眠眠眠眠眠眠眠い眠眠眠 い眠
