projects
/
pintos-anon
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
New file.
[pintos-anon]
/
doc
/
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
}