シードを固定した乱数

Perl 30分プログラム

30分プログラム、その642。http://ja.doukaku.org/279/ via http://gauc.no-ip.org/awk-users-jp/blis.cgi/DoukakuAWK_201をやってみた。
タイトルの通りシードを固定した上で乱数を生成して、同じ値が生成されるかを確認してみる問題。そして、予想通りあっという間に終わってしまった。まあ、こういう日もある。

使い方

$ perl rand.pl
17
74
9
87
57
78
69
36
87
74

$ perl rand.pl
17
74
9
87
57
78
69
36
87
74

$ perl rand.pl
17
74
9
87
57
78
69
36
87
74

ソースコード

#! /usr/bin/perl
# -*- mode:perl; coding:utf-8 -*-
#
# rand.pl -
#
# Copyright(C) 2009 by mzp
# Author: MIZUNO Hiroki / mzpppp at gmail dot com
# http://howdyworld.org
#
# Timestamp: 2009/08/17 21:14:49
#
# This program is free software; you can redistribute it and/or
# modify it under MIT Lincence.
#
use strict;
use warnings;
use Data::Dumper;

srand 0;
for(1..10){
    print int(rand(100)),"\n";
}

参考