#!/usr/bin/perl -w use strict; my $randomx=37; # the seed for x my $randomy=1531; # the seed for y my $n_randomx=0; my $n_randomy=0; my $i=0; while ($i<101) { $n_randomx=(($randomx*106+1283) % 6075) / 6075; $n_randomy=(($randomy*106+1283) % 6075) / 6075; print "$i $randomx $randomy\n\n"; $randomx=$n_randomx; $randomy=$n_randomy; $i++; }
In reply to Division Problem by Finreir
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |