しゃある通信

---

#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では「文字列の圧縮に使えそう」という発言があったけど、コスト高すぎじゃなイカ?

---

---

© 2013 Kazuya 'Sharl' Masuda