しゃある通信

Back Forward Return

03/08(Fri)

#08-01 [perl]ランダム関数によるhello world

ランダム関数による hello world　 | 札幌ワークス

ということなのでperlでもやってみた。

HelloWorld.pl Perl code - 10 lines - codepad 
#!/usr/bin/env perl

print r(-1882006324) . ' ' . r(-2062980754) . "\n";

sub r {
    my $s = '';
    srand(shift);
    while (my $r = int(rand(27))) {
	$s .= chr(ord('`') + $r);
    }
    $s;
}

$ perl HelloWorld.pl
hello world
某IRCでは「文字列の圧縮に使えそう」という発言があったけど、コスト高すぎじゃなイカ?

Back Forward Return

1232 accesses since 2013/03/01. (C)Willoo Entertainment Inc. (C)Konami Digital Entertainment 株式会社ウィローエンターテイメント及び株式会社コナミデジタルエンタテインメントの著作権を侵害する行為は禁止されています。