barak/dotfiles
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Update from eponine -- new screenrc, et al

Browse source 
git-svn-id: http://photonzero.com/dotfiles/trunk@24 23f722f6-122a-0410-8cef-c75bd312dd78
This commit is contained in:
michener 2008-09-22 23:10:35 +00:00
parent 4476597643
commit 29c7fd1814
7 changed files with 83 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

10
bin/movingaverage
View file

@ -1,20 +1,22 @@
#!/usr/bin/perl
$averageto = $ARGV[0];
for ($i = 0; $i < $averageto; $i++) {
$temp[$i] = 0;
for ($i = 0; $i < $averageto + 1; $i++) {
$_ = <STDIN>;
chomp;
$temp[$i] = $_;
}
while (<STDIN>) {
chomp;
$x = 0;
for ($i = 0; $i < $averageto; $i++) {
for ($i = 0; $i < $averageto + 1; $i++) {
$x += $temp[$i];
}
$x = $x + $_;
$x = $x / ($averageto + 1);
print "$x\n";
for ($i = 0; $i < $averageto - 1; $i++) {
for ($i = 0; $i < $averageto; $i++) {
$temp[$i] = $temp[($i + 1)];
}
$temp[($averageto -1)] = $_;