projects
/
pintos-anon
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
33ef9b1decd5b5c0190478e0100ab274df0804c6
[pintos-anon]
/
mlfqs2i
1
#! /usr/bin/perl
2
print "0 0\n";
3
while (<>) {
4
my ($ix, $iy) = /^(\d+) (\d+)$/ or die;
5
my ($x) = ($ix - 201) / (443 - 201) * 60;
6
my ($y) = ($iy - 456) / (645 - 456) * 25;
7
printf "%.2f %.2f\n", $x, $y;
8
}